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

UptoLike

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

127
' Просмотрим каждую ячейку в диапазоне пятерок
For Each Obj In Worksheets("Сессия").Range("ar17:ar316")
Count5 = Count5 + Obj.Value ' Суммируем число пятерок
' Считаем отличников
If Obj.Value = 12 Then
Student5 = Student5 + 1
End If
Next Obj
Число отличников можно найти как сумму студентов имеющих
число пятерок равное количеству предметов (в нашем случае 12).
Число троечников определяется сложнее, так как у "потенциального"
троечника (число троек не равно нулю) могут быть двойки. Число
хорошистов тоже определяется сложнее по той же причине.
' Число оценок равно сумме 2,3,4,5
Count_Of_Note = Count2 + Count3 + Count4 + Count5
Label13.Caption = Count_Of_Note ' Выводим на экран число оценок
Label14.Caption = Count2 ' Выводим количество двоек
Label15.Caption = Count3 ' Выводим количество троек
Label16.Caption = Count4 ' Выводим количество четверок
Label17.Caption = Count5 ' Выводим количество пятерок
' Вычисление процентов
' Процент двоек
Label18.Caption = Format(Count2 / Count_Of_Note, "0.00%")
Функция Format осуществляет преобразование числа в опреде-
ленный формат. В данном случае функция Format преобразует число
к процентному формату (умножает на 100) с двумя знаками после за-
пятой – "0.00%").
' Процент троек
Label19.Caption = Format(Count3 / Count_Of_Note, "0.00%")
' Процент четверок
Label20.Caption = Format(Count4 / Count_Of_Note, "0.00%")
' Процент пятерок
Label21.Caption = Format(Count5 / Count_Of_Note, "0.00%")
' Просмотрим каждую ячейку в диапазоне оценок
For i = 17 To 316
' Считаем троечников
If Worksheets("Сессия").Range("ao" + Trim(Str(i))) = 0 And _
    ' Просмотрим каждую ячейку в диапазоне пятерок
    For Each Obj In Worksheets("Сессия").Range("ar17:ar316")
       Count5 = Count5 + Obj.Value ' Суммируем число пятерок
    ' Считаем отличников
    If Obj.Value = 12 Then
       Student5 = Student5 + 1
    End If
   Next Obj
    Число отличников можно найти как сумму студентов имеющих
число пятерок равное количеству предметов (в нашем случае 12).
Число троечников определяется сложнее, так как у "потенциального"
троечника (число троек не равно нулю) могут быть двойки. Число
хорошистов тоже определяется сложнее по той же причине.

    ' Число оценок равно сумме 2,3,4,5
    Count_Of_Note = Count2 + Count3 + Count4 + Count5
     Label13.Caption = Count_Of_Note ' Выводим на экран число оценок
     Label14.Caption = Count2 ' Выводим количество двоек
     Label15.Caption = Count3 ' Выводим количество троек
     Label16.Caption = Count4 ' Выводим количество четверок
     Label17.Caption = Count5 ' Выводим количество пятерок
   ' Вычисление процентов
   ' Процент двоек
   Label18.Caption = Format(Count2 / Count_Of_Note, "0.00%")
    Функция Format осуществляет преобразование числа в опреде-
ленный формат. В данном случае функция Format преобразует число
к процентному формату (умножает на 100) с двумя знаками после за-
пятой – "0.00%").

   ' Процент троек
   Label19.Caption = Format(Count3 / Count_Of_Note, "0.00%")
   ' Процент четверок
   Label20.Caption = Format(Count4 / Count_Of_Note, "0.00%")
    ' Процент пятерок
   Label21.Caption = Format(Count5 / Count_Of_Note, "0.00%")
   ' Просмотрим каждую ячейку в диапазоне оценок
   For i = 17 To 316
   ' Считаем троечников
   If Worksheets("Сессия").Range("ao" + Trim(Str(i))) = 0 And _
                                 127