[英]Excel-VBA: Get Value of a Visible Cell in a Table after applying Filter?
我試圖以一種簡單的方式獲取表(也稱為) ListObject
中的第一個可見單元格。
到目前為止的代碼:
Sub StatusFilter()
Set WB = ThisWorkbook
Set iFace = WB.Sheets("Interface")
Set DataS = WB.Sheets("Data")
iCriteria = iFace.Range("Q22").Value
DataS.Activate
ActiveSheet.ListObjects("Data").Range.AutoFilter 14, iCriteria
ActiveSheet.ListObjects("Data").DataBodyRange.Select
With Columns("A")
.Find(what:="*", after:=.Cells(1, 1), LookIn:=xlValues).Activate
End With
DValue = ActiveCell.Value
If DValue = "" Then
MsgBox "Lucky! No Tickets are in this Criteria!!", vbInformation, "Technology Issue Tracker"
Exit Sub
End If
End Sub
使用您的代碼,您應該初始化您的變量。
這樣的事情應該可以工作(推論 - 這是未經測試的)
Sub StatusFilter()
Dim WB As Workbook: Set WB = ThisWorkbook
Dim iFace As Worksheet: Set iFace = WB.Sheets("Interface")
Dim DataS As Worksheet: Set DataS = WB.Sheets("Data")
Dim iCriteria As String: iCriteria = iFace.Range("Q22")
Dim DValue As String
With DataS.ListObjects("Data").Range
.AutoFilter 14, iCriteria
DValue = Index(.SpecialCells(xlCellTypeVisible), 1).Value
End With
If DValue = "" Then
MsgBox "Lucky! No Tickets are in this Criteria!!", vbInformation, "Technology Issue Tracker"
Exit Sub
End If
End Sub
Function getFirstVisibleCellInTable(tblName As String) As Range
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects(tblName)
For i = 1 To tbl.ListRows.Count
If False = tbl.ListRows(i).Range.EntireRow.Hidden Then
Set getFirstVisibleCellInTable = tbl.DataBodyRange(i, 1)
Exit Function
End If
Next i
getFirstVisibleCellInTable = Nothing
End Function
像這樣使用它:
getFirstVisibleCellInTable("Data")
僅檢索值:
getFirstVisibleCellInTable("Data").Value
僅檢索地址:
getFirstVisibleCellInTable("Data").Address
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.