VBAでワークシートのセルが表示/表示されているかどうかを確認する方法

Question

セルが画面に表示されているかどうかを調べる必要があります。

表示されていると、私は隠されているわけではありません。私は具体的には、現在アクティブなシートにセルが表示されているかどうか、または表示されていないかどうか、つまり表示されているアクティブシートからスクロールされているかどうかを調べようとしています。

私がオンライン見てきた、と私だけのために動作していないよう次のコードを見つけることができます：あなたの助けを事前に

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 

おかげで、

マルワン

Answer 1

ここですあなたが望むことをする関数：

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

少なくとも私はそうだと思います。私は今までVisibleRangeプロパティを認識していませんでした。

はそれが好きコール：

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