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

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


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

П.С. И приведите уже свой ник в соответствие с Правилами (см. выписку выше)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
15.05.2024 10:58:35
Здравствуйте. Немного покороче 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
 
 
 
#9
15.05.2024 16:50:27
Цитата
написал:
R1xter , это у вас Рихтер с нарушениями правил или Аруанкстер, тоже с ними
Не понял вопроса, можете переформулировать пожалуйста
 
 
 
#10
15.05.2024 16:51:25
Повторю
Цитата
3. Запрещено
 3.2. Использовать в сообщениях, подписях и логинах на форумах ...заменять буквы другими символами..
Смените отображаемое имя
Согласие есть продукт при полном непротивлении сторон
 
 
 
#11
15.05.2024 16:53:09
Цитата
написал:
Смените отображаемое имя
Хорошо
 
 
 
#12
15.05.2024 16:56:39
Сменил, спасибо за терпение
 
 
 
#13
15.05.2024 16:58:51
Ответы открыты
Согласие есть продукт при полном непротивлении сторон
 
 
 
#14
16.05.2024 07:46:28
Цитата
написал:
А ученик с Н/А, хотя бы по одному предмету, попадает в категорию неуспевающих?Как-то странно в Вашем файлеВсего учеников - 27, из них успевающих (отличников, хорошистов, обычных) - 23, неуспевающих - 19. Итого - 42В чем подвох?Или Вам нужны только отличники и хорошисты?
Всего учеников 27
Студент хотя бы по одному предмету с н/а попадает в категорию неуспевающих. - 12 человек
Только на 4 и 5 учиться - 8 студентов
На 3 4 и 5 должно учиться еще получается 7 студентов, но я формулу не дописал
 
 
 
Страницы: 1
Читают тему
Наверх