Làm thế nào để xác định xem một ô bảng tính có thể nhìn thấy/được hiển thị trong VBA?

Question

Tôi cần tìm xem ô có hiển thị trên màn hình hay không.

Hiển thị, tôi không có nghĩa là bị ẩn. Tôi đặc biệt cố gắng tìm một ô hiện đang được hiển thị trong trang tính đang hoạt động hay không, nếu nó không được hiển thị, tức là: ô đó đã được cuộn ra khỏi trang tính hiện hoạt.

tôi đã xem xét trực tuyến, và chỉ có thể tìm thấy đoạn mã sau đó dường như không làm việc cho tôi:

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 

Cảm ơn trước sự giúp đỡ của bạn,

Marwan

Answer 1

Dưới đây là một chức năng thực hiện những gì bạn muốn:

Function CellIsInVisibleRange(cell As Range) 
CellIsInVisibleRange = Not Intersect(ActiveWindow.VisibleRange, cell) Is Nothing 
End Function 

Ít nhất là tôi nghĩ vậy. Tôi đã không nhận thức được tài sản VisibleRange cho đến bây giờ.

Gọi nó thích:

If CellIsInVisibleRange(ActiveSheet.Range("A35")) Then 
    MsgBox "Cell is visible" 
Else 
    MsgBox "Cell isn't visible" 
End If