p>
If Range ("a12") <0 Then mn = mn + Range ("a12"). Text + "X ^ 12"
If Range ("a11")> 0 Then mn = mn + "+" + Range ("a11"). Text + "X ^ 11"
If Range ("a11") <0 Then mn = mn + Range ("a11"). Text + "X ^ 11"
If Range ("a10")> 0 Then mn = mn + "+" + Range ("a10"). Text + "X ^ 10"
If Range ("a10") <0 Then mn = mn + Range ("a10"). Text + "X ^ 10"
If Range ("a9")> 0 Then mn = mn + "+" + Range ("a9"). Text + "X ^ 9"
If Range ("a9") <0 Then mn = mn + Range ("a9"). Text + "X ^ 9"
If Range ("a8")> 0 Then mn = mn + "+" + Range ("a8"). Text + "X ^ 8"
If Range ("a8") <0 Then mn = mn + Range ("a8"). Text + "X ^ 8"
If Range ("a7")> 0 Then mn = mn + "+" + Range ("a7"). Text + "X ^ 7"
If Range ("a7") <0 Then mn = mn + Range ("a7"). Text + "X ^ 7"
If Range ("a6")> 0 Then mn = mn + "+" + Range ("a6"). Text + "X ^ 6"
If Range ("a6") <0 Then mn = mn + Range ("a6"). Text + "X ^ 6"
If Range ("a5")> 0 Then mn = mn + "+" + Range ("a5"). Text + "X ^ 5"
If Range ("a5") <0 Then mn = mn + Range ("a5"). Text + "X ^ 5"
If Range ("a4")> 0 Then mn = mn + "+" + Range ("a4"). Text + "X ^ 4"
If Range ("a4") <0 Then mn = mn + Range ("a4"). Text + "X ^ 4"
If Range ("a3")> 0 Then mn = mn + "+" + Range ("a3"). Text + "X ^ 3"
If Range ("a3") <0 Then mn = mn + Range ("a3"). Text + "X ^ 3"
If Range ("a2")> 0 Then mn = mn + "+" + Range ("a2"). Text + "X ^ 2"
If Range ("a2") <0 Then mn = mn + Range ("a2"). Text + "X ^ 2"
If Range ("a1")> 0 Then mn = mn + "+" + Range ("a1"). Text + "X"
If Range ("a1") <0 Then mn = mn + Range ("a8"). Text + "X"
If Range ("a21")> 0 Then mn = mn + "+" + Range ("a21"). Text
If Range ("a21") <0 Then mn = mn + Range ("a21"). Text
TextBox1.Value = mn
End Sub
FORM_WP
Private Sub Label1_Click ()
Call Gra
End Sub
Private Sub CommandButton1_Click ()
Sheets ("D1"). Print
End Sub
Private Sub CommandButton2_Click ()
Form_WP.Hide
Call Gra
End Sub
Private Sub UserForm_Click ()
Form_WP.Hide
End Sub
____________________________
VoID InVaSiON HG В©
VI Function 2.0 beta ​​h4>
[1] Цей факт був доведений відомими математиками Абель і Галуа.