Private Sub CommandButton1_Click() On Error GoTo nada TextBox3 = Val(TextBox1) / Val(TextBox2) nada: End Sub Private Sub CommandButton2_Click() TextBox3 = Val(TextBox1) * Val(TextBox2) End Sub Private Sub CommandButton3_Click() TextBox3 = Val(TextBox1) - Val(TextBox2) End Sub Private Sub CommandButton4_Click() TextBox3 = Val(TextBox1) + Val(TextBox2) End Sub Private Sub CommandButton5_Click() For i = 1 To 3 Controls("TextBox" & i) = Empty Next TextBox1.SetFocus End Sub
porq copio el codigo y sale de largo no sale como en el tutorial
JaHiirTCK 4 months ago
This has been flagged as spam show
Gracias por ayudarnos a aprender como poder crear una calculadora ... pero seria bueno si hubiera audio para entender mejor..... gracias
judyta1704 1 year ago
racias por ayudarnosa aprender como poder crear una calculadora ... pero seria bueno si hubiera audio para entender mejor..... gracias
judyta1704 1 year ago
Excel2007Excel 1 year ago