Crear Calculadora desde Excel:
Utilizando estos códigos podemos crear una calculadora de función clásica forma correcta.. paso a pasos.
El Dim se coloca después que hemos introducidos todos nuestros código o hallamos configurado nuestra calculadora.
Dim num1 As Double
Dim num2 As Double
Dim op As String
Estos se colocan a todos los numero inciando en el 1 y terminando en el 0 (1 al ).
Private Sub CommandButton1_Click()
X.Text = X.Text & 1
End Sub
Private Sub CommandButton10_Click()
X.Text = X.Text & 6
End Sub
Private Sub CommandButton11_Click()
X.Text = X.Text & 9
End Sub
Estas estos son los códigos del signo de igual:
Private Sub CommandButton12_Click()
num2 = X.Text
If op = "+" Then
X = num1 + num2
End If
If op = "*" Then
X = num1 * num2
End If
If op = "-" Then
X = num1 - num2
End If
If op = "/" Then
X = num1 / num2
End If
End Sub
Con estas funciones podemos configurar todos los botones de signo como (*, +, -, /)..
Private Sub CommandButton13_Click()
num1 = X.Text
X.Text = ""
op = "*"
End Sub
Private Sub CommandButton14_Click()
num1 = X.Text
X.Text = ""
op = "-"
End Sub
Private Sub CommandButton15_Click()
num1 = X.Text
X.Text = ""
op = "+"
End Sub
Private Sub CommandButton16_Click()
num1 = X.Text
X.Text = ""
op = "/"
End Sub
Este se utiliza para el botón de borrar (AC)..
Private Sub CommandButton17_Click()
X = ""
X.SetFocus
End Sub
Utilizando estos códigos podemos crear una calculadora de función clásica forma correcta.. paso a pasos.
El Dim se coloca después que hemos introducidos todos nuestros código o hallamos configurado nuestra calculadora.
Dim num1 As Double
Dim num2 As Double
Dim op As String
Estos se colocan a todos los numero inciando en el 1 y terminando en el 0 (1 al ).
Private Sub CommandButton1_Click()
X.Text = X.Text & 1
End Sub
Private Sub CommandButton10_Click()
X.Text = X.Text & 6
End Sub
Private Sub CommandButton11_Click()
X.Text = X.Text & 9
End Sub
Estas estos son los códigos del signo de igual:
Private Sub CommandButton12_Click()
num2 = X.Text
If op = "+" Then
X = num1 + num2
End If
If op = "*" Then
X = num1 * num2
End If
If op = "-" Then
X = num1 - num2
End If
If op = "/" Then
X = num1 / num2
End If
End Sub
Con estas funciones podemos configurar todos los botones de signo como (*, +, -, /)..
Private Sub CommandButton13_Click()
num1 = X.Text
X.Text = ""
op = "*"
End Sub
Private Sub CommandButton14_Click()
num1 = X.Text
X.Text = ""
op = "-"
End Sub
Private Sub CommandButton15_Click()
num1 = X.Text
X.Text = ""
op = "+"
End Sub
Private Sub CommandButton16_Click()
num1 = X.Text
X.Text = ""
op = "/"
End Sub
Este se utiliza para el botón de borrar (AC)..
Private Sub CommandButton17_Click()
X = ""
X.SetFocus
End Sub