Utilizando a calculadora do Windows em Excel

Se você é uma pessoa que usa bastante a calculadora do Windows em suas planilhas de Excel, o código abaixo é um excelente atalho para a mesma.
Abra o Excel, entre no editor de VBA, insira um módulo e cole o código abaixo. Feche o VBA e crie um botão na sua planilha de Excel, chamando a macro calculadora.
Simples não?

Aproveite mais essa super dica e continue acessando o blog.


Sub
Calculadora()
On Error
GoTo x
AppActivate
"Calculadora"
Exit
Sub
x:
ValRet = Shell("C:\Windows\Calc.exe", 1)
AppActivate ValRet
End Sub

7 comentários:

Anônimo disse...

So funcionou adicionando o caminho completo: C:\windows\system32\calc.exe

Anônimo disse...

Obrigado pelo comentário acima, pois na minha máquina também só funciona com o caminho completo...

Anônimo disse...

PODERIAM ENVIAR O PASSO A PASSO POIS ESTOU PRECISANDO MUITO TERMINAR UMA PLANILHA ONDE PRECISO:
SOMAR NA MESMA CELULA; E ESCREVER OS VALORES POR EXTENSO NO EXCEL enviem por favor para: ueldess@bol.com.br
agradeço antecipadamente
obs: somar na mesma célula
ex: 10,00 em A1 + 15,00 em A1....

Anônimo disse...

Coloque apenas:
Shell("Calc.exe") que dá certo!!!

Fiz no Excel 2007

Anônimo disse...

Não sei pq mas a maioria das dicas nao dao certo tem que alterar algumas coisas essa fica assim para dar certo

Sub Calculadora()

GoTo x
x:
ValRet = Shell("Calc.exe")

End Sub

Anônimo disse...

Sub Calculadora()

GoTo x

x:
ValRet = Shell("Calc.exe")

End Sub

Anônimo disse...

Sub Calculadora()

GoTo x

x:
ValRet = Shell("Calc.exe")

End Sub