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

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




【VBA】平日と土日に分けて集計するマクロを作成してみました。




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

 

今回はVBAで、平日と土日に分けて集計するマクロを作成してみました。

 

<元データ>

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

 C列にWEEKDAY関数で曜日の数値を求め、それをキーにしてSUMIFで集計します。

 

<マクロ実行後>

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

動作としては以上です。

 

ソースコード

Sub main()

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) = 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("F3") = WorksheetFunction.SumIf(rng2, "<=5", rng1)
ws.Range("F4") = WorksheetFunction.SumIf(rng2, ">5", rng1)



End Sub

 

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