В настоящее время я работаю над макросом для создания отчета о баллах студентов и показа процента в конце каждого студента.
Я думаю, что картина не требует пояснений. У меня есть данные о студентах, показанные слева, и я хочу, чтобы такой отчет был справа. Мне удалось создать макрос для 1 ученика и каждый раз выполнять повтор для каждого ученика, но я не знаю, как составлять отчеты для всех учеников одновременно и останавливаться, когда все ученики закончили.
Следующий код предназначен для создания новой строки при каждом появлении нового имени студента:
Dim iRow As Integer, iCol As Integer
Dim oRng As Range
Set oRng = Range("A4")
iRow = oRng.Row
iCol = oRng.Column
Do
'
If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
Cells(iRow + 1, iCol).EntireRow.Insert Shift:=xlDown
iRow = iRow + 2
Else
iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = ""
Но я не знаю, куда вводить код для расчета процентов.
ActiveCell.FormulaR1C1 = "=(R[-3]C+R[-2]C+R[-1]C)/COUNT(R[-3]C:R[-1]C)"
Я знаю, что это довольно просто рассчитать, но я не знаю, как это сделать. Я могу объединить клетки и создать ящик для клеток. Я не знаю, правильно ли я это делаю. Но если есть простой способ сделать это, пожалуйста, дайте мне знать. Я думаю, что иду по длинному маршруту, но я новичок в этом. И где я должен ввести код слияния, чтобы имя человека сливалось.
Пожалуйста, дайте мне знать, если что-то не понятно.
Заранее спасибо.
PS Я не учитель. Я просто хочу создать такой отчет