|
Jakaさんいつもありがとうございます。
だいぶ悩みましたが、こんな感じでうまく動きました、いかがでしょうか
いままでVBAていやだな〜って思っていましたけど、一つずつ解決できると
不思議と楽しく感じてきますね^^
Dim 年 As Long, 月 As Long, 月初 As String
With Sheets("【勘定元帳】")
.AutoFilterMode = False
With .Range("A1")
If Combo月.Text = "ALL" Then
.AutoFilter Field:=1
Else
年 = Year(Now())
月 = Combo月.List(Combo月.ListIndex) '変数の型が数値型なので数字の場合、数値に変換してくれます。
月初 = ">=" & 年 & "/" & 月 & "/1"
月末 = "<=" & Format(DateSerial(年, 月 + 1, 1) - 1, "yyyy/m/d")
MsgBox 月初 & vbLf & 月末
.AutoFilter Field:=1, Criteria1:=月初, Operator:=xlAnd, Criteria2:=月末
End If
|
|