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
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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Planilha Excel VBA cursor 20 linhas colunas célula ativa |
| [email-download-link namefield=”YES” id=”169″] |
