Étape 4: Entrez le code de chaque outils
Sélectionnez chaque contrôle CommandButton. et tapez le code pour chaque boutons.
Mon code est donné ci-dessous, s’il vous plaît noter que la légende du bouton de commande sera différente.
S’il vous plaît voir cette légende pour chaque bouton de commande. Double-cliquez sur le contrôle commandButton et type de code pour chacune des commandes
Private Sub CommandButton14_Click()
' Opérateur d’addition
Ans.Text = Val(Op1.Text) + Val(Op2.Text)
End Sub
Private Sub CommandButton30_Click()
"Plus ou moins opérateur
Ans.Text = - Ans.Text
End Sub
Private Sub CommandButton31_Click()
Si (Val(Op2.Text) = 0) alors
« Opérateur de division
Ans.Text = « Division par zéro »
Exit Sub
D’autre
Ans.Text = Val(Op1.Text) / Val(Op2.Text)
End If
End Sub
Private void
CommandButton32_Click()
« Opérateur de multiplication
Ans.Text = Val(Op1.Text) * Val(Op2.Text)
End Sub
Private Sub CommandButton33_Click()
' Opérateur moins
Ans.Text = Val(Op1.Text) - Val(Op2.Text)
End Sub
Private Sub CommandButton35_Click()
« Opérateur de racine carrée
Ans.Text = Ans.Text ^ (1 / 2).
End Sub
Private Sub CommandButton37_Click()
1 / x opérateur
Si (Val(Ans.Text) = 0) alors
Ans.Text = « Division par zéro »
Exit Sub
D’autre
Ans.Text = 1 / (Ans.Text)
End If
End Sub
Private Sub CommandButton38_Click()
Ans.Text = 0
End Sub
Private Sub UserForm_Click()
End Sub
Afin d’ouvre automatiquement l’objet UserForm lorsque Excel est ouvert type le code suivant dans le ThisWorkbook
Private Sub Workbook_Open()
UserForm1.Show
End Sub