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.