Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Определение показателей успеваемости студентов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Определение показателей успеваемости студентов
tulakov77 Дата: Суббота, 18.02.2023, 17:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 80% ±

Добрый вечер в соседном форуме мне помогли. Но работа макроса не дошел до конца. Код макроса такой
[vba]
Код
Sub MMM()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(6, Columns.Count).End(xlToLeft).Column
With CreateObject("VBScript.RegExp")
.Pattern = "\[\d+\]"
.Global = True
Cells(6, LC + 1) = "O‘zlashtirish"
For i = 7 To LR
Sum = 0
For j = 4 To LC
If .Test(Cells(i, j)) Then Cells(i, j) = .Replace(Cells(i, j), "")
Sum = Sum + Cells(i, j).Value
Next
av = Round(Sum / (LC - 3), 0)
Select Case av
Case 1 To 60
Cells(i, LC + 1).Value = 2
Cells(i, LC + 1).Font.Color = vbYellow
Case 61 To 70
Cells(i, LC + 1).Value = 3
Cells(i, LC + 1).Font.Color = vbGreen
Case 71 To 90
Cells(i, LC + 1).Value = 4
Cells(i, LC + 1).Font.Color = vbBlue
Case 91 To 100
Cells(i, LC + 1).Value = 5
Cells(i, LC + 1).Font.Color = vbRed
End Select
Next

End With
End Sub
[/vba]
К сообщению приложен файл: uspevaemost.xlsm (27.8 Kb)


Сообщение отредактировал Serge_007 - Понедельник, 20.02.2023, 09:22
 
Ответить
СообщениеДобрый вечер в соседном форуме мне помогли. Но работа макроса не дошел до конца. Код макроса такой
[vba]
Код
Sub MMM()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(6, Columns.Count).End(xlToLeft).Column
With CreateObject("VBScript.RegExp")
.Pattern = "\[\d+\]"
.Global = True
Cells(6, LC + 1) = "O‘zlashtirish"
For i = 7 To LR
Sum = 0
For j = 4 To LC
If .Test(Cells(i, j)) Then Cells(i, j) = .Replace(Cells(i, j), "")
Sum = Sum + Cells(i, j).Value
Next
av = Round(Sum / (LC - 3), 0)
Select Case av
Case 1 To 60
Cells(i, LC + 1).Value = 2
Cells(i, LC + 1).Font.Color = vbYellow
Case 61 To 70
Cells(i, LC + 1).Value = 3
Cells(i, LC + 1).Font.Color = vbGreen
Case 71 To 90
Cells(i, LC + 1).Value = 4
Cells(i, LC + 1).Font.Color = vbBlue
Case 91 To 100
Cells(i, LC + 1).Value = 5
Cells(i, LC + 1).Font.Color = vbRed
End Select
Next

End With
End Sub
[/vba]

Автор - tulakov77
Дата добавления - 18.02.2023 в 17:49
tulakov77 Дата: Суббота, 18.02.2023, 17:50 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 80% ±

Макрос работаеть он должно сортировать оценки по убиванию сначала по “Davlat granti”, а затем по “To‘lov-shartnoma” и он только работаеть для одного листа. В файле будеть много таких одиноковых листов у ных разнича только в количество предметов (выходя из этого количество столбцов будеть разними).
В макросе еще одно условие следует ввести для студентов, обучающихся по “Davlat granti” в русским “Государственным грантам” им не будет назначено стипендия, если они 30% и более процентов от общего количества сданных экзаменов наберет 3 балла. Их успеваемость должен быть отмечен как 3 (неназначено).


Сообщение отредактировал tulakov77 - Суббота, 18.02.2023, 17:52
 
Ответить
СообщениеМакрос работаеть он должно сортировать оценки по убиванию сначала по “Davlat granti”, а затем по “To‘lov-shartnoma” и он только работаеть для одного листа. В файле будеть много таких одиноковых листов у ных разнича только в количество предметов (выходя из этого количество столбцов будеть разними).
В макросе еще одно условие следует ввести для студентов, обучающихся по “Davlat granti” в русским “Государственным грантам” им не будет назначено стипендия, если они 30% и более процентов от общего количества сданных экзаменов наберет 3 балла. Их успеваемость должен быть отмечен как 3 (неназначено).

Автор - tulakov77
Дата добавления - 18.02.2023 в 17:50
tulakov77 Дата: Воскресенье, 19.02.2023, 12:25 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 80% ±

Вот готова макрос но надо сделат маленкий доработку.Условия сортироват оценки по убиванию сначала по “Davlat granti”, а затем по “To‘lov-shartnoma” неработает полноценно. При сортировке они смещиваються.
К сообщению приложен файл: for_ulugbek_rev2.xlsm (43.5 Kb)


Сообщение отредактировал tulakov77 - Воскресенье, 19.02.2023, 12:26
 
Ответить
СообщениеВот готова макрос но надо сделат маленкий доработку.Условия сортироват оценки по убиванию сначала по “Davlat granti”, а затем по “To‘lov-shartnoma” неработает полноценно. При сортировке они смещиваються.

Автор - tulakov77
Дата добавления - 19.02.2023 в 12:25
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!