Gör din egen GUI (grafiskt användargränssnitt) utan Visual Studio i Microsoft Excel (4 / 10 steg)
Steg 4: Ange koden för varje verktyg
Markera varje kommandoknapp. och skriv koden för varje knappar.
Min kod är nedanstående, Observera att kommandoknappen bildtexten blir annorlunda.
Se denna rubrik för varje kommandoknapp. Dubbelklicka på CommandButton-knappen och skriv koden för varje kommando
Private Sub CommandButton14_Click()
"Additionsoperatorn
Ans.Text = Val(Op1.Text) + Val(Op2.Text)
End Sub
Private Sub CommandButton30_Click()
"Plus eller minus operatör
Ans.Text = - Ans.Text
End Sub
Private Sub CommandButton31_Click()
Om (Val(Op2.Text) = 0) sedan
"Divisionsoperatorn
Ans.Text = "Division med noll"
Exit Sub
Annat
Ans.Text = Val(Op1.Text) / Val(Op2.Text)
Slut om
End Sub
Private Sub
CommandButton32_Click()
"Multiplikationsoperatorn
Ans.Text = Val(Op1.Text) * Val(Op2.Text)
End Sub
Private Sub CommandButton33_Click()
"Minus operatör
Ans.Text = Val(Op1.Text) - Val(Op2.Text)
End Sub
Private Sub CommandButton35_Click()
"Kvadratroten operatör
Ans.Text = Ans.Text ^ (1 / 2).
End Sub
Private Sub CommandButton37_Click()
' 1 / x operatör
Om (Val(Ans.Text) = 0) sedan
Ans.Text = "Division med noll"
Exit Sub
Annat
Ans.Text = 1 / (Ans.Text)
Slut om
End Sub
Private Sub CommandButton38_Click()
Ans.Text = 0
End Sub
Private Sub UserForm_Click()
End Sub
För att automatiskt öppna UserForm när Excel är öppnade typ följande kod i ThisWorkbook
Private Sub Workbook_Open()
UserForm1.Show
End Sub