Planilha Excel vba shapes 6 retorna valor celula
Planilha Excel VBA cursor 18 shapes acompanha cursor
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
SBX CURSOR SHAPES ACOMPANHA LINHAS E COLUNAS
(*) base célula ativa Esse usando o Evento WorkSheet_SelectionChange da folha de planilha, inserem dois Shapes (Duas Autoformas Linhas) uma na vertical e outra na Horizontal, para acompanhar cursor nas linhas e colunas com base na (célula Ativa). observe que shapes inserido tem uma medida especifica no código.
‘//============’
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vArea = [D5:G23]
vArea.Interior.Color = 12058604
vArea.Font.ColorIndex = 1
If Not Intersect(vArea, Target) Is Nothing Then
On Error Resume Next ‘tratar o erro
Shapes(“cursorH”).Visible = True
If Err <> 0 Then Saber1.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = “cursorH”
Shapes(“cursorV”).Visible = True
If Err <> 0 Then Saber1.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 1000, 1).Name = “cursorV”
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(“cursorV”).Line.ForeColor.RGB = RGB(255, 0, 0)
Shapes(“cursorV”).Left = ActiveCell.Left
Shapes(“cursorV”).Top = vArea.Top
Shapes(“cursorV”).Width = 1
Shapes(“cursorV”).Height = vArea.Height
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Else
On Error Resume Next
Shapes(“cursorH”).Visible = False
Shapes(“cursorV”).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 |
 |
| Faça o Download da Planilha exemplo: |
 Planilha Excel VBA cursor 18 shapes acompanha cursor |
| <<Download Link : Verifique também sua caixa de Itens Excluídos >> |
