Exemplos Macro Excel

1. Criar um botão de comando para executar uma macro:

Sub Macro1() MsgBox "Olá, mundo!" End Sub

2. Inserir uma data e hora em uma célula quando a macro for executada:

Sub Macro2() Range("A1").Value = Now() End Sub

3. Alterar a cor de fundo da célula para verde se o valor da célula for maior que 10:

Sub Macro3() If Range("A1").Value > 10 Then Range("A1").Interior.ColorIndex = 4 End If End Sub

4. Copiar os dados de uma planilha para outra planilha:

Sub Macro4() Sheets("Planilha1").Range("A1:D10").Copy _ Destination:=Sheets("Planilha2").Range("A1") End Sub

5. Calcular a soma de uma coluna e exibir o resultado em uma caixa de mensagem:

Sub Macro5() Dim soma As Double soma = Application.WorksheetFunction.Sum(Range("A1:A10")) MsgBox "A soma é " & soma End Sub