【マクロの成長記録：13日目】日付関数の練習

どーもKiyotomoです。

この1週間、そして何より昨日の24時過ぎまでの勤務がきいて、
今日はずっと爆睡でした。。

少しの気力を振り絞って,マクロをやります

13日目

今日の問題はこちら

練習問題12（日付関数の練習）解答｜VBA練習問題解答

日付関数の練習

これは実務でも使いそうですね！
今までは関数でSUMIFやCOUNTIF、AVERAGEIFなどで対応してました

記載したコード

Sub 練習12()
　Dim 何曜日 As Variant
　Dim i As Long
　Dim F As Long
　　Range(Cells(2, 7), Cells(8, 9)).ClearContents
　　For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
　　何曜日 = Weekday(DateSerial(Cells(i, 1), Cells(i, 2), Cells(i, 3)), vbMonday)
　　Cells(何曜日 + 1, 7) = Cells(何曜日 + 1, 7) + Cells(i, 4)
　　Cells(何曜日 + 1, 8) = Cells(何曜日 + 1, 8) + 1
　Next i
　　For F = 2 To 8
　　Cells(F, 9) = Cells(F, 7) / Cells(F, 8)
　Next F
End Sub

　何曜日 = Weekday(DateSerial(Cells(i, 1), Cells(i, 2), Cells(i, 3)), vbMonday)

このある曜日を起点にする考えは知らないと難しいですね。
ここの部分は正直、分からなかった為、見ました。
完全にマスターするには何度か書かないと難しそうでです。

今日は以上です。
やっぱり残業のしすぎは土日を浪費し、
自己研磨の時間が減るので駄目ですね。

今日はだいぶリフレッシュできたので、明日こそ朝活します！
最後まで読んで頂きありがとうございましたー！