Planilha Excel VBA cursor 22 Planilha Excel VBA shapes cursor célula ativa vba
Planilha Excel VBA cursor 22 Planilha Excel VBA shapes cursor celula ativa vba
Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o evento Selection Change da folha de planilha acompanha o cursor, célula ativa retângulo shapes autoforma acompanha o cursor, há também uma linha de código para colorir a célula ativa e também um intervalo de linha com cores aleatórias..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Saber1.Shapes(“CursorAtivo”).Visible = True
Set vArea = Range(“B2:F10”)
vArea.Interior.ColorIndex = xlNone
If Not Intersect(vArea, Target) Is Nothing And Target.Count Then
If Err <> 0 Then
Saber1.Shapes.AddShape(msoShapeRectangle, 6, 6, 8, 6).Name = “CursorAtivo”
Saber1.Shapes(“CursorAtivo”).Fill.Visible = msoFalse
Saber1.Shapes(“CursorAtivo”).Fill.Transparency = 1
Saber1.Shapes(“CursorAtivo”).Line.Visible = True
Saber1.Shapes(“CursorAtivo”).Line.ForeColor.SchemeColor = 10
Saber1.Shapes(“CursorAtivo”).Line.Weight = 3 ‘largura linha
End If
Target.Interior.ColorIndex = 4 [b3:f3].Interior.ColorIndex = Int(Rnd * 55) + 1
Saber1.Shapes(“CursorAtivo”).Left = Target.Left
Saber1.Shapes(“CursorAtivo”).Top = Target.Top
Saber1.Shapes(“CursorAtivo”).Height = Selection.Height
Saber1.Shapes(“CursorAtivo”).Width = Selection.Width
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 22 shapes cursor célula ativa |
| << Download Link: Verifique também a Caixa de Itens Excluídos >> |
Planilha Excel VBA cursor 22 shapes cursor célula ativa
