Excel Vba Exemplos

1. Inserir textos em células:

Sub inserir_texto() Range("A1").Value = "Olá, Mundo!" End Sub

Este exemplo irá inserir o texto "Olá, Mundo!" na célula A1.

2. Inserir uma fórmula em uma célula:

Sub inserir_formula() Range("A2").Formula = "=SOMA(B2:C2)" End Sub

Este exemplo irá inserir a fórmula "=SOMA(B2:C2)" na célula A2.

3. Formatar células:

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

Este exemplo irá formatar as células de A1 a A10 como números em formato de moeda com duas casas decimais.

4. Copiar e colar valores:

Sub copiarcolarvalores() Range("A1:A10").Copy Range("B1:B10").PasteSpecial xlPasteValues End Sub

Este exemplo irá copiar os valores das células de A1 a A10 e colar esses valores nas células de B1 a B10.

5. Preencher uma planilha com dados aleatórios:

Sub preencher_planilha() For i = 1 To 10For j = 1 To 10 Cells(i, j).Value = Int((100 - 1 + 1) * Rnd + 1)Next j Next i End Sub

Este exemplo irá preencher uma planilha com valores numéricos aleatórios de 1 a 100.

6. Exibir uma mensagem de alerta:

Sub mensagem_alerta() MsgBox "O valor inserido é inválido." End Sub

Este exemplo irá exibir uma mensagem de alerta com o texto "O valor inserido é inválido.".

7. Classificar dados em uma planilha:

Sub classificar_dados() Range("A1:B10").Sort Key1:=Range("B1:B10"), Order1:=xlDescending End Sub

Este exemplo irá classificar os dados nas células de A1 a B10 com base nos valores da coluna B em ordem decrescente.

8. Criar um gráfico:

Sub criar_grafico() Dim Chart As Chart Set Chart = Charts.Add Chart.SetSourceData Source:=Range("A1:B10") Chart.ChartType = xlColumnClustered End Sub

Este exemplo irá criar um gráfico de colunas agrupadas com base nos dados nas células de A1 a B10.

9. Proteger uma planilha:

Sub proteger_planilha() ActiveSheet.Protect Password:="Senha123", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

Este exemplo irá proteger a planilha ativa com uma senha "Senha123", permitindo a edição de objetos de desenho, conteúdo e cenários.

10. Converter texto em data:

Sub convertertextodata() Range("A1").Value = CDate("01/01/2022") End Sub

Este exemplo irá converter o texto "01/01/2022" em uma data e inserir essa data na célula A1.