Home Excel - Dicas Microsoft Excel VBA Excel VBA - Numeros Excel planilha vba gerar numero cores aleatorio dictionary

Excel planilha vba gerar numero cores aleatorio dictionary

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse macro do aplicativo Microsoft Excel VBA, usando o objeto Dictionary, gera números aleatórios,
com o objetivo didatico há um incremento no macro para inserir cores aleatórias no interior das células na folha de planilhas
como também gerar cores da fonte da célula aleatórios.
Espero que gostem do exemplo de planilha que poderá baixá-la no final da página.
Fique com Deus, Expedito Marcondes

'//===='Escola Saberexcel VBA Estudos®
''//===='Treinamentos com Macros, Fórmulas e Funções
''''//===='Site:
http://www.microsoftexcel.com.br
'''''//===='Email: contato@saberexcel.com.br
''''''//===================================='

Sub numeros_aleatorios_grupos()
Dim Dicionario As Object
Range("A:A").Clear
d = 1

For i = 1 To 5
    Set Dicionario = CreateObject("Scripting.Dictionary")   leia sobre Objeto Dictionary
    While Dicionario.Count < 5
      Randomize
      sbx = Int((1000 * Rnd)) + 1
      Dicionario(sbx) = sbx
    Wend
     Cells(d, 1).Resize(Dicionario.Count) = Application.Transpose(Dicionario.keys)
     Cells(d, 1).Resize(Dicionario.Count).Interior.ColorIndex = Int((56 * Rnd)) + 1
     Cells(d, 1).Resize(Dicionario.Count).Font.ColorIndex = Int((56 * Rnd)) + 1
     Cells(d, 1).Resize(Dicionario.Count).Font.Size = 8 'Int((16 * Rnd)) + 1
     d = d + 6
   Next i
   
    [d12].Value = "Celula Interior Colorindex Bloco 1 = [ " & Cells(1, 1).Interior.ColorIndex & " ]"
    [d13].Value = "Celula Font Colorindex Bloco 1 = [ " & Cells(1, 1).Font.ColorIndex & " ]"
    [d14].Value = "'- - - - - -'"
    [d15].Value = "Celula Interior Colorindex Bloco 2 = [ " & Cells(7, 1).Interior.ColorIndex & " ]"
    [d16].Value = "Celula Font Colorindex Bloco 2 = [ " & Cells(7, 1).Font.ColorIndex & " ]"
    [d17].Value = "'- - - - - -'"
    [d18].Value = "Celula Interior Colorindex Bloco 3 = [ " & Cells(13, 1).Interior.ColorIndex & " ]"
    [d19].Value = "Celula Font Colorindex Bloco 3 = [ " & Cells(13, 1).Font.ColorIndex & " ]"
    [d20].Value = "'- - - - - -'"
    [d21].Value = "Celula Interior Colorindex Bloco 4 = [ " & Cells(19, 1).Interior.ColorIndex & " ]"
    [d22].Value = "Celula Font Colorindex Bloco 4 = [ " & Cells(19, 1).Font.ColorIndex & " ]"
    [d23].Value = "'- - - - - -'"
    [d24].Value = "Celula Interior Colorindex Bloco 5 = [ " & Cells(25, 1).Interior.ColorIndex & " ]"
    [d25].Value = "Celula Font Colorindex Bloco 5 = [ " & Cells(25, 1).Font.ColorIndex & " ]"

    [f12].Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex
    [f13].Interior.ColorIndex = Cells(1, 1).Font.ColorIndex
    [f14].Value = "'- - - - - -'"
    [f15].Interior.ColorIndex = Cells(7, 1).Interior.ColorIndex
    [f16].Interior.ColorIndex = Cells(7, 1).Font.ColorIndex
    [f17].Value = "'- - - - - -'"
    [f18].Interior.ColorIndex = Cells(13, 1).Interior.ColorIndex
    [f19].Interior.ColorIndex = Cells(13, 1).Font.ColorIndex
    [f20].Value = "'- - - - - -'"
    [f21].Interior.ColorIndex = Cells(19, 1).Interior.ColorIndex
    [f22].Interior.ColorIndex = Cells(19, 1).Font.ColorIndex
    [f23].Value = "'- - - - - -'"
    [f24].Interior.ColorIndex = Cells(25, 1).Interior.ColorIndex
    [f25].Interior.ColorIndex = Cells(25, 1).Font.ColorIndex
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





Baixe o exemplo de planiha contendo os macros acima: <<< Registre-se em nosso Site >>>
Excel vba gerar numero cores aleatorio dictionary (82.32 KB)

Última atualização em Sáb, 10 de Novembro de 2012 19:05  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA