По нажатию кнопок рассчитать - VBA
Формулировка задачи:
Помогите пожалуйста. По нажатию кнопок рассчитать: общую сумму стипендий по заданной группе и среднемесячную стипендию этой группы. Вывести в textbox1 и textbox2.
Решение задачи: «По нажатию кнопок рассчитать»
textual
Листинг программы
Private Sub CommandButton1_Click()
Dim RowCount As Integer, I As Integer, Sum As Long
Dim Group As String
RowCount = Worksheets("Лист1").UsedRange.Rows.Count
Group = TextBox3.Text
For I = 2 To RowCount
If Cells(I, 3).Value = Group Then Sum = Sum + Cells(I, 4).Value
Next I
TextBox1.Text = Sum
End Sub