Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: VBA MS Office

Программирования для MS Office кроме ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Excel - Вычисление с выборкой по диапазону
 
 автор: VadimSh   (17.10.2010 в 12:15)   личное сообщение
16 Кб.
 
 

Помогите с решением.
Имеется оценочная ведомость по предметам.
Необходимо вычислить итоговую оценку ученику при условии:
"5" - 50% и более оценок по всем предметам "5"; по математике и физике только "5"; остальные - не ниже "4"
"4" - 50% и более оценок по всем предметам "5" и "4"; по математике и физике не ниже "4"; остальные - не ниже "3"
"3" - менее 50% оценок по всем предметам "5" и "4"; остальные - не ниже "3" или 1 оценка - "2", а остальные - "5" и "4", в т.ч по математике и физике
"2" - остальное
Примечание:
если возможно ссылки на математику и физику должны быть по названию предмета, а не по столбцу
т.к. они в ведомости могут и не быть, или находится в другом столбце

  Ответить  
 
 автор: snipe   (17.10.2010 в 14:32)   личное сообщение
44 Кб.
 
 

Так? =>

добавлено
Накосячил чуток
вот тут
или 1 оценка - "2", а остальные - "5" и "4", в т.ч по математике и физике
считает неправильно

вот это
If podshet = 0 Then
If a(1) = 0 And a(2) = 1 And a(3) = 0 Then
podshet = 3
End If
End If

надо заменить на это

If podshet = 0 Then
If a(1) = 0 And a(2) = 1 And a(3) = 0 And Cells(asd, matematika) >= 4 And Cells(asd, fizika) >= 4 Then
podshet = 3
End If
End If

  Ответить  
 
 автор: snipe   (17.10.2010 в 14:49)   личное сообщение
44 Кб.
 
 

все неправильно
вот - переделал =>

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList