Planilha Excel VBA shapes 3 shapes celula ativa
Planilha Excel VBA shapes 3 shapes celula ativa Este exemplo de planilha Aplicativo Microsoft Excel VBA(Visual Basic Application),
SBX CURSOR FORMATA COM SHAPES
(**) base celula ativa (acompanha o cursor) Esse exemplo usando o evento WorkSheet_SelecionChange (Ao selecionar) em determinaddas células (Area D7:G25), cria um shapes(Autoforma Linha) de tamanho determinado e acompanha o cursor também somente nesta area determinada pela linha de código do Procedimento. Observe que inseri na Celula Ativa(Chamada Target), a cor interior Vermelho e Fonte (Branco) Area de células: D7:G25
‘//=========
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vArea = [D7:G25]
If Not Intersect(vArea, Target) Is Nothing Then
On Error Resume Next ‘tratando um erro
Shapes(“cursorH”).Visible = True
vArea.Font.ColorIndex = 1
vArea.Interior.ColorIndex = xlNone
If Err <> 0 Then Saber1.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)
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Else
On Error Resume Next
Shapes(“cursorH”).Visible = False
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 shapes 3 shapes célula ativa |
| << Verifique também – Caixa de Itens Excluídos >> |
‘(repeti o arquivo por fazer parte do mesmo assunto:)
‘SBI Excel VBA cursor 19 shapes cursor célula ativa (30.19 kB)
Planilha Excel VBA shapes 3 shapes célula ativa
