我正在尝试开发一个自动过滤字段的代码，它将逐月更改。
我有一个用户表单，用户在其中选择报告月份，然后脚本在结构化表格的顶部找到该月份，然后下拉 1 行以选择结构化表格的标题。单击用户表单上的“确定”后。
由于每次我需要将其作为变量输入时，字段编号“列”都会发生变化。我从其他人的帖子中尝试了许多不同的解决方案，但仍然没有运气。
我不记得我现在尝试过的所有不同组合。
Private Sub cbOK_Click()
Sheets("Weekly Timesheet").Select
Sheets("Weekly Timesheet").Range("H5").Select
ActiveCell.value = cboRMonth.value
Unload Me
ReportMonth = cboRMonth.value
MsgBox ReportMonth
Sheets("Tracking (DAYS)").Select
Sheets("Tracking (DAYS)").Range("N2").Select
Do Until ActiveCell = ReportMonth
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(1, 0).Select
'Tells me what the name of the header is (just to make sure I've got the
right one selected).
Dim Col As String
Col = ActiveCell
MsgBox Col
Dim lCol As Long
lCol = ActiveCell.Column
ActiveSheet.ListObjects("Tracking_DAYS").Range(lCol).AutoFilter _
Criterial:=">0", _
Operator:=x1FilterValues
End Sub
我希望能够根据用户窗体的输出将表的列过滤为大于 0 的值。