Реализация программного модуля, на встроенном языке программирования Visual Basic for Application (VBA), страница 8

TextBox6.BackColor = &H8000000F

TextBox7.BackColor = &H8000000F

TextBox8.BackColor = &H8000000F

TextBox9.BackColor = &H8000000F

TextBox10.BackColor = &H8000000F

TextBox11.BackColor = &H8000000F

TextBox12.BackColor = &H8000000F

TextBox13.BackColor = &H8000000F

TextBox14.BackColor = &H8000000F

TextBox15.BackColor = &H8000000F

TextBox16.BackColor = &H8000000F

ComboBox1.BackColor = &H8000000F

ComboBox2.BackColor = &H8000000F

ComboBox3.BackColor = &H8000000F

ComboBox4.BackColor = &H8000000F

ComboBox5.BackColor = &H8000000F

ComboBox6.BackColor = &H8000000F

ComboBox7.BackColor = &H8000000F

ComboBox8.BackColor = &H8000000F

ComboBox9.BackColor = &H8000000F

ComboBox10.BackColor = &H8000000F

ComboBox11.BackColor = &H8000000F

ComboBox12.BackColor = &H8000000F

ComboBox13.BackColor = &H8000000F

ComboBox14.BackColor = &H8000000F

'проверка на ввод символов

check = False

If IsNumeric(TextBox1.Text) = False Then TextBox1.BackColor = &H80FF80: check = True

If IsNumeric(TextBox2.Text) = False Then TextBox2.BackColor = &H80FF80: check = True

If IsNumeric(TextBox3.Text) = False Then TextBox3.BackColor = &H80FF80: check = True

If IsNumeric(TextBox4.Text) = False Then TextBox4.BackColor = &H80FF80: check = True

If IsNumeric(TextBox5.Text) = False Then TextBox5.BackColor = &H80FF80: check = True

If IsNumeric(TextBox6.Text) = False Then TextBox6.BackColor = &H80FF80: check = True

If IsNumeric(TextBox7.Text) = False Then TextBox7.BackColor = &H80FF80: check = True

If IsNumeric(TextBox8.Text) = False Then TextBox8.BackColor = &H80FF80: check = True

If IsNumeric(TextBox9.Text) = False Then TextBox9.BackColor = &H80FF80: check = True

If IsNumeric(TextBox10.Text) = False Then TextBox10.BackColor = &H80FF80: check = True

If IsNumeric(TextBox11.Text) = False Then TextBox11.BackColor = &H80FF80: check = True

If IsNumeric(TextBox12.Text) = False Then TextBox12.BackColor = &H80FF80: check = True

If IsNumeric(TextBox13.Text) = False Then TextBox13.BackColor = &H80FF80: check = True

If IsNumeric(TextBox14.Text) = False Then TextBox14.BackColor = &H80FF80: check = True

If IsNumeric(TextBox15.Text) = False Then TextBox15.BackColor = &H80FF80: check = True

If IsNumeric(TextBox16.Text) = False Then TextBox16.BackColor = &H80FF80: check = True

If check = True Then MsgBox "Некорректный ввод данных", vbCritical, "Ошибка": Exit Sub

'проверканацелочисленность

check2 = False

If IsNumeric(ComboBox1.Text) = True Then

If ComboBox1.Text - Val(ComboBox1.Text) > 0.0000001 Then

ComboBox1.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox2.Text) = True Then

If ComboBox2.Text - Val(ComboBox2.Text) > 0.0000001 Then

ComboBox2.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox3.Text) = True Then

If ComboBox3.Text - Val(ComboBox3.Text) > 0.0000001 Then

ComboBox3.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox4.Text) = True Then

If ComboBox4.Text - Val(ComboBox4.Text) > 0.0000001 Then

ComboBox4.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox5.Text) = True Then

If ComboBox5.Text - Val(ComboBox5.Text) > 0.0000001 Then

ComboBox5.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox6.Text) = True Then

If ComboBox6.Text - Val(ComboBox6.Text) > 0.0000001 Then

ComboBox6.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox7.Text) = True Then

If ComboBox7.Text - Val(ComboBox7.Text) > 0.0000001 Then

ComboBox7.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox8.Text) = True Then

If ComboBox8.Text - Val(ComboBox8.Text) > 0.0000001 Then

ComboBox8.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox9.Text) = True Then