Planilha Excel VBA cursor 19 Shapes cursor célula ativa
Excel VBA Planilha cursor 19 Shapes cursor célula ativa
SBX CURSOR EXCEL VBA SHAPES ACOMANHA CELULA ATIVA
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application ) planilha, faz uma formatação na célula ativa, instalando um shapes(Autoforma) retângulo com medidas especificas para contornar as célula ativa, acompanhando o cursor, observe que o shapes vermelho é chamado através do Evento SelectionChange da folha de planilha. também formata o interior da célula ativa.
(***) CASO DELETE O SHAPES ACIDENTALMENTE, o procedimento criará outro ao selecionar a célula no Range determinado (Range(B1:F10))
‘//========’
Sub sbx_eventos_habilitar() ‘caso desabilite acidentalmente.
Application.EnableEvents = True
End Sub
‘//========’
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
Fique com Deus, Expedito Marcondes
‘//========’
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 19 shapes célula ativa |
| <<Download Link: Verifique também em sua caixa de itens excluídos >> |
Planilha Excel VBA cursor 19 shapes célula ativa
