Exemplos Vba Excel

1. Adicionar um número aleatório em uma célula:

Range("A1").Value = Int((1000 - 1 + 1) * Rnd + 1)

2. Criar uma lista suspensa na célula A1 com opções "Sim" e "Não":

With Range("A1").Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="Sim,Não" End With

3. Encontrar a última célula preenchida em uma coluna:

Dim lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row

4. Converter um valor de polegadas em centímetros:

Dim polegadas As Double Dim cm As Double polegadas = 10 cm = polegadas * 2.54

5. Copiar o conteúdo da célula A1 para a célula B1:

Range("B1").Value = Range("A1").Value

6. Criar um gráfico de colunas na planilha:

ActiveSheet.Shapes.AddChart2(251, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("A1:B5") ActiveChart.FullSeriesCollection(1).XValues = Range("A1:A5")

7. Ordenar uma coluna de dados em ordem crescente:

Range("A1:A10").Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo

8. Calcular a média de uma coluna de dados:

Dim media As Double media = WorksheetFunction.Average(Range("A1:A10"))

9. Definir a cor de fundo da célula A1 como vermelho:

Range("A1").Interior.Color = vbRed

10. Escrever "Olá mundo" na célula A1:

Range("A1").Value = "Olá mundo"