Excel planilha vba cores insere cores selecao

Dom, 12 de Junho de 2011 09:45 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

E
sses procedimentos do Aplicativo Microsoft Excel VBA, insere cores na célula ou células selecionadas, primeiramente você dever selecionar uma célula ou um intervalo de células na folha de planilha, em seguida clicar(selecionar) uma das cores do visual basic na coluna(A) que inserirá a cor na célula ou intervalo de células selecionados a medida em que for selecionando cores na coluna(A). Para um melhor entendimento baixe o exemplo de planilha no final da página. Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

NO MÓDULO DA FOLHA DE CÓDIGO DA FOLHA DE PLANILHA INSIRA OS PROCEDIMENTOS.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("B:IV")) Is Nothing Then
       vSeleciona = Target.Address
    End If
   
    If Not Application.Intersect(Target, Range("A1:A56")) Is Nothing Then
        With Range(vSeleciona)
            .Interior.ColorIndex = Target.Interior.ColorIndex
        End With
    End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = Null
Cancel = True
End Sub
'-----------------------------------'


EM UM MÓDULO COMUM NO VBE(VISUAL BASIC EDITOR) insira os macros 

Option Explicit

Public vSeleciona As Variant   ' essa variável declarada como public é para auxiliar no evento do procedimento acima


Sub inserir_cores()
Dim c As Integer
Cells(1, 1).Value = "CORES": Cells(1, 2).Value = "NUM.CORES"
[A1].Select
For c = 1 To 56
    ActiveCell.Offset(1, 0).Interior.ColorIndex = c
    ActiveCell.Offset(1, 1).Value = "Cor vb nº" & c
    ActiveCell.Offset(1, 1).Font.ColorIndex = c
    ActiveCell.Offset(1, 0).Select
Next c

[c1].Select
End Sub

Sub limpar_teste()
[A1:B100].Clear
End Sub




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




  Baixe o exemplo de planilha contendo os procedimentos e macros acima
Excel planilha vba cores insere cores selecao (69.02 KB)


Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:26