Мне нужно найти, видна ли ячейка на экране.
Под видимым я не подразумеваю скрытое. Я специально пытаюсь выяснить, отображается ли ячейка в данный момент на активном листе или она не отображается, т.е. Она была прокручена с видимого активного листа.
Я посмотрел онлайн и могу найти только следующий код, который мне не подходит:
Private Sub CommandButton1_Click()
With Worksheets(1).Cells(10, 10)
'MsgBox "Value: " & .Value & ", Top: " & .Top & ", Left: " & .Left
Dim visibleCells As Range
Set visibleCells = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
If Intersect(Worksheets(1).Cells(10, 10), visibleCells) Is Nothing Then
MsgBox "This cell is not visible."
End If
End With
End Sub
Заранее спасибо за помощь,
Марван