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

       Worksheets("Сессия").Range("ap" + Trim(Str(i))) > 0 Then
        Student3 = Student3 + 1
  End If
   ' Считаем хорошистов
   If Worksheets("Сессия").Range("ao" + Trim(Str(i))) = 0 And _
       Worksheets("Сессия").Range("ap" + Trim(Str(i))) = 0 And _
       Worksheets("Сессия").Range("aq" + Trim(Str(i))) > 0 Then
        Student4 = Student4 + 1
    End If
     ' Заносим успевающих студентов в список
     If Worksheets("Сессия").Range("ao" + Trim(Str(i))) = 0 Then
  ListBox1.AddItem (Worksheets("Сессия"). Range("aa" +
  + Trim(Str(i))). Value & " – " & _
           Worksheets("Сессия"). Range("an" + Trim(Str(i))).Value)
      End If
  Next i

     Знак подчеркивания ( _ ) означает, что строка программы про-
должается на следующей физической строке. Подсчет троечников
осуществляется так: если у студента количество двоек равно 0 и ко-
личество троек больше нуля, то он – троечник. Аналогично делается
вывод по хорошистам. Интересным является способ создания списка
успевающих студентов. Объект класса «Список» имеет метод Ad-
dItem. Данный метод добавляет одну строку в список. Строка должна
представлять собой текст. В нашем случае текст составляется из фа-
милии (берется значение ячейки из столбца AA, и добавляется к нему
через знак минуса (с помощью знаков &, которые соединяют тексто-
вые строки) значение среднего балла (столбец AN)). Обратите вни-
мание на формирование адреса ячейки: "aa" + Trim(Str(i)). Функция
Str переводит числовое значение в строку текста (например, число
234 переводит в "234"), а функция Trim обрезает пробелы в начале и
в конце строковой переменной (например, строку " 34е " преобразует
в "34е"). Итак, поскольку адрес ячейки представляет собой текст, со-
стоящий из названия столбца и номера строки, то для его формиро-
вания мы к названию столбца – AA (мы его знаем заранее) нужно до-
бавить в виде текста номер строки (номера меняются в теле цикла).
Поскольку у нас имеется номер строки в виде числа (значение пере-
менной i), то нужно преобразовать его в текст. Функция Str перево-
дит число в текст, однако, она добавляет в начале пробел (если число
положительное) или минус (если число отрицательное). У нас число
положительное, но пробел в имени ячейки недопустим, поэтому ис-
пользуется функция Trim.

                                 128