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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4870
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19317
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33046
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455875
Aprenda MS Excel VBA

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