|
▼じん さん:
お仕事ご苦労様です。
>Selection.AutoFilter Field:=12, Criteria1:=">=Apr-2003", Operator:=xlAnd _
> , Criteria2:="<May-2003"
お分かりと思いますが、
Apr-2003 が 2003/4
May-2003 が 2003/5
ですね。それで、単純に、2003/4と置き換えると、日付と認識してくれないようです。
そこで、下記のように変換して入力すると出来ました。
後は、2003/1の部分を、TextBox1.Valueと変えてみてください。
ちなみに、下記コードは、データの存在するシート上でのコードです。
Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select
は、オートフィルターの結果のセルを取得しています。
'以下コード
Dim StartDate As Date
Dim EndDate As Date
StartDate = DateValue("2003/1")
EndDate = DateAdd("m", 1, StartDate)
Range("A:D").AutoFilter Field:=4, Criteria1:=">=" & StartDate, _
Operator:=xlAnd, Criteria2:="<" & EndDate
Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select
|
|