Jump to content
Fórum Script Brasil
  • 0

Excel (VBA) - Verificar se célula está visível


Kerouac
 Share

Question

Bom dia a todos!

Através do VBA no Excel, é possível saber se determinada célula está visível na tela?

Percebam que minha dúvida não é em relação a células ocultas ou visíveis (propriedade Hidden), mas apenas se a célula está visível na tela.

Desde já agradeço e um abraço!

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0
Sub Exemplo()
    Dim b As Boolean
    Dim rng As Range
    
    Set rng = Range("A3")
    b = EstáVisível(rng)
    
    If b Then
        MsgBox "A célula " & rng.Address(0, 0) & " está visível na janela ativa." _
          , vbInformation
    Else
        MsgBox "A célula " & rng.Address(0, 0) & " não está visível na janela ativa." _
          , vbInformation
    End If
    
End Sub

Function EstáVisível(rng As Range) As Boolean
    EstáVisível = Not Intersect(rng, ActiveWindow.VisibleRange) Is Nothing
End Function

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.8k
    • Total Posts
      648.7k
×
×
  • Create New...