Iniciando a calculadora do windows pelo Excel

Olá amigos.
O artigo de hoje ensina como executar a calculadora do Windows via macro do Excel.
Você pode fazer da seguinte maneira:
Insira, na própria planilha do Excel, um botão de comando (CommandButton1), clique com o botão direito sobre ele e escolha a opção “propriedades“. Altere a propriedade caption para “Abrir Calculadora“. Feche a janela propriedades. Agora dê um duplo clique no botão de comando para abrir o ambiente de código do VBA. Surgirá uma subrotina Click para ser executada ao evento clicar deste botão, então digite assim:

Private Sub CommandButton1_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

Pronto. Salve o arquivo e saia do ambiente de criação. Agora, quando clicar no botão, será iniciada a calculadora.
Um abraço a todos.

Leave a Comment