 |
| Excel 2010 |
Código utilizado:
Private Sub ToggleButton1_Click()
'variáveis
Dim num1 As Long
Dim num2 As Long
'atribui valor que estiver na caixa de texto
num1 = Me.tx1.Value
num2 = Me.tx2.Value
Me.txResultado.Value = num1 * num2
MsgBox "Operação realizada com sucesso"
End Sub
Nenhum comentário:
Postar um comentário