Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esses 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 
