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