Вод выдаваемых кормов по кнопке «Кормление»

Расчет полученных результатов по кнопке «Расчет»

5. Листинг программы

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()

For i = 1 To 8

For j = 1 To 5

Sheets("Кормление").Cells(i + 1, j + 1) = 30 * Sheets("Фермы").Cells(11, 2) * Sheets("Фермы").Cells(i + 1, 3)

Next j

Next i

End Sub

Private Sub CommandButton2_Click()

Sheets("Кормление").Cells(ListBox1.ListIndex + 2, ListBox2.ListIndex + 2) = Val(TextBox1)

End Sub

Private Sub ListBox1_Click()

TextBox1.Text = Sheets("Кормление").Cells(ListBox1.ListIndex + 2, ListBox2.ListIndex + 2)

End Sub

Private Sub ListBox2_Click()

TextBox1.Text = Sheets("Кормление").Cells(ListBox1.ListIndex + 2, ListBox2.ListIndex + 2)

End Sub

Private Sub UserForm_Activate()

For i = 1 To 8

ListBox1.AddItem (Sheets("Кормление").Cells(i + 1, 2))

Next i

For i = 1 To 6

ListBox2.AddItem (Sheets("Кормление").Cells(1, i + 2))

Next i