Excel VBA Planilha cursor 20 linhas colunas célula ativa

21 de novembro de 2013 Prof. Expedito Marcondes - Escola SaberExcel VBA 0 Comentários

Planilha Excel VBA cursor 20 linhas colunas célula ativa

Planilha Excel VBA cursor 20 linhas colunas célula ativa

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), dois exemplos de como fazer um tipo de formatação onde a uma linha vermelha acompanha o cursor e ao mesmo tempo formata a linha e coluna em cores da célula ativa. Também existe um segundo exemplo que um shapes(Autoforma) acompanha a linha da célula ativa, esse shapes(Autoforma linha) tem o tamanho especifico das células da tabela.
EVENTO: SelectionChange() ao selecionar na área de células na folha de planilha.
PRIMEIRO EXEMPLO: EXERCICIO(1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vArea = [D6:K21]
If Not Intersect(vArea, Target) Is Nothing Then
On Error Resume Next
Shapes(“cursorH”).Visible = True
If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = “cursorH”
Saber1.Shapes(“cursorH”).Line.ForeColor.RGB = RGB(255, 0, 0)
Shapes(“cursorH”).Top = ActiveCell.Top + ActiveCell.Height
Shapes(“cursorH”).Height = 1
Shapes(“cursorH”).Width = vArea.Width
Shapes(“cursorH”).Left = vArea.Left
Saber1.Shapes(“cursorH”).Line.ForeColor.RGB = RGB(255, 0, 0)
Else
On Error Resume Next
Shapes(“cursorH”).Visible = False
End If
End Sub
‘//===============’

SEGUNDO EXEMPLO: EXERCICIO(2)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:D30], Target) Is Nothing And Target.Count = 1 Then
[A1:D30].Interior.ColorIndex = xlNone
Range(“A2:D30”).ClearFormats
Target.Font.ColorIndex = xlNone
Target.Font.Bold = False
Range(Cells(1, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 36
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 36

With Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 3
.TintAndShade = 0
.Weight = xlThin
End With
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 3
Target.Font.Bold = True
End If
End Sub