Excel VBA Criativo Treine com Dados Gerados Automaticamente
🌼 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
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