Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere cor no interior da célula ativa, acompanhando o cursor, com a determinada pelas células na cor amarela.Observem que o procedimento cria dois Range(Name) 'nomeia células', a célula ativa (vEndereço) e também a cor determinada (vCores), veja no exemplo de planilha, baixe-o no final da página. Fique com Deus, Expedito Marcondes.
(*) - observe que a cor amarelo inserido na formatação é retirada da célula após a seleção de outra célula.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If [vEndereco] <> "" Then Range([vEndereco]).Interior.ColorIndex = [vCores]
ActiveWorkbook.Names.Add Name:="vEndereco", RefersToR1C1:=""

If Not Intersect([A1:D20], Target) Is Nothing And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="vEndereco", RefersToR1C1:="=" & Chr(34) & Target.Address & Chr(34)
ActiveWorkbook.Names.Add Name:="vCores", RefersToR1C1:="=" & Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
End If
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

Publicidade
Compre com segurança, garantia e ótimos preços

Formatando as linhas do cursor ao selecionar determinada célula
Quanto a formatação existem diversos exemplos, mas gosto de simplicidade e eficácia, porém neste caso, a formatação fica muito sofisticada rs..
Acho que este exemplo é o mais prático, não envolvem macros, somente fórmulas de FC(Formatação condicional) e um Evento(Abaixo)
Vamos mudar a cor da fonte existente, fundo da célula, e bordas diferentes ao selecionar ok...

1 )- Selecione a area onde deseja inserir a Formatação Condicional (Linhas cores seguindo o cursor)
neste caso escolhi o as células abaixo marcadas por uma borda abaixo Ok...

2 )- depois de selecionado até a caixa de diálogo FC(Formatação condicional ), e insira a seguinte fórmula
Area escolhida ..........................................: =$E$19:$N$34
Formula usada na formatação condicional)........: =LIN()=CÉL("lin")

No módulo de Edição (programação do Folha de Planilha) digite o seguinte código
Evento Selecion_Change ( toda vez que for selecionado uma célula "Faça...")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub



Aprenda Microsoft Excel VBA --(( SaberExcel ))--

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, Insere um marcador na linha do cursor realçando linha e coluna ativa um marcador para realçar a linha e a coluna ativa inserindo uma linha colorida na linha e coluna ativas, formata seleção no cursor linhas e colunas este evento insere um shape e navega junto com o cursor marcando selecionando as linhas e colunas ativadas pelo cursor retângulo. Observe que usamos o Evento Selection_Change da Folha de código da planilha.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'*** Definição de variáveis ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left

'Testa se os retangulos shapes são existentes.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete

'Ajuste dos shapes retangulos

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"

With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With
End Sub


Aprenda Microsoft Excel VBA --(Saberexcel)--