Информатика и выч. техника \ Информатика

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

UserForm2.ComboBox8.Visible = True

UserForm2.ComboBox9.Visible = True

UserForm2.ComboBox10.Visible = False

UserForm2.ComboBox11.Visible = False

UserForm2.ComboBox12.Visible = False

UserForm2.ComboBox13.Visible = False

UserForm2.ComboBox14.Visible = False

End If

If UserForm1.b = 3 Then

UserForm2.ComboBox1.Visible = True

UserForm2.ComboBox2.Visible = True

UserForm2.ComboBox3.Visible = True

UserForm2.ComboBox4.Visible = False

UserForm2.ComboBox5.Visible = False

UserForm2.ComboBox6.Visible = False

UserForm2.ComboBox7.Visible = False

End If

If UserForm1.a = 3 Then

UserForm2.ComboBox8.Visible = True

UserForm2.ComboBox9.Visible = True

UserForm2.ComboBox10.Visible = True

UserForm2.ComboBox11.Visible = False

UserForm2.ComboBox12.Visible = False

UserForm2.ComboBox13.Visible = False

UserForm2.ComboBox14.Visible = False

End If

If UserForm1.b = 4 Then

UserForm2.ComboBox1.Visible = True

UserForm2.ComboBox2.Visible = True

UserForm2.ComboBox3.Visible = True

UserForm2.ComboBox4.Visible = True

UserForm2.ComboBox5.Visible = False

UserForm2.ComboBox6.Visible = False

UserForm2.ComboBox7.Visible = False

End If

If UserForm1.a = 4 Then

UserForm2.ComboBox8.Visible = True

UserForm2.ComboBox9.Visible = True

UserForm2.ComboBox10.Visible = True

UserForm2.ComboBox11.Visible = True

UserForm2.ComboBox12.Visible = False

UserForm2.ComboBox13.Visible = False

UserForm2.ComboBox14.Visible = False

End If

If UserForm1.b = 5 Then

UserForm2.ComboBox1.Visible = True

UserForm2.ComboBox2.Visible = True

UserForm2.ComboBox3.Visible = True

UserForm2.ComboBox4.Visible = True

UserForm2.ComboBox5.Visible = True

UserForm2.ComboBox6.Visible = False

UserForm2.ComboBox7.Visible = False

End If

If UserForm1.a = 5 Then

UserForm2.ComboBox8.Visible = True

UserForm2.ComboBox9.Visible = True

UserForm2.ComboBox10.Visible = True

UserForm2.ComboBox11.Visible = True

UserForm2.ComboBox12.Visible = True

UserForm2.ComboBox13.Visible = False

UserForm2.ComboBox14.Visible = False

End If

If UserForm1.b = 6 Then

UserForm2.ComboBox1.Visible = True

UserForm2.ComboBox2.Visible = True

UserForm2.ComboBox3.Visible = True

UserForm2.ComboBox4.Visible = True

UserForm2.ComboBox5.Visible = True

UserForm2.ComboBox6.Visible = True

UserForm2.ComboBox7.Visible = False

End If

If UserForm1.a = 6 Then

UserForm2.ComboBox8.Visible = True

UserForm2.ComboBox9.Visible = True

UserForm2.ComboBox10.Visible = True

UserForm2.ComboBox11.Visible = True

UserForm2.ComboBox12.Visible = True

UserForm2.ComboBox13.Visible = True

UserForm2.ComboBox14.Visible = False

End If

If UserForm1.b = 7 Then

UserForm2.ComboBox1.Visible = True

UserForm2.ComboBox2.Visible = True

UserForm2.ComboBox3.Visible = True

UserForm2.ComboBox4.Visible = True

UserForm2.ComboBox5.Visible = True

UserForm2.ComboBox6.Visible = True

UserForm2.ComboBox7.Visible = True

End If

If UserForm1.a = 7 Then

UserForm2.ComboBox8.Visible = True

UserForm2.ComboBox9.Visible = True

UserForm2.ComboBox10.Visible = True

UserForm2.ComboBox11.Visible = True

UserForm2.ComboBox12.Visible = True

UserForm2.ComboBox13.Visible = True

UserForm2.ComboBox14.Visible = True

End If

Me.Hide

UserForm2.Show

End Sub

Private Sub CommandButton2_Click()

UserForm3.Show

End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

For i = 1 To 7 Step 1

With ComboBox1

.AddItem i

End With

Next i

For i = 1 To 7 Step 1

With ComboBox2

.AddItem i

End With

Next i

End Sub

UserForm2

Private Sub CommandButton1_Click()

Dim потр() As Integer

Dim пост() As Integer

Dim потр_пост(1 To 7) As Integer

Dim m(1 To 7, 1 To 7) As Integer

Dim metka(1 To 7, 1 To 7) As String

Dim n(1 To 7, 1 To 7) As Integer

Dim i As Integer

Dim k As Integer

Dim h As Integer

Dim tarif(1 To 9) As Double

Dim kol_potr() As Double

Dim kol_post() As Double

TextBox1.BackColor = &H8000000F

TextBox2.BackColor = &H8000000F

TextBox3.BackColor = &H8000000F

TextBox4.BackColor = &H8000000F

TextBox5.BackColor = &H8000000F

Скачать файл