ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】指定した曜日のデータを集計するマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、指定した曜日のデータを集計するマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200411031938p:plain

このデータから日曜日の数値だけを合計します。

 

<マクロ実行後>

f:id:gorilla-strong:20200411032125p:plain

C列に曜日の番号を求めます。

あとはこの番号をキーにしてSUMIF関数で合計を計算しています。

動作としては以上です。

 

ソースコード

Sub TEST()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To lastrow

ws.Range("C" & i) = WorksheetFunction.Weekday(ws.Range("A" & i), 2)

Next

Dim rng1, rng2 As Range
Set rng1 = ws.Range("B3:B" & lastrow)
Set rng2 = ws.Range("C3:C" & lastrow)

ws.Range("E3") = WorksheetFunction.SumIf(rng2, "=7", rng1)


End Sub

 

以上、ゴリラストロングでした。