Microsoft Excel. От основ к задачам обработки и представления данных. Степанченко И.В. - 137 стр.

UptoLike

Составители: 

139
чение переменной Obj (текущая ячейка). Как только день обработан, пе-
ременная Count наращивает значение на единицу, а если это был послед-
ний день (т. е. Count стала равна 11 после добавления единицы), то пере-
менную Count снова делают равной 1.
Рассмотрим участок, где формируется список дней.
For i = 1 To 10
' Для получения среднего необходимо разделить сумму на
' число
лет наблюдения
' Заносим данные в список
ListBox1.AddItem "День " & i & ": " ' Первая колонка с названием дня
Для добавления новой строки в список используется метод AddItem
(он позволяет занести данные в первую колонку списка, если их не-
сколько). Объект ListBox1 имеет свойство ColumnCount равное четы-
рем, а свойство ColumnWidth равное 49.95 пт; 35 пт; 35 пт; 35 пт (при
задании свойства можно просто перечислять цифры через точку с за-
пятой без букв "пт" – пункт). Первое свойство задает число колонок, а
второе свойство их ширину (поэтому чисел четыре). Далее с помощью
свойства List задаются значения еще трех колонок первой строки.
' Вторая колонка со средним значением
ListBox1.List(i – 1, 1) = Format(StDay(i, 1) / 30, "0.00")
Обратите внимание, что счет строк в объекте класса «Список» начина-
ется с нуля, поэтому указывается номер строки как i –1. Следующий
параметр отражает номер колонки – 1 (счет тоже начинается с нуля).
Sum = Sum + StDay(i, 1) / 30 ' накапливаем сумму средних значений
' Третья колонка с максимальным значением
ListBox1.List(i – 1, 2) = StDay(i, 2)
' Ищем максимальное значение
If Max < StDay(i, 2) Then
Max = StDay(i, 2)
End If
' Четвертая колонка с минимальным значением
ListBox1.List(i – 1, 3) = StDay(i, 3)
' Ищем минимальное значение
If Min > StDay(i, 3) Then
чение переменной Obj (текущая ячейка). Как только день обработан, пе-
ременная Count наращивает значение на единицу, а если это был послед-
ний день (т. е. Count стала равна 11 после добавления единицы), то пере-
менную Count снова делают равной 1.
   Рассмотрим участок, где формируется список дней.
   For i = 1 To 10
        ' Для получения среднего необходимо разделить сумму на
        ' число лет наблюдения
        ' Заносим данные в список
   ListBox1.AddItem "День " & i & ": " ' Первая колонка с названием дня
 Для добавления новой строки в список используется метод AddItem
 (он позволяет занести данные в первую колонку списка, если их не-
 сколько). Объект ListBox1 имеет свойство ColumnCount равное четы-
 рем, а свойство ColumnWidth равное 49.95 пт; 35 пт; 35 пт; 35 пт (при
 задании свойства можно просто перечислять цифры через точку с за-
 пятой без букв "пт" – пункт). Первое свойство задает число колонок, а
 второе свойство их ширину (поэтому чисел четыре). Далее с помощью
 свойства List задаются значения еще трех колонок первой строки.
             ' Вторая колонка со средним значением
         ListBox1.List(i – 1, 1) = Format(StDay(i, 1) / 30, "0.00")
 Обратите внимание, что счет строк в объекте класса «Список» начина-
 ется с нуля, поэтому указывается номер строки как i –1. Следующий
 параметр отражает номер колонки – 1 (счет тоже начинается с нуля).

     Sum = Sum + StDay(i, 1) / 30 ' накапливаем сумму средних значений

    ' Третья колонка с максимальным значением
      ListBox1.List(i – 1, 2) = StDay(i, 2)

    ' Ищем максимальное значение
     If Max < StDay(i, 2) Then
         Max = StDay(i, 2)
     End If

    ' Четвертая колонка с минимальным значением
    ListBox1.List(i – 1, 3) = StDay(i, 3)

    ' Ищем минимальное значение
    If Min > StDay(i, 3) Then

                                     139