/p>
Range ("a12"). Value = Range ("L12"). Value
Range ("a13"). Value = Range ("L13"). Value
Range ("a14"). Value = Range ("L14"). Value
Range ("a15"). Value = Range ("L15"). Value
Range ("a16"). Value = Range ("L16"). Value
Range ("a17"). Value = Range ("L17"). Value
Range ("a18"). Value = Range ("L18"). Value
Range ("a19"). Value = Range ("L19"). Value
End Sub
FORM_MAIN
Private Sub CommandButton1_Click ()
Form_Koeff.Show
End Sub
Private Sub CommandButton2_Click ()
Form_Mnogo.Show
End Sub
Private Sub CommandButton3_Click ()
Gra
Form_Main.Height = 84
Sheets ("D1"). Select
Form_WP.Show
Form_Main.Height = 360
Sheets ("Лист1"). Select
End Sub
Private Sub CommandButton4_Click ()
Form_Korni.Show
End Sub
Private Sub CommandButton5_Click ()
Application.Quit
End Sub
Private Sub CommandButton7_Click ()
Form_About.Show
End Sub
Private Sub CommandButton8_Click ()
ActiveWorkbook.Save
End Sub
Private Sub UserForm_initialize ()
Sheets ("Лист1"). Select
Form_Main.Height = 360
End Sub
FORM_MNOGO
Dim mn As String
Private Sub CommandButton1_Click ()
Form_Mnogo.Hide
End Sub
Private Sub UserForm_activate ()
mn = "F (x) ="
If Range ("a20")> 0 Then mn = mn + Range ("a20"). Text + "X ^ 20"
If Range ("a20") <0 Then mn = mn + Range ("a20"). Text + "X ^ 20"
If Range ("a19")> 0 Then mn = mn + "+" + Range ("a19"). Text + "X ^ 19"
If Range ("a19") <0 Then mn = mn + Range ("a19"). Text + "X ^ 19"
If Range ("a18")> 0 Then mn = mn + "+" + Range ("a18"). Text + "X ^ 18"
If Range ("a18") <0 Then mn = mn + Range ("a18"). Text + "X ^ 18"
If Range ("a17")> 0 Then mn = mn + "+" + Range ("a17"). Text + "X ^ 17"
If Range ("a17") <0 Then mn = mn + Range ("a17"). Text + "X ^ 17"
If Range ("a16")> 0 Then mn = mn + "+" + Range ("a16"). Text + "X ^ 16"
If Range ("a16") <0 Then mn = mn + Range ("a16"). Text + "X ^ 16"
If Range ("a15")> 0 Then mn = mn + "+" + Range ("a15"). Text + "X ^ 15"
If Range ("a15") <0 Then mn = mn + Range ("a15"). Text + "X ^ 15"
If Range ("a14")> 0 Then mn = mn + "+" + Range ("a14"). Text + "X ^ 14"
If Range ("a14") <0 Then mn = mn + Range ("a14"). Text + "X ^ 14"
If Range ("a13")> 0 Then mn = mn + "+" + Range ("a13"). Text + "X ^ 13"
If Range ("a13") <0 Then mn = mn + Range ("a13"). Text + "X ^ 13"
If Range ("a12")> 0 Then mn = mn + "+" + Range ("a12"). Text + "X ^ 12"
