calculadora Excel VBA

[mbrainiac]

Caros membros

Via Excel eu criei uma macro de uma calculadora no ambiente Visual Basic do Excel (alt +F11)

4 operações (+ ,-, /,*) e (%, raiz quadrada) sendo que só as duas últimas dão erro.

As 4 operações estão perfeitas só não consigo % e raiz quadrada

Só falta fazer os botões "%" e "sqrt" (raiz quadrada)

O erro da raiz quadrada: "Erro em tempo de execução '13' tipos incompatíveis"

ao depurar marca:

Private Sub cmdigual_Click()
'botao igual
b = TextBox1.Text
Call operacao

Mesmo da raiz quadrada.

Código completo

Dim a As Double
Dim b As Double
Dim c As Double
Dim op As Double




Private Sub cmd0_Click()
'botão 0
TextBox1.Text = TextBox1.Text + "0"

End Sub

Private Sub cmd1_Click()
'botao 1
TextBox1.Text = TextBox1.Text + "1"
End Sub

Private Sub cmd2_Click()
'botao 2
TextBox1.Text = TextBox1.Text + "2"
End Sub

Private Sub cmd3_Click()
'botao 3
TextBox1.Text = TextBox1.Text + "3"
End Sub

Private Sub cmd4_Click()
'botao 4
TextBox1.Text = TextBox1.Text + "4"
End Sub

Private Sub cmd5_Click()
'botao 5
TextBox1.Text = TextBox1.Text + "5"
End Sub

Private Sub cmd6_Click()
'botao 6
TextBox1.Text = TextBox1.Text + "6"
End Sub

Private Sub cmd7_Click()
'botao 7
TextBox1.Text = TextBox1.Text + "7"
End Sub

Private Sub cmd8_Click()
'botao 8
TextBox1.Text = TextBox1.Text + "8"
End Sub

Private Sub cmd9_Click()
'botao 9
TextBox1.Text = TextBox1.Text + "9"
End Sub
Private Sub cmdponto_Click()

'botao vírgula da casa decimal
TextBox1.Text = TextBox1.Text + ","

End Sub

Private Sub cmdclear_Click()
'botão limpar
TextBox1.Text = ""

End Sub

Private Sub cmdigual_Click()
'botao igual
b = TextBox1.Text
Call operacao


End Sub


Private Sub cmdsomar_Click()
'botao somar
op = 1
a = TextBox1.Text
TextBox1.Text = ""
End Sub
Private Sub cmdmenos_Click()
'botao menos
op = 2
a = TextBox1.Text
TextBox1.Text = ""
End Sub
Private Sub cmdmultiplicar_Click()
'botao vezes
op = 3
a = TextBox1.Text
TextBox1.Text = ""
End Sub
Private Sub cmddividir_Click()
'botao dividir
op = 4
a = TextBox1.Text
TextBox1.Text = ""

End Sub
Private Sub cmdporcentagem_Click()
'botao porcentagem
op = 5
a = TextBox1.Text
TextBox1.Text = ""

End Sub

Private Sub cmdraizquadrada_Click()
'raiz quadrada
op = 6
a = TextBox1.Text
TextBox1.Text = ""

End Sub

Private Sub operacao()

If op = 1 Then
c = a + b
TextBox1.Text = c
End If

If op = 2 Then
c = a - b
TextBox1.Text = c
End If

If op = 3 Then
c = a * b
TextBox1.Text = c
End If

If op = 4 Then
c = a / b
TextBox1.Text = c
End If

If op = 5 Then
c = a + a * b / 100
TextBox1.Text = c
End If

If op = 6 Then
c = Sqr(a)
TextBox1.Text = c
End If

End Sub

Editado Março 28, 2015 por mbrainiac