यह निर्धारित करने के लिए कि वर्कशीट सेल 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