Курсовая работа: Разработка программы на языке VBA для птицеводческого хозяйства

br3.Enabled = False

br4.Enabled = False

br5.Enabled = False

br6.Enabled = False

br7.Enabled = False

br8.Enabled = False

Else

br1.Enabled = True

br2.Enabled = True

br3.Enabled = True

br4.Enabled = True

br5.Enabled = True

br6.Enabled = True

br7.Enabled = True

br8.Enabled = True

End If

End Sub

Private Sub CommandButton1_Click()

kol = 123

kol = br1 / 1 + br2 / 1 + br3 / 1 + br4 / 1 + br5 / 1 + br6 / 1 + br7 / 1 + br8 / 1

If kol / 1 = kolgus / 1 Then

Sheets("Фермы").Cells(2, 3) = br1

Sheets("Фермы").Cells(3, 3) = br2

Sheets("Фермы").Cells(4, 3) = br3

Sheets("Фермы").Cells(5, 3) = br4

Sheets("Фермы").Cells(6, 3) = br5

Sheets("Фермы").Cells(7, 3) = br6

Sheets("Фермы").Cells(8, 3) = br7

Sheets("Фермы").Cells(9, 3) = br8