Stap 4: Typ de code voor elke tools
Selecteer elke CommandButton. en typ de code voor elke knoppen.
Mijn code is hieronder gegeven, Houd er rekening mee dat het bijschrift van de opdrachtknop zullen afwijken.
Zie dat bijschrift voor elke opdrachtknop. Tweevoudig tikken voort naar de commandButton en type code voor elk van de opdrachten
Private Sub CommandButton14_Click()
' Operator voor optellen
Ans.Text = Val(Op1.Text) + Val(Op2.Text)
End Sub
Private Sub CommandButton30_Click()
' Plus of minus exploitant
Ans.Text = - Ans.Text
End Sub
Private Sub CommandButton31_Click()
Als (Val(Op2.Text) = 0) dan
' Operator voor delen
Ans.Text = "Delen door nul"
Exit Sub
Anders
Ans.Text = Val(Op1.Text) / Val(Op2.Text)
End If
End Sub
Private Sub
CommandButton32_Click()
' Operator voor vermenigvuldigen
Ans.Text = Val(Op1.Text) * Val(Op2.Text)
End Sub
Private Sub CommandButton33_Click()
' Minus exploitant
Ans.Text = Val(Op1.Text) - Val(Op2.Text)
End Sub
Private Sub CommandButton35_Click()
' Vierkantswortel exploitant
Ans.Text = Ans.Text ^ (1 / 2).
End Sub
Private Sub CommandButton37_Click()
' 1 / x exploitant
Als (Val(Ans.Text) = 0) dan
Ans.Text = "Delen door nul"
Exit Sub
Anders
Ans.Text = 1 / (Ans.Text)
End If
End Sub
Private Sub CommandButton38_Click()
Ans.Text = 0
End Sub
Private Sub UserForm_Click()
End Sub
Om automatisch open het gebruikersformulier wanneer Excel is geopend type de volgende code in de ThisWorkbook
Private Sub Workbook_Open()
UserForm1.Show
End Sub