|
いつもお世話になります。
【29851】で教えていただいた記述をつかっています。
msgboxには 2005/10/1
2005/10/31
など、ちゃんと返ってくるのですが、オートフィルターの方に反映されません
(該当なしで記入行が隠れている状態)
どこがいけないのでしょうか、よろしくお願いいたします。
Dim 年 As Long, 月 As Long, 月初 As String
With Sheets("【勘定元帳】")
.AutoFilterMode = False
With .Range("A1")
If Combo月.Text = "ALL" Then
Selection.AutoFilter Field:=1
Else
年 = Year(Now())
月 = Combo月.List(Combo月.ListIndex) '変数の型が数値型なので数字の場合、数値に変換してくれます。
月初 = 年 & "/" & 月 & "/1"
月末 = Format(DateSerial(年, 月 + 1, 1) - 1, "yyyy/m/d")
MsgBox 月初 & vbLf & 月末
Selection.AutoFilter Field:=1, Criteria1:=月初, Operator:=xlAnd, Criteria2:=月末
End If
|
|