Excel planilha vba gerar numero cores aleatorio dictionary

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: [email protected]
''''''//===================================='

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)

Tags: