Подсчет баллов у студенов за период

RSS

Подсчет баллов у студенов за период, Посчитать суммы балов за тесты

Voiage

Пользователь

Сообщений: 12 Регистрация: 04.11.2019

05.03.2022 01:12:49

Здравствуйте!
Душещепательная история одного недо "тыжпрограмист" который неделю не может придмуть как посчитать

Пожалуйста, помогите!

скрин исходников

все что в таблице - рандомные значения и фамилии, любое совпадение - случайность

Скрытый текст
https://gyazo.com/df7f11c90f8e5a764aed993a247ca8c3

Ломаю голову над решением
Необходимо посчитать сумму баллов у студентов
студенты разные и нет 100% точных списков чтобы присводить каждому свой ID

Проблема заключается в следующем - за период #A2 по период #A3 нужно указать списком студентов и сумму баллов которые они набрали

Скрытый текст
https://gyazo.com/4167a11be68bb7cfe946b4634476914a

ссылка на Google Sheets
(пожалуйста создавайте новые листы если будете редактировать)
https://docs.google.com/spreadsheets/d/15wDhhgyVSR5AEbq4i4Qffn7XjNwecO7UPLgfBj3N6zY/edit?usp=sharing

так же .Xlsx добавлен в файлы

Результат который должен отображаться

Скрытый текст
https://gyazo.com/120a6159d2c47473f570905072bf270f

Прикрепленные файлы

Студенты (1).xlsx (17.57 КБ)

Изменено: Voiage - 05.03.2022 04:26:21

Александр П. Пользователь Сообщений: 1201 Регистрация: 16.03.2016	#2 05.03.2022 05:42:28 Вариант Прикрепленные файлы Студенты (1).xlsm (32.8 КБ)

Voiage

Пользователь

Сообщений: 12 Регистрация: 04.11.2019

05.03.2022 07:26:41

Цитата
написал: Вариант

я прошу прощения, но у меня всего одна формула прогрузилась

Скрытый текст
="сумма балов за период c "&TEXT(B2;"DD/MM/YYYY")&" по "&TEXT(B3;"DD/MM/YYYY") https://gyazo.com/6e91d02fef913add5a3f4c204d58ea92

возможно ли сделать пост с формулой сюда?
как был произведен просчет студентов и суммы

Скрытый текст
https://gyazo.com/a0ca6848c085fd2db425441442dfe6bc

Александр П.

Пользователь

Сообщений: 1201 Регистрация: 16.03.2016

05.03.2022 07:28:05

, Подсчет делается макросом по нажатию кнопки на листе "Необходимо"

Код

Sub test()
Dim dicTemp As Object
Set dicTemp = CreateObject("Scripting.Dictionary")
With Sheets(1)
lrow = .Cells(1, 1).End(xlDown).Row
    For i = 2 To lrow
        If .Cells(i, "G") >= Sheets(2).Range("B2") And .Cells(i, "G") <= Sheets(2).Range("B3") Then
        arrFIO = Split(.Cells(i, "F"), "/")
                For j = LBound(arrFIO) To UBound(arrFIO)
                    If dicTemp.Exists(arrFIO(j)) = False Then
                        dicTemp.Add arrFIO(j), Split(.Cells(i, "D"), "/")(j)
                    Else
                        dicTemp.Item(arrFIO(j)) = --dicTemp.Item(arrFIO(j)) + --Split(.Cells(i, "D"), "/")(j)
                    End If
                Next j
        End If
    Next i
End With
Sheets(2).Range("A5").Resize(dicTemp.Count, 1) = WorksheetFunction.Transpose(dicTemp.Keys)
Sheets(2).Range("B5").Resize(dicTemp.Count, 1) = WorksheetFunction.Transpose(dicTemp.Items)
End Sub

Изменено: Александр П. - 05.03.2022 07:31:40

Voiage Пользователь Сообщений: 12 Регистрация: 04.11.2019	#5 05.03.2022 08:05:24 , Работает великолепно! Но я ничего не понимаю как оно работает Возможно ли перенести данный макрос, или реализовать в Google Sheet для удобства?