Excel VBA如何找到過濾工作表的ActiveCell計數

Question

我有一個可過濾的聯繫人數據庫和用戶窗體。我想要的是用戶窗體上的2個計數器。 lblSelection應該給出數據集的總量。而lblCount應該在整個數據集中給出所選單元格的位置。

類似「你是在一套300 45」

現在，當數據庫被過濾應改爲例如「你是在67集6」，僅使用可見細胞計數的位置該範圍內的選定單元格。

下面是簡單的代碼我使用至今：

Public Sub CountReset() 

    'Display Count 
     If ActiveSheet.FilterMode = False Then 
      Me.lblCount = activecell.Row - 1 
      Me.lblSelection = activecell.Offset(-1, 0).End(xlDown).Row - 1 

     Else 
      Me.lblCount = ???? 
      Me.lblSelection = Base.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1 
     End If 

    End Sub 

已經感謝您的幫助！

Answer 1

我認爲你需要這樣一個循環：

Public Sub CountReset() 
    Dim n      As Long 
    Dim rCell     As Range 
    'Display Count 
    If ActiveSheet.FilterMode = False Then 
     Me.lblCount = ActiveCell.Row - 1 
     Me.lblSelection = ActiveCell.Offset(-1, 0).End(xlDown).Row - 1 

    Else 
     n = -1 
     With Base.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible) 
      For Each rCell In .Cells 
       n = n + 1 
       If rCell.Row = ActiveCell.Row Then Exit For 
      Next 
      Me.lblCount = n 
      Me.lblSelection = .Cells.Count - 1 
     End With 
    End If 

End Sub 

Answer 2

你幾乎明白了。

Public Sub CountReset() 

    Me.lblCount = activecell.Row - 1 ' this will be the same if it's filtered or not 

    If ActiveSheet.FilterMode = False Then 

     Me.lblSelection = activecell.Offset(-1, 0).End(xlDown).Row - 1 

    Else 

     'assuming base is a defined table or named range ... also no need to filter it because it's already filtered 
     Me.lblSelection = Base.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1 

    End If 

End Sub