Обработка таблиц

@Starkjkeee · Регистрация: 17.11.2013

Студворк — интернет-сервис помощи студентам

Приветствую. Никогда ранее я не занимался Excel-ем, но тут пришлось. Я, если честно, вообще не понимаю как тут всё устроено. Мне дали данную задачу:
Составить программу назначения стипендии студентам по результату сессии, использую следующие правила:
1) Если все оценки 5, назначается повышенная стипендия.
2) Если оценки 4 и 5, назначается обычная стипендия.
3) Если есть оценка 3, стипендия не назначается.
В результате должен быть напечатан список группы с оценками и средним баллом каждого студента и два списка фамилий (назначенных на обычную стипендию и повышенную).
Очень прошу вашей помощи.

@Starkjkeee · 02.03.2015, 21:36 **[ТС]**

А не могли бы Вы объяснить принцип действия кнопки "расчёт"?) И как её делать... Очень уж удобно получается.

@chumich · 02.03.2015, 21:48

Сообщение от Starkjkeee

принцип действия кнопки "расчёт"

Заполняет таблицу макрос, который запускается кнопкой или из меню Вид/Макросы/Макросы/Выполнить. Сначала создается макрос. Для этого вы выходите через меню Разработчик/VisualBasic в окно редактора и пишете программу (макрос) на языке VBA. После этого возвращаетесь в меню Разработчик/Элементы управления/Вставить. В открывшемся окошке выбираете элемент управления Кнопка и изменившим свой вид курсором "рисуете" ее там, где хотите видеть. Когда закончите, вылезет диалоговое окно "Назначить макрос объекту", где вы выбираете созданный вами макрос. Затем, ОК и всё работает

@Starkjkeee · 02.03.2015, 22:04 **[ТС]**

Такого я вообще не знал, вот что значит не учить программирование... А как посмотреть этот код макроса?
Потому что теперь я уверен, что надо было делать программу без этого макроса. Потому нам точно такого не объясняли

@chumich · 02.03.2015, 22:19

Сообщение от Starkjkeee

программу без этого макроса

Макрос - это и есть программа

. Код на языке VBA. Поэтому, если вам задали "сделать программу", то это всяко не просто использование функций Excel, а именно программирование. Посмотреть макрос можно, как я уже писал, по адресу

меню Разработчик/VisualBasic. Если у вас на Ленте нет такой вкладки (Разработчик), то сделать ее видимой можно в параметрах Excel. В 2007 - прямо в Основных. В 2010 и 2013 точно не помню, но по-моему в Настройках Ленты. И там, и там нужно просто поставить флажок. Зайдя "по адресу" увидите, в окошке строчку VBAProject(стип_пендия.xlsm) с плюсиком. Щелкнете по плюсику - вылезет запрос пароля и тогда вам пригодятся те буквы, которые я вам написал в одном из сообщений

Введите их и дальше всё увидите.

@Starkjkeee · 02.03.2015, 22:28 **[ТС]**

Ох, ночка будет длинная

Ещё раз, спасибо!

@chumich · 02.03.2015, 22:58

Возможно это поможет "укоротить" вашу ночь

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub stipendia()  ' название того самого макроса
Dim a, b, st, stp As Integer ' задание целочисленного типа переменных
a = 2  ' будущий счетчик строк для фамилий повышенных стипендиатов (2 - потому что первая фамилия будет на 2ой строке)
b = 2  ' будущий счетчик строк для фамилий обычных стипендиатов (аналогично)
For i = 2 To 11 ' перебор строк начиная со 2ой по 11ю (количество фамилий - 10 плюс заголовок)
st = 0  ' будущий счетчик количества пятерок и четверок
stp = 0 ' будущий счетчик количества пятерок
For j = 2 To 11 ' перебор столбцов с предметами со 2го по 11й (количество предметов - 10 плюс столбец с фамилиями)
Cells(i, 12) = Cells(i, 12) + Cells(i, j) ' сложение всех оценок для конкретной фамилии (i - строка, j - столбец)
If Cells(i, j) = 5 Or Cells(i, j) = 4 Then st = st + 1 ' выбор ячеек пятерками и четверками и сосчитывание их для конкретной фамилии
If Cells(i, j) = 5 Then stp = stp + 1 ' выбор ячеек с одними пятерками и сосчитывание их для конкретной фамилии
Next j   ' конец цикла перебора столбцов
If stp = 10 Then ' вариант когда в строке одни пятерки
Cells(a, 14) = Cells(i, 1) ' занесение фамилии в список повышенных стипендиатов
a = a + 1 ' обеспечение следующей записи в следующую строку
End If 
If stp < 10 And st = 10 Then ' вариант когда в строке и пятерки, и четверки
Cells(b, 16) = Cells(i, 1) ' занесение фамилии в список обычных стипендиатов
b = b + 1 ' обеспечение следующей записи в следующую строку
End If
Cells(i, 12) = Cells(i, 12) / 10 ' подсчет среднего балла для каждой фамилии
Next i ' конец цикла перебора строк
End Sub

@Starkjkeee · 02.03.2015, 23:18 **[ТС]**

Вы несомненно правы

Особенно пояснения помогу укоротить её, ещё раз - спасибо огромное!

@Alex77755 · 03.03.2015, 12:35

chumich,
между 5 и 6 строчками не мешало бы поставить что-то типа

Visual Basic
1
Cells(i, 12) =0

а то повторное нажатие приводит к несуразице

@chumich · 03.03.2015, 13:07

Alex77755, согласен, не обратил внимания

@Starkjkeee · 03.03.2015, 17:29 **[ТС]**

chumich, я конечно понимаю что обнаглел, но можно ли с Вами как-то связаться? Я сегодня попытался сдать данную задачу... Преподаватель вообще сказал по другому её делать. А как делать, я вообще теперь без понятия...

Fairuza · 03.03.2015, 17:38

Starkjkeee, как по другому не сказал? Вероятнее всего формулами и фильтром.
Согласно Правилам все вопросы обсуждаются в теме.

@Starkjkeee · 03.03.2015, 17:55 **[ТС]**

Это очень трудно объяснить письменно... Но я попытаюсь, раз такое дело.
Как написано в условии:
1) Если все оценки 5, назначается повышенная стипендия.
2) Если оценки 4 и 5, назначается обычная стипендия.
3) Если есть оценка 3, стипендия не назначается.
Тоесть, нет никакого среднего балла. У нас дано только 4 предмета по экзамену. И если оценки 5, 5, 5, 5 - то будет повышенная. НО, если 5, 5, 5, 4 - то уже будет обычная стипендия.
А как это сделать с IF, я вообще не понимаю...

@chumich · 03.03.2015, 18:05

Сообщение от Starkjkeee

А как это сделать с IF, я вообще не понимаю..

Вообще, в том, что вы показывали преподавателю всё как раз на if и for построено

Всё, что касается того, как назначается стипендия, мы поняли с первого раза

Мы не можем понять: какими средствами вас просят это сделать: через VBA, через функции Excel или как?

@Starkjkeee · 03.03.2015, 19:02 **[ТС]**

Только Excel, без макросов. Потому что мы там глупые, не изучали их

@chumich · 03.03.2015, 19:55

Сообщение от Starkjkeee

Только Excel, без макросов

Только Excel, без макросов. Формулы, фильтр:

@Starkjkeee · 03.03.2015, 20:18 **[ТС]**

Блин, спасибо большое

Но есть одно но, результат идёт не по среднему баллу... Тоесть именно по 4 предметам. Я сегодня специально уточнял...
Вот это самое сложное для меня.
Например:
Оценки: 5,5,5,5 - повышенная
НО, если оценки : 5,5,5,4 - обычная
И вот как это сделать, без понятия

@chumich · 03.03.2015, 20:31

Сообщение от Starkjkeee

результат идёт не по среднему баллу

Так там и не по среднему идет, а так как вам нужно. Средний балл просто так оставлен, для "красоты", можете удалить этот столбец - ничего не изменится. Сами сможете на с 10 на 4 предмета переделать?

@chumich · 03.03.2015, 20:37

Держите

Столбец со средним баллом можете удалить.

@Starkjkeee · 03.03.2015, 20:49 **[ТС]**

Спасибо огромнейшее! Надеюсь преподаватель не будет придираться

Вы меня спасли, спасибо

Fairuza · 03.03.2015, 21:37

Вариант.
chumich, самое время изучить Наименьший)))

Новые блоги и статьи Все статьи Все блоги /
Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .

Обработка таблиц

Решение

Решение

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119

	Обработка таблиц 02.03.2015, 13:27. Показов 3198. Ответов 42 Метки нет (Все метки) Приветствую. Никогда ранее я не занимался Excel-ем, но тут пришлось. Я, если честно, вообще не понимаю как тут всё устроено. Мне дали данную задачу: Составить программу назначения стипендии студентам по результату сессии, использую следующие правила: 1) Если все оценки 5, назначается повышенная стипендия. 2) Если оценки 4 и 5, назначается обычная стипендия. 3) Если есть оценка 3, стипендия не назначается. В результате должен быть напечатан список группы с оценками и средним баллом каждого студента и два списка фамилий (назначенных на обычную стипендию и повышенную). Очень прошу вашей помощи. 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	02.03.2015, 21:36 [ТС]
	А не могли бы Вы объяснить принцип действия кнопки "расчёт"?) И как её делать... Очень уж удобно получается. 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	02.03.2015, 22:04 [ТС]
	Такого я вообще не знал, вот что значит не учить программирование... А как посмотреть этот код макроса? Потому что теперь я уверен, что надо было делать программу без этого макроса. Потому нам точно такого не объясняли 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	02.03.2015, 22:28 [ТС]
	Ох, ночка будет длинная Ещё раз, спасибо! 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	02.03.2015, 23:18 [ТС]
	Вы несомненно правы Особенно пояснения помогу укоротить её, ещё раз - спасибо огромное! 0

@chumich 2081 / 1239 / 464 Регистрация: 20.12.2014 Сообщений: 3,234
	03.03.2015, 13:07
	Alex77755, согласен, не обратил внимания 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	03.03.2015, 17:29 [ТС]
	chumich, я конечно понимаю что обнаглел, но можно ли с Вами как-то связаться? Я сегодня попытался сдать данную задачу... Преподаватель вообще сказал по другому её делать. А как делать, я вообще теперь без понятия... 0

Fairuza 6027 / 3221 / 719 Регистрация: 23.11.2010 Сообщений: 10,760
	03.03.2015, 17:38
	Starkjkeee, как по другому не сказал? Вероятнее всего формулами и фильтром. Согласно Правилам все вопросы обсуждаются в теме. 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	03.03.2015, 17:55 [ТС]
	Это очень трудно объяснить письменно... Но я попытаюсь, раз такое дело. Как написано в условии: 1) Если все оценки 5, назначается повышенная стипендия. 2) Если оценки 4 и 5, назначается обычная стипендия. 3) Если есть оценка 3, стипендия не назначается. Тоесть, нет никакого среднего балла. У нас дано только 4 предмета по экзамену. И если оценки 5, 5, 5, 5 - то будет повышенная. НО, если 5, 5, 5, 4 - то уже будет обычная стипендия. А как это сделать с IF, я вообще не понимаю... 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	03.03.2015, 19:02 [ТС]
	Только Excel, без макросов. Потому что мы там глупые, не изучали их 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	03.03.2015, 20:18 [ТС]
	Блин, спасибо большое Но есть одно но, результат идёт не по среднему баллу... Тоесть именно по 4 предметам. Я сегодня специально уточнял... Вот это самое сложное для меня. Например: Оценки: 5,5,5,5 - повышенная НО, если оценки : 5,5,5,4 - обычная И вот как это сделать, без понятия 0

@Starkjkeee 0 / 0 / 1 Регистрация: 17.11.2013 Сообщений: 119
	03.03.2015, 20:49 [ТС]
	Спасибо огромнейшее! Надеюсь преподаватель не будет придираться Вы меня спасли, спасибо 0