Macros Excel Exemplos

1. Macro para somar valores em uma planilha:

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

2. Macro para formatar células em uma planilha:

Sub formatar() Range("A1:A10").NumberFormat = "R$ #,##0.00" End Sub

3. Macro para ordenar uma planilha:

Sub ordenar() Range("A1:H10").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes End Sub

4. Macro para proteger uma planilha:

Sub proteger() ActiveSheet.Protect Password:="senha", UserInterfaceOnly:=True End Sub

5. Macro para criar uma tabela dinâmica:

Sub tabela_dinamica() Dim pt As PivotTable Set pt = ActiveSheet.PivotTableWizard(TableDestination:=Range("A1"), _ SourceType:=xlDatabase, SourceData:=Range("A1:H10"), _ TableStyleName:="PivotStyleLight8") End Sub