Страницы: 1
RSS
Подсчет учеников на 4 и 5 с помощью макроса на VBA, Нужно подсчитать учеников учащихся 4 и 5 с помощью макроса на VBA
 
Здравствуйте, помогите пожалуйста глупому и необразованному с написанием макроса на VBA для подсчета учеников отучившихся на 4 и 5
Ниже прикрепляю файл с таблицей и формулами, буду рад любой помощи.
Изменено: R1xter - 15.05.2024 09:18:41
 
А ЭТА Ваша тема?
Или Ваших конкурентов?)))

Из Правил форума
Цитата
3. Запрещено
  3.2. Использовать в сообщениях, подписях и логинах на форумах ...заменять буквы другими символами...Администрация вправе удалить такого пользователя без предупреждения.
  3.3. Регистрировать клоны - несколько ников одним человеком. При выявлении подобного банятся все клоны вместе с их автором. Навсегда.
Согласие есть продукт при полном непротивлении сторон
 
Цитата
написал:
А  ЭТА  Ваша тема?Или Ваших конкурентов?))
Хорошо подметили, у нас одна таблица с учениками, но разные задания)
 
Я еще в той теме спрашивал - как быть с Н/А?
Какой ученик считается отучившимся на 4 и 5?
Согласие есть продукт при полном непротивлении сторон
 
Цитата
написал:
Я еще в той теме спрашивал - как быть с Н/А? Какой ученик считается отучившимся на 4 и 5?
Н/А Это по идее та же самая двойка. То есть ученик с 4 и 5, но хотя бы с одной Н/А не будет считаться за ученика отучившимся на 4 и 5.
 
R1xter, это у вас Рихтер с нарушениями правил или Аруанкстер, тоже с ними


Подождем смены ника!
Изменено: БМВ - 15.05.2024 11:14:01
По вопросам из тем форума, личку не читаю.
 
Цитата
R1xter написал:
Н/А Это по идее та же самая двойка.
А ученик с Н/А, хотя бы по одному предмету, попадает в категорию неуспевающих?
Как-то странно в Вашем файле
Всего учеников - 27, из них успевающих (отличников, хорошистов, обычных) - 23, неуспевающих - 19. Итого - 42
В чем подвох?
Или Вам нужны только отличники и хорошисты?
Скрытый текст

П.С. И приведите уже свой ник в соответствие с Правилами (см. выписку выше)
Согласие есть продукт при полном непротивлении сторон
 
Здравствуйте. Немного покороче UDF
Код
Function Оценки(диапазон As Range, критерий%) As Long
Dim arr, i&, j&
arr = диапазон.Value: Оценки = UBound(arr)
For i = 1 To UBound(arr): For j = 1 To UBound(arr, 2)
If arr(i, j) < критерий Or Not VBA.IsNumeric(arr(i, j)) Then Оценки = Оценки - 1: Exit For
Next j, i
End Function
 
Цитата
написал:
R1xter , это у вас Рихтер с нарушениями правил или Аруанкстер, тоже с ними
Не понял вопроса, можете переформулировать пожалуйста
 
Повторю
Цитата
3. Запрещено
 3.2. Использовать в сообщениях, подписях и логинах на форумах ...заменять буквы другими символами..
Смените отображаемое имя
Согласие есть продукт при полном непротивлении сторон
 
Цитата
написал:
Смените отображаемое имя
Хорошо
 
Сменил, спасибо за терпение
 
Ответы открыты
Согласие есть продукт при полном непротивлении сторон
 
Цитата
написал:
А ученик с Н/А, хотя бы по одному предмету, попадает в категорию неуспевающих?Как-то странно в Вашем файлеВсего учеников - 27, из них успевающих (отличников, хорошистов, обычных) - 23, неуспевающих - 19. Итого - 42В чем подвох?Или Вам нужны только отличники и хорошисты?
Всего учеников 27
Студент хотя бы по одному предмету с н/а попадает в категорию неуспевающих. - 12 человек
Только на 4 и 5 учиться - 8 студентов
На 3 4 и 5 должно учиться еще получается 7 студентов, но я формулу не дописал
Страницы: 1
Наверх