Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel planilhas vba criar planihas abas cores aleatorias

Excel planilhas vba criar planihas abas cores aleatorias

E-mail Imprimir PDF

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

'//=========' Escola Saberexcel VBA Estudos®
'//=========' Treinamentos com Macros, Fórmulas e Funções
'//========='
http://www.microsoftexcel.com.br
'//=========' contato@saberexcel.com.br
'- - - - - - - - - - - - -  - - - - - - - - - '
Sub criar_planilhas_lista_colA()
Dim resp As String
If Sheets.Count > 2 Then GoTo 12345 '//========'caso haja mais de uma planilha no livro
For Each c In Range([A2], [A2].End(xlDown))
    If c.Offset(0, 2) <> "" Then
       Sheets.Add.Name = c.Value & c.Offset(0, 1).Value & " - " & c.Offset(0, 2).Value
       Application.ActiveSheet.Move after:=Sheets("Principal")
       Application.ActiveSheet.Tab.ColorIndex = Int((55 * Rnd)) + 1 '//========'gerando abas cores aleatórias
       '//========'referenciando as cores aos objetos
       c.Interior.ColorIndex = Application.ActiveSheet.Tab.ColorIndex
       c.Offset(0, 2).Interior.ColorIndex = Application.ActiveSheet.Tab.ColorIndex
       c.Offset(0, 4).Interior.ColorIndex = Application.ActiveSheet.Tab.ColorIndex
       c.Offset(0, 4).Value = Application.ActiveSheet.Tab.ColorIndex
       c.Offset(0, 2).Font.ColorIndex = Int((55 * Rnd)) + 1
    End If
Next c
'//======'for da instrução for next, para terminar o macro [informações nas células folha de planilha]
sbx.Select
[g10].Value = "<<< FORAM CRIADAS =======' [ " & Sheets.Count & "  ] '======= FOLHAS DE PLANILHAS BASE COL(B) >>>>"
[g13].Value = "'1 - CORES FONTES DA COLUNA C (ALEATORIAS)"
[g14].Value = "'2 - CORES INTERIOR DAS COLUNAS(A,B,C) ALEATORIOS"
[g15].Value = "'3 - CORES DAS ABAS DE PLANILHAS CRIADAS (ALEATÓRIAS)"
[g22].Value = "APRENDA MICROSOFT EXCEL VBA - PRODUTOS DIDÁTICOS SABEREXCEL"
didaticos
Exit Sub
12345 '//atende a condição if no inicio do macro, verifica se existe mais de uma e [pula para o item 10]
resp = MsgBox("PLANILHAS JÁ EXISTENTES, PODERÁ CRIAR SE DELETAR TODAS" & vbCrLf & "deseja deletar todas planilhas para realização do teste?", vbYesNo + vbCritical, "Saberexcel VBA Estudos®")
      If resp = 6 Then
         deleta_todas_preservada_desejada
      End If
End Sub

Sub deleta_todas_preservada_desejada()
 Dim Plan, x As Worksheet
 Set x = sbx
 On Error Resume Next
 Application.DisplayAlerts = False    'impede de emitir a mensagem se deseja excluir
 For Each Plan In Worksheets
     If (Plan.Name <> "Principal") And (Plan.Name <> "sbx") Then
        Plan.Delete
     End If
 Next Plan
 '- - - - - - - - - - - -'
 x.[a2:e200].ClearFormats
 x.[a2:e200].Font.Size = 8
 x.[g10,g13,g14,g15,g22,cv,cm,cp,ca,cf,cl,ct,ce].ClearContents
 
 Application.DisplayAlerts = True
End Sub
 
Private Sub Produtos_didaticos()
Dim b
Set b = sbx
    b.[cv] = b.lbsbx01.Caption 'curso completo microsoft excel vba
    b.[cm] = b.lbsbx02.Caption ''coleção 15.000 macros microsoft exel vba, fórmulas e funções
    b.[cp] = b.lbsbx03.Caption 'dvd 14.000 planilhas microsoft excel vba
    b.[ca] = b.lbsbx04.Caption 'apostilas e ebooks microsoft excel vba
    b.[cf] = b.lbsbx05.Caption 'worksheetfunctions(vba)
    b.[cl] = b.lbsbx06.Caption 'instruções loops todas (7)
    b.[ct] = b.lbsbx07.Caption ' como fazer programação microsoft excel vba
    b.[ce] = b.lbsbx08.Caption 'c.e.g.o - controle de estoque e gerenciamento de orçamentos  (excel x access - com bastante rotinas e funçcoes para movimentação estoque)
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 planilhas vba criar planihas abas cores aleatorias (68.05 KB)

Última atualização em Ter, 13 de Novembro de 2012 09:37  

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_counterHoje1689
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11820
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25549
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448378
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