Excel VBA 「カー計簿」期間抽出
Excel VBA 「カー計簿」期間抽出処理
日付範囲を指定して抽出します。
印刷出力期間・日付範囲を指定します。範囲を指定して実行ボタンをクリックします。
Excel VBA 「カー計簿」期間抽出 入力チェック
期間抽出処理を実行する前に入力値のチェックを行います。
未入力チェック、整合性チェック（大小比較チェック）を実施します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
If (txt_Date1.Value = Null) Or (txt_Date1.Value = "") Then MsgBox ("日付(から～)を入力してください。") Wk_Error_Flg = "Error" Exit Sub Else Wk_Date1 = txt_Date1 End If If (txt_Date2.Value = Null) Or (txt_Date2.Value = "") Then MsgBox ("日付(～まで)を入力してください。") Wk_Error_Flg = "Error" Exit Sub Else Wk_Date2 = txt_Date2 End If |
入力値が未入力であった場合、エラーを返します。
Excel VBA 「カー計簿」期間抽出 ソースリスト
|
1 2 3 4 5 6 7 8 9 10 11 |
With Worksheets("Data").Range("A1") ''''抽出処理 ==> Temp .AutoFilter Field:=3, Criteria1:="入力" .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("Temp").Range("A1") .AutoFilter End With wk_Line = Sh_Temp.Cells(Rows.Count, 1).End(xlUp).Row With Sheets("Temp").Range("A1") ''''日付抽出処理 ==> "Temp2" .AutoFilter Field:=4, Criteria1:=">=" & Wk_Date1, Operator:=xlAnd, Criteria2:="<=" & Wk_Date2 .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("Temp2").Range("A1") .AutoFilter End With |
ワークシートDataをワークシートTempにコピーします。日付期間で抽出してワークシートTemp2にコピーします。
Excel VBA 「カー計簿」期間抽出 結果
日付期間で抽出してワークシートTemp2にコピーします。その後、分類名ごとに集計します。
