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.