現在業務で、フォルダ内のすべてのExcelブックに対し、
先月分の数字の集計をするためのマクロを使用しています(下記VBA参照)
ところが、2月分を取得したあたりから、1日ずれて取得されるようになってしまいました。
例)3/1~3/31を取得したいのに、2/28~3/30まで取得、集計されてしまう
2月が28日までだからとしか考えられないのですが、
ほかに原因と、対処法が思いつかず・・何が考えられるかもしお分かりの方いらっしゃいましたら、お願いいたします。
以下は使用しているVBAです。
Sub 先月分集計()
Dim OE, wb
Dim dRange As Range, r As Range
Dim myFolder As String, Filename As String
Dim d1 As String, d2 As String
With Application.FileDialog(msoFileDialogFolderPicker)
If Not .Show Then Exit Sub
myFolder = .SelectedItems(1) & "\"
End With
Set dRange = ActiveSheet.Range("B1:B3")
Set OE = CreateObject("Excel.Application")
d1 = ">" & CStr(DateSerial(Year(Date), Month(Date) - 1, 0))
d2 = "<" & CStr(DateSerial(Year(Date), Month(Date), 1))
Filename = Dir(myFolder & "*.xlsx")
Do While Filename <> ""
Set wb = OE.Workbooks.Open(myFolder & Filename, 3, True)
Set r = wb.ActiveSheet.Columns(1)
dRange(1).Value = r.Worksheet.Name
dRange(2).Value = OE.WorksheetFunction.SumIfs(r.Offset(, 1), r, d1, r, d2)
dRange(3).Value = OE.WorksheetFunction.SumIfs(r.Offset(, 2), r, d1, r, d2)
wb.Close False
Set dRange = dRange.Offset(, 1)
Filename = Dir()
Loop
OE.Quit
MsgBox "終了しました"
End Sub
No.2ベストアンサー
- 回答日時:
d1 = ">" & CStr(DateSerial(Year(Date), Month(Date) - 1, 0))
を
d1 = ">=" & CStr(DateSerial(Year(Date), Month(Date) - 1, 1))
に変えてみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
count(*)で取得した値をJAVAの...
-
VBAでActiveDirectoryのユーザ...
-
Yahoo! JAPANのID取得について
-
VB.NETで DataRow()を利用して...
-
ディスプレイの表示可能な解像...
-
VBA:小数点以下の数字を取得で...
-
C言語におけるコンピュータ名・...
-
データ数をカウントしたいのですが
-
年月日時分秒の変数を教えて下さい
-
ListView 項目の選択/選択解除...
-
エクセルVBAで複数選択できるよ...
-
エクセルVBAで別ファイルのデー...
-
時間を分に変換するプログラム
-
UWSCでhtmlソースの文字列を取...
-
COMポート 名前を取得する方法
-
Flexgridで選択行の列の値を取...
-
like演算子内に変数って使えな...
-
ASP.NETでIPアドレスログイン管...
-
ActiveWorkbook.Path取得できない
-
利用者側のMACアドレスを取得し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでActiveDirectoryのユーザ...
-
VB.NETで DataRow()を利用して...
-
ListView 項目の選択/選択解除...
-
VBA:小数点以下の数字を取得で...
-
count(*)で取得した値をJAVAの...
-
データ数をカウントしたいのですが
-
like演算子内に変数って使えな...
-
ListViewで複数選択された項目...
-
Flexgridで選択行の列の値を取...
-
エクセルVBAで複数選択できるよ...
-
JavaScriptでWindowsログオンID...
-
利用者側のMACアドレスを取得し...
-
郵便番号検索APIにてget Elemen...
-
COMポート 名前を取得する方法
-
コンボボックス表示文字列を取...
-
VBA Shapesの座標からセル位置...
-
Spreadの選択行の取得について
-
VBScriptで数値にコンマを付け...
-
C言語におけるコンピュータ名・...
-
Excel VBA でログインしてい...
おすすめ情報