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:
So funcionou adicionando o caminho completo: C:\windows\system32\calc.exe
Obrigado pelo comentário acima, pois na minha máquina também só funciona com o caminho completo...
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....
Coloque apenas:
Shell("Calc.exe") que dá certo!!!
Fiz no Excel 2007
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
Sub Calculadora()
GoTo x
x:
ValRet = Shell("Calc.exe")
End Sub
Sub Calculadora()
GoTo x
x:
ValRet = Shell("Calc.exe")
End Sub
Postar um comentário