Приложение Б Листинг расчета в VBA

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

i1 = 1

l1 = 9

Do

If (i1 <> 13) And (l1 <> 1) Then

   If (Cells(l1 - 2, i1) <= Cells(l1, i1 + 2)) And (Cells(l1 - 1, i1).Font.Italic = True) Then

       Cells(l1 - 2, i1).Interior.Color = 150

       l1 = l1 - 2

       i1 = i1

   ElseIf (Cells(l1 - 2, i1) >= Cells(l1, i1 + 2)) And (Cells(l1, i1 + 1).Font.Italic = True) Then

       Cells(l1, i1 + 2).Interior.Color = 150

       l1 = l1

       i1 = i1 + 2

   ElseIf Cells(l1, i1 + 1).Font.Italic = True Then

       Cells(l1, i1 + 2).Interior.Color = 150

       l1 = l1

       i1 = i1 + 2

   ElseIf Cells(l1 - 1, i1).Font.Italic = True Then

       Cells(l1 - 2, i1).Interior.Color = 150

       l1 = l1 - 2

       i1 = i1

   End If

ElseIf (i1 = 13) And (l1 <> 1) Then

   Cells(l1 - 2, i1).Interior.Color = 150

   l1 = l1 - 2

   i1 = i1

ElseIf (i1 <> 13) And (l1 = 1) Then

   Cells(l1, i1 + 2).Interior.Color = 150

   l1 = l1

   i1 = i1 + 2

ElseIf (i1 = 13) And (l1 = 1) Then

   Cells(l1, i1).Interior.Color = 150

   Exit Do

              

   

   

End If

Loop While (Cells(1, 13).Interior.Color <> 150)

End Sub

Function vvod()

Worksheets("Лист1").Range("B1") = TextBox1.Text

Worksheets("Лист1").Range("D1") = TextBox2.Text

Worksheets("Лист1").Range("F1") = TextBox3.Text

Worksheets("Лист1").Range("H1") = TextBox4.Text

Worksheets("Лист1").Range("J1") = TextBox5.Text

Worksheets("Лист1").Range("L1") = TextBox6.Text

Worksheets("Лист1").Range("A2") = TextBox7.Text

Worksheets("Лист1").Range("C2") = TextBox8.Text

Worksheets("Лист1").Range("E2") = TextBox9.Text

Worksheets("Лист1").Range("G2") = TextBox10.Text

Worksheets("Лист1").Range("I2") = TextBox11.Text

Worksheets("Лист1").Range("K2") = TextBox12.Text

Worksheets("Лист1").Range("M2") = TextBox13.Text

Worksheets("Лист1").Range("B3") = TextBox14.Text

Worksheets("Лист1").Range("D3") = TextBox15.Text

Worksheets("Лист1").Range("F3") = TextBox16.Text

Worksheets("Лист1").Range("H3") = TextBox17.Text

Worksheets("Лист1").Range("J3") = TextBox18.Text

Worksheets("Лист1").Range("L3") = TextBox19.Text

Worksheets("Лист1").Range("A4") = TextBox21.Text

Worksheets("Лист1").Range("C4") = TextBox22.Text

Worksheets("Лист1").Range("E4") = TextBox23.Text

Worksheets("Лист1").Range("G4") = TextBox24.Text

Worksheets("Лист1").Range("I4") = TextBox25.Text

Worksheets("Лист1").Range("K4") = TextBox26.Text

Worksheets("Лист1").Range("M4") = TextBox20.Text

Worksheets("Лист1").Range("B5") = TextBox28.Text

Worksheets("Лист1").Range("D5") = TextBox29.Text

Worksheets("Лист1").Range("F5") = TextBox30.Text

Worksheets("Лист1").Range("H5") = TextBox31.Text

Worksheets("Лист1").Range("J5") = TextBox32.Text

Worksheets("Лист1").Range("L5") = TextBox27.Text

Worksheets("Лист1").Range("A6") = TextBox34.Text

Worksheets("Лист1").Range("C6") = TextBox35.Text

Worksheets("Лист1").Range("E6") = TextBox36.Text

Worksheets("Лист1").Range("G6") = TextBox37.Text

Worksheets("Лист1").Range("I6") = TextBox38.Text

Worksheets("Лист1").Range("K6") = TextBox39.Text

Worksheets("Лист1").Range("M6") = TextBox33.Text

Worksheets("Лист1").Range("B7") = TextBox41.Text

Worksheets("Лист1").Range("D7") = TextBox42.Text

Worksheets("Лист1").Range("F7") = TextBox43.Text

Worksheets("Лист1").Range("H7") = TextBox44.Text

Worksheets("Лист1").Range("J7") = TextBox45.Text

Worksheets("Лист1").Range("L7") = TextBox40.Text

Worksheets("Лист1").Range("A8") = TextBox47.Text

Worksheets("Лист1").Range("C8") = TextBox48.Text

Worksheets("Лист1").Range("E8") = TextBox49.Text

Worksheets("Лист1").Range("G8") = TextBox50.Text

Worksheets("Лист1").Range("I8") = TextBox51.Text

Worksheets("Лист1").Range("K8") = TextBox52.Text

Worksheets("Лист1").Range("M8") = TextBox46.Text

Worksheets("Лист1").Range("B9") = TextBox54.Text

Worksheets("Лист1").Range("D9") = TextBox55.Text

Worksheets("Лист1").Range("F9") = TextBox56.Text

Worksheets("Лист1").Range("H9") = TextBox57.Text

Worksheets("Лист1").Range("J9") = TextBox58.Text

Worksheets("Лист1").Range("L9") = TextBox53.Text

Worksheets("Лист1").Range("m1") = "0"

Range("a9").Interior.Color = 150

Range("k1") = Range("m1") + Range("l1")

Range("i1") = Range("k1") + Range("j1")

Range("g1") = Range("i1") + Range("h1")

Range("e1") = Range("g1") + Range("f1")

Range("c1") = Range("e1") + Range("d1")

Range("a1") = Range("c1") + Range("b1")

Range("m3") = Range("m1") + Range("m2")

Range("m5") = Range("m3") + Range("m4")

Range("m7") = Range("m5") + Range("m6")

Range("m9") = Range("m7") + Range("m8")

 

 

If (Range("K1") + Range("K2")) <= (Range("M3") + Range("L3")) Then

Range("K3") = Range("K1") + Range("K2")

Range("k2").Font.Italic = True

Else: Range("K3") = Range("M3") + Range("L3")

Range("l3").Font.Italic = True

End If

If (Range("I1") + Range("I2")) <= (Range("K3") + Range("J3")) Then

Range("I3") = Range("I1") + Range("I2")

Range("i2").Font.Italic = True

Else: Range("I3") = Range("K3") + Range("j3")

Range("j3").Font.Italic = True

End If

If (Range("g1") + Range("g2")) <= (Range("i3") + Range("h3")) Then

Range("g3") = Range("g1") + Range("g2")

Range("g2").Font.Italic = True

Else: Range("g3") = Range("i3") + Range("h3")

Range("h3").Font.Italic = True

End If

If (Range("e1") + Range("e2")) <= (Range("g3") + Range("f3")) Then

Range("e3") = Range("e1") + Range("e2")

Range("e2").Font.Italic = True

Else: Range("e3") = Range("g3") + Range("f3")

Range("f3").Font.Italic = True

End If

If (Range("c1") + Range("c2")) <= (Range("e3") + Range("d3")) Then

 Range("c3") = Range("c1") + Range("c2")

Range("c2").Font.Italic = True

Else: Range("c3") = Range("e3") + Range("d3")

Range("d3").Font.Italic = True

End If

If (Range("a1") + Range("a2")) <= (Range("c3") + Range("b3")) Then

Range("a3") = Range("a1") + Range("a2")

Range("a2").Font.Italic = True

Else: Range("a3") = Range("c3") + Range("b3")

Range("b3").Font.Italic = True

End If

If (Range("K3") + Range("K4")) <= (Range("M5") + Range("L5")) Then

Range("K5") = Range("K3") + Range("K4")

Range("k4").Font.Italic = True

Else: Range("K5") = Range("M5") + Range("L5")

Range("l5").Font.Italic = True

End If

If (Range("i3") + Range("i4")) <= (Range("k5") + Range("j5")) Then

Range("i5") = Range("i3") + Range("i4")

Range("i4").Font.Italic = True

Else: Range("i5") = Range("k5") + Range("j5")

Range("j5").Font.Italic = True

End If

If (Range("g3") + Range("g4")) <= (Range("i5") + Range("h5")) Then

Range("g5") = Range("g3") + Range("g4")

Range("g4").Font.Italic = True

Else: Range("ig") = Range("i5") + Range("h5")

Range("h5").Font.Italic = True

End If

If (Range("e3") + Range("e4")) <= (Range("g5") + Range("f5")) Then

Range("e5") = Range("e3") + Range("e4")

Range("e4").Font.Italic = True

Else: Range("e5") = Range("g5") + Range("f5")

Range("f5").Font.Italic = True

End If

If (Range("c3") + Range("c4")) <= (Range("e5") + Range("d5")) Then

Range("c5") = Range("c3") + Range("c4")

Range("c4").Font.Italic = True

Else: Range("c5") = Range("e5") + Range("d5")

Range("d5").Font.Italic = True

End If

If (Range("a3") + Range("a4")) <= (Range("c5") + Range("b5")) Then

Range("a5") = Range("a3") + Range("a4")

Range("a4").Font.Italic = True

Else: Range("a5") = Range("c5") + Range("b5")

Range("b5").Font.Italic = True

End If

If (Range("k5") + Range("k6")) <= (Range("m7") + Range("l7")) Then

Range("k7") = Range("k5") + Range("k6")

Range("k6").Font.Italic = True

Else: Range("k7") = Range("m7") + Range("l7")

Range("l7").Font.Italic = True

End If

If (Range("i5") + Range("i6")) <= (Range("k7") + Range("j7")) Then

Range("i7") = Range("i5") + Range("i6")

Range("i6").Font.Italic = True

Else: Range("i7") = Range("k7") + Range("j7")

Range("j7").Font.Italic = True

End If

If (Range("g5") + Range("g6")) <= (Range("i7") + Range("h7")) Then

Range("g7") = Range("g5") + Range("g6")

Range("g6").Font.Italic = True

Else: Range("g7") = Range("i7") + Range("h7")

Range("h7").Font.Italic = True

End If

If (Range("e5") + Range("e6")) <= (Range("g7") + Range("f7")) Then

Range("e7") = Range("e5") + Range("e6")

Range("e6").Font.Italic = True

Else: Range("e7") = Range("g7") + Range("f7")

Range("f7").Font.Italic = True

End If

If (Range("c5") + Range("c6")) <= (Range("e7") + Range("d7")) Then

Range("c7") = Range("c5") + Range("c6")

Range("c6").Font.Italic = True

Else: Range("c7") = Range("e7") + Range("d7")

Range("d7").Font.Italic = True

End If

If (Range("a5") + Range("a6")) <= (Range("c7") + Range("b7")) Then

Range("a7") = Range("a5") + Range("a6")

Range("a6").Font.Italic = True

Else: Range("a7") = Range("c7") + Range("b7")

Range("b7").Font.Italic = True

End If

If (Range("k5") + Range("k6")) <= (Range("m7") + Range("l7")) Then

Range("k7") = Range("k5") + Range("k6")

Range("k6").Font.Italic = True

Else: Range("k7") = Range("m7") + Range("l7")

Range("l7").Font.Italic = True

End If

If (Range("k7") + Range("k8")) <= (Range("m9") + Range("l9")) Then

Range("k9") = Range("k7") + Range("k8")

Range("k8").Font.Italic = True

Else: Range("k9") = Range("m9") + Range("l9")

Range("l9").Font.Italic = True

End If

If (Range("i7") + Range("i8")) <= (Range("k9") + Range("j9")) Then

Range("i9") = Range("i7") + Range("i8")

Range("i8").Font.Italic = True

Else: Range("i9") = Range("k9") + Range("j9")

Range("j9").Font.Italic = True

End If

If (Range("g7") + Range("g8")) <= (Range("i9") + Range("h9")) Then

Range("g9") = Range("g7") + Range("g8")

Range("g8").Font.Italic = True

Else: Range("g9") = Range("i9") + Range("h9")

Range("h9").Font.Italic = True

End If

If (Range("e7") + Range("e8")) <= (Range("g9") + Range("f9")) Then

Range("e9") = Range("e7") + Range("e8")

Range("e8").Font.Italic = True

Else: Range("e9") = Range("g9") + Range("f9")

Range("f9").Font.Italic = True

End If

If (Range("c7") + Range("c8")) <= (Range("e9") + Range("d9")) Then

Range("c9") = Range("c7") + Range("c8")

Range("c8").Font.Italic = True

Else: Range("c9") = Range("e9") + Range("d9")

Range("d9").Font.Italic = True

End If

If (Range("a7") + Range("a8")) <= (Range("c9") + Range("b9")) Then

Range("a9") = Range("a7") + Range("a8")

Range("a8").Font.Italic = True

Else: Range("a9") = Range("c9") + Range("b9")

Range("b9").Font.Italic = True

End If

End Function

Private Sub CommandButton2_Click()

TextBox1.Text = "10"

TextBox2.Text = "8"

 TextBox3.Text = "9"

TextBox4.Text = "11"

 TextBox5.Text = "13"

 TextBox6.Text = "12"

 TextBox7.Text = "15"

TextBox8.Text = "14"

 TextBox9.Text = "13"

 TextBox10.Text = "12"

 TextBox11.Text = "11"

 TextBox12.Text = "10"

 TextBox13.Text = "9"

 TextBox14.Text = "12"

TextBox15.Text = "13"

TextBox16.Text = "14"

 TextBox17.Text = "15"

 TextBox18.Text = "14"

 TextBox19.Text = "13"

 TextBox21.Text = "11"

 TextBox22.Text = "13"

 TextBox23.Text = "12"

 TextBox24.Text = "14"

 TextBox25.Text = "13"

 TextBox26.Text = "15"

 TextBox20.Text = "10"

 TextBox28.Text = "18"

 TextBox29.Text = "19"

 TextBox30.Text = "20"

 TextBox31.Text = "21"

 TextBox32.Text = "18"

 TextBox27.Text = "19"

 TextBox34.Text = "10"

 TextBox35.Text = "10"

 TextBox36.Text = "13"

 TextBox37.Text = "11"

 TextBox38.Text = "12"

 TextBox39.Text = "14"

 TextBox33.Text = "11"

 TextBox41.Text = "10"

 TextBox42.Text = "10"

 TextBox43.Text = "12"

TextBox44.Text = "12"

 TextBox45.Text = "13"

 TextBox40.Text = "18"

TextBox47.Text = "9"

 TextBox48.Text = "10"

 TextBox49.Text = "12"

 TextBox50.Text = "15"

 TextBox51.Text = "13"

TextBox52.Text = "16"

TextBox46.Text = "19"

 TextBox54.Text = "13"

 TextBox55.Text = "15"

 TextBox56.Text = "10"

 TextBox57.Text = "14"

TextBox58.Text = "16"

TextBox53.Text = "17"

 

End Sub