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

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

ComboBox9.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox10.Text) = True Then

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

ComboBox10.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox11.Text) = True Then

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

ComboBox11.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox12.Text) = True Then

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

ComboBox12.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox13.Text) = True Then

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

ComboBox13.BackColor = &H80FF80

check2 = True

End If

End If

If IsNumeric(ComboBox14.Text) = True Then

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

ComboBox14.BackColor = &H80FF80

check2 = True

End If

End If

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

check4 = False                          'проверяем исходные данные на отрицательность

If Val(ComboBox1.Text) < 0 Then

ComboBox1.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox2.Text) < 0 Then

ComboBox2.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox3.Text) < 0 Then

ComboBox3.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox4.Text) < 0 Then

ComboBox4.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox5.Text) < 0 Then

ComboBox5.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox6.Text) < 0 Then

ComboBox6.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox7.Text) < 0 Then

ComboBox7.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox8.Text) < 0 Then

ComboBox8.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox9.Text) < 0 Then

ComboBox9.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox10.Text) < 0 Then

ComboBox10.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox11.Text) < 0 Then

ComboBox11.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox12.Text) < 0 Then

ComboBox12.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox13.Text) < 0 Then

ComboBox13.BackColor = &H80FF80

check4 = True

End If

If Val(ComboBox14.Text) < 0 Then

ComboBox14.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox1.Text) < 0 Then

TextBox1.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox2.Text) < 0 Then

TextBox2.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox3.Text) < 0 Then

TextBox3.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox4.Text) < 0 Then

TextBox4.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox5.Text) < 0 Then

TextBox5.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox6.Text) < 0 Then

TextBox6.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox7.Text) < 0 Then

TextBox7.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox8.Text) < 0 Then

TextBox8.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox9.Text) < 0 Then

TextBox9.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox10.Text) < 0 Then

TextBox10.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox11.Text) < 0 Then

TextBox11.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox12.Text) < 0 Then

TextBox12.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox13.Text) < 0 Then

TextBox13.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox14.Text) < 0 Then

TextBox14.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox15.Text) < 0 Then

TextBox15.BackColor = &H80FF80

check4 = True

End If

If Val(TextBox16.Text) < 0 Then

TextBox16.BackColor = &H80FF80

check4 = True

End If