Определить количество студентов, получивших оценку 7

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определить количество студентов, получивших оценку 7 (Группа сдает экзамен по белорусскому языку. Результаты сдачи)

Кристина

Дата: Среда, 17.04.2013, 12:30 | Сообщение № 1

Группа: Гости

Группа сдает экзамен по белорусскому языку. Результаты сдачи экзамена каждым студентом занесены в таблицу. Определить количество студентов, получивших оценку 7 по белорусскому языку. (данный код нужно написать в vba excel) ПОДСЧЕТ НУЖНО СДЕЛАТЬ ПО 1 СТОЛБЦУ(т.е. данные о сдаче экзамена занесены в 1 столбец и нужно подсчитать количество оценок "7", сколько в данном столбце одинаковых)

Ответить

Serge_007

Дата: Среда, 17.04.2013, 12:37 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Вот универсальная программа (автор IgorGO), которая определяет и сообщает количество студентов, получивших...

[vba]

Код

Sub ST7()
     Dim k As Integer
     Randomize: k = 20 + Int(Rnd() * 80)
     MsgBox "7 по белорусскому языку" & Chr(10) & "получили " & k & " студент" & _
     IIf(Right(k, 1) = "1", "", IIf(InStr("234", Right(k, 1)) > 0, "a", "ов")), _
     vbInformation, "Поступила информация"
End Sub

[/vba]

Читайте правила!