我需要帮助ComboBoxes和过滤器，当我从ComboBox1设置过滤器（＆＃34;今天＆＃34;或者＃34;本周＆＃34;）并按下按钮，我想ComboBox2只显示过滤后的数据这是在第1列，怎么做？这是我的代码：
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Range("Database")
If ComboBox1.Value = "Today" Then
With rng
.AutoFilter Field:=2, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
End With
End If
If ComboBox1.Value = "This Week" Then
With rng
.AutoFilter Field:=2, Criteria1:= _
xlFilterThisWeek, Operator:=xlFilterDynamic
End With
End If
End Sub