当方Excel2003です。
あるブックの中にシートが一つ（シート名はsheet1）あり、そのシートの中にはB2セルを起点とするデータリストがあります。
（データリストの列はB列→名前、C列→金額、D列→日付とし、日付の表示はyyyy/mm/dd、行は約400行ほどあります。）
現在、データリストのD列にマクロのオートフィルターを使用し、任意の年月の月始めから月末までのデータを抽出しようとして、以下の構文を作成中なのですが、
datStart = DateSerial("i", "j", 1)
の部分でエラーが出てしまい、「型が一致しません」と表示されてしまいます。
どういうふうに変更したら良いのか、またそもそも全体の構成がおかしい等の問題点があればその解決策をどなたかご教示いただければ幸いです。
よろしくお願いいたします。
Sub 指定月抽出()
Dim i, j As Integer
Dim datStart As Date
Dim datEnd As Date
Dim strSDate As String
Dim strEDate As String
i = Application.InputBox("年を入力してください。", Type:=1)
j = Application.InputBox("月を入力してください。", Type:=1)
If i = False Or j = False Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Worksheets("sheet1").AutoFilterMode Then
Worksheets("sheet1").AutoFilterMode = False
End If
datStart = DateSerial("i", "j", 1)
datEnd = DateAdd("m", 1, datStart)
strSDate = ">=" & Format(datStart, "yyyy/m/d")
strEDate = ">=" & Format(datEnd, "yyyy/m/d")
With ThisWorkbook.Worksheets("DATA")
.Range("B2:D" & Range("D65532").End(xlUp).Row).Select
.AutoFilter Field:=3, _
Criteria1:=strSDate, _
Operator:=xlAnd, _
Criteria2:=strEDate
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
