Aprenda como Iniciar a calculadora do windows pelo Excel com VBA

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.

como-iniciar-a-calculadora-do-windows-pelo-Excel-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

Comentários