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

ListBox2.ListIndex = 0

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub br1_Change()

End Sub

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then

If kolgus Mod 8 = 0 Then

br1.Text = kolgus / 8

br8 = br1

br7 = br1

br6 = br1

br5 = br1

br4 = br1

br3 = br1

br2 = br1

Else

br1 = kolgus \ 8

br8 = br1

br7 = br1

br6 = br1

br5 = br1

br4 = br1

br3 = br1

br2 = br1

br1 = (kolgus \ 8) + (kolgus Mod 8)

End If

br1.Enabled = False