Olá meus amigos.
O artigo que trago hoje ensina como abrir a calculadora do Windows com uma macro do Excel.
Muitas vezes estamos com um formulário aberto ou necessitamos que a calculadora seja aberta através do Excel, para resolver este problema temos algumas dicas abaixo…
A rotina abaixo pode ser inserida em um botão que esteja em seu projeto, no formulário VBA ou em um botão de comando na própria planilha, com a rotina você irá abrir a calculadora que será iniciada com VBA.
Siga os passos a seguir
1 – Forma: Inserindo o botão para abrir a Calculadora direto na Planilha.
No seu módulo VBA crie a rotina Abaixo:
O Shell serve não somente para abrir aplicativos, como também para abrir pastas e arquivos.
[code language=”vb”]Sub bt_calc_Click()
On Error GoTo Err_Click
Shell "Calc", vbNormalFocus
Err_Exit:
Exit Sub
Err_Click:
Msgbox "Não foi possivel executar a Calculadora."
Exit Sub
End Sub
[/code]
Observação: Para que sua rotina funcione, você deve inserir um botão de comando para chamar sua macro na planilha.
2 – Forma: Insira um botão no seu Formulário VBA.
No seu Formulário, insira um botão de comando (CommandButton1), clique duas vezes sobre ele e cole o código abaixo.
Altere a propriedade caption para “Abrir Calculadora“ e então digite assim:
[code language=”vb”]Private Sub bt_calc_Click()
On Error GoTo Err_Click
Shell "Calc", vbNormalFocus
Err_Exit:
Exit Sub
Err_Click:
Msgbox "Não foi possivel executar a Calculadora."
Exit Sub
End Sub
[/code]
Processo finalizado Pronto!
A partir deste procedimento, sempre que clicar no botão, será iniciada a calculadora.
É importante lembrar que está é apenas uma forma de realizar o processo, não julgo ser a melhor ou a única forma, por isso se conhecer mais alguma forma compartilhe!
Um abraço.
Douglas Godoy
