Excel VBA Criativo Treine com Dados Gerados Automaticamente

Marcondes — Tue, 17 Jun 2025 13:39:12 +0000

Excel VBA Criativo Treine com Dados Gerados Automaticamente | Sabedoria um “Dom de Deus”

Aprenda Excel VBA Criando um Banco de Dados com Flores, Frutas e Criatividade!

Faça o Download do Exemplo de Planilha Excel VBA.
Excel VBA Criativo Treine com Dados Gerados Automaticamente e Sabedoria Bíblica.xlsm

Se você está em busca de uma forma prática e interessante de treinar Excel VBA, esta lição é para você. Vamos automatizar a criação de um banco de dados com 1.500 registros fictícios, recheados de nomes, endereços florais e bairros frutados. E ainda com um hiperlink direto para um curso gratuito no final de cada linha!

Além de divertido, o projeto mostra como você pode usar criatividade para ensinar ou treinar pessoas com dados dinâmicos.

O Que Você Vai Aprender

Como automatizar a geração de dados com VBA usando arrays
Como preencher células com CPF, RG, telefone, data e observações
Como aplicar formatação adequada nos dados
Como adicionar links automáticos em células via VBA
E o mais importante: como usar o Excel de forma criativa e útil!

Benefícios Dessa Atividade

Redução de tempo com tarefas repetitivas
Formação de base de teste para desenvolvimento de sistemas
Exercício prático para entrevistas ou portfólio
Inspiração para construir planilhas com identidade própria
Inserção de links didáticos para estimular o aprendizado

Código VBA Completo

vba

Sub sbx_gerar_banco_dados_automaticamente()
    Dim i As Long
    Dim nomes As Variant, cidades As Variant, ddds As Variant
    Dim flores As Variant, frutas As Variant
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("BaseDeDados")

    nomes = Array("Ana Clara", "Lucas Silva", "Paulo Souza", _
        "Carla Mendes", "Fernanda Lima", "João Pedro", "Mariana Oliveira")
    cidades = Array("São Paulo", "Rio de Janeiro", "Salvador", _
        "Belo Horizonte", "Fortaleza")
    cab = Array("ID", "NOME", "ENDEREÇO", "BAIRRO", "CIDADE", "CPF", _
        "CEP", "TELEFONE", "STATUS", "DATA", "OBSERVAÇÕES")

    For i = 1 To UBound(cab)
        Cells(1, i) = cab(i - 1)
    Next i

    ddds = Array("11", "21", "71", "31", "85")
    flores = Array("Rosa", "Orquídea", "Violeta", "Lírio", "Tulipa", _
            "Girassol", "Jasmim", "Dália")
    frutas = Array("Macieira", "Bananeiras", "Abacaxis", "Laranjeiras", _
            "Videira", "Mangueira", "Cajueiro", "Pereira")

    For i = 2 To 1501
        ws.Cells(i, 1).Value = i - 1
        ws.Cells(i, 2).Value = nomes(Int(Rnd * UBound(nomes) + 1))
        ws.Cells(i, 3).Value = "Rua: " & _
           flores(Int(Rnd * UBound(flores) + 1)) & ", nº " & Int(Rnd * 999 + 1)
        ws.Cells(i, 4).Value = "Bairro: " & _
            frutas(Int(Rnd * UBound(frutas) + 1))

        Dim idx As Integer: idx = Int(Rnd * UBound(cidades) + 1)
        ws.Cells(i, 5).Value = cidades(idx)
        ws.Cells(i, 6).Value = _
           Format(Int(Rnd * 900000000 + 100000000), "000\.000\.000\-00")
        ws.Cells(i, 7).Value = _
           Format(Int(Rnd * 90000000 + 10000000), "00\.000\.000\-0")
        ws.Cells(i, 8).Value = _
            "(" & ddds(idx) & ") 9" & _
               Int(Rnd * 9000 + 1000) & "-" & Int(Rnd * 9000 + 1000)
        ws.Cells(i, 9).Value = Choose(Int(Rnd * 3 + 1), _
                "Ativo", "Inativo", "Pendente")
        ws.Cells(i, 10).Value = _
                DateSerial(2023, Int(Rnd * 12 + 1), Int(Rnd * 28 + 1))
        ws.Cells(i, 11).Value = Choose(Int(Rnd * 3 + 1), _
               "Aguardando retorno", "Contato recente", "Sem observações")

        ws.Hyperlinks.Add _
            Anchor:=Cells(i, 12), _
            Address:="https://somaexcel.com.br/cursos/curso-excel-vba/", _
            TextToDisplay:="Curso Excel VBA - SomaExcel"
    Next i

    MsgBox "Banco de dados Florido e Fruteiras gerado com sucesso! 🌷🍊"
End Sub

Inspiração Bíblica Para Aprendizado e Evolução

> “O coração sábio busca o conhecimento, mas a boca dos tolos se alimenta de insensatez.” — Provérbios 15:14 > > “Ensina-nos a contar os nossos dias, para que alcancemos coração sábio.” — Salmo 90:12 > > “Melhor é o sábio do que o forte, e o homem de conhecimento do que o poderoso.” — Provérbios 24:5

Agradecimento e Contato

Muito obrigado por acompanhar esta lição. Espero que ela inspire você a criar, praticar e evoluir com Excel VBA de forma leve e criativa. Deus abençoe sua jornada de aprendizado!

Fico à disposição para dúvidas e sugestões:

Prof. Expedito Marcondes
Tire-Dúvidas: suportecursovba@gmail.com

O post Excel VBA Criativo Treine com Dados Gerados Automaticamente apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Arquivo de Gerador de Dados - Excel - Curso VBA - Aprender Programação

Excel VBA Criativo Treine com Dados Gerados Automaticamente