По нажатию кнопок рассчитать - 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

Оцени полезность:

12 голосов , оценка 4.25 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы