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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


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