Crear Calculadora desde Excel:

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