【マクロの成長記録：18日目】週ごとの客単価や合計金額を計算

どーもKiyotomoです！

本日、お昼にきつねうどんを注文したら、
小さく切り刻まれた油揚げがのったうどんが出てきました！
＞＞＞大きい油揚げ1枚で出して欲しい！

ということで本日もマクロ始めます！

今日の問題

練習問題19（総合練習1）｜VBA練習問題

週ごとの客単価や合計金額を計算

ある程度フォーマットが決まって、毎月更新するような業務なら
活躍の場がありそうですね！
僕の業務では特になさそうですが、表計算系は抑えたいところです

記載したコード

Sub 練習19()
　Dim i As Long
　Dim m As Long
　Dim k As Long
　　For k = 3 To 20
　Cells(k, 10) = Application.WorksheetFunction.Sum(Range(Cells(k, 3), Cells(k, 9)))
　Next k
　　For m = 3 To 10
　　For i = 5 To 20 Step 4
　Cells(18, m) = Cells(3, m) + Cells(7, m) + Cells(11, m) + Cells(15, m)
　Cells(19, m) = Cells(4, m) + Cells(8, m) + Cells(12, m) + Cells(16, m)
　Cells(20, m) = Cells(18, m) / Cells(19, m)
　Cells(i, m) = Cells(i - 2, m) / Cells(i - 1, m)
Next i
Next m
　Range("J6").ClearContents
　Range("J10").ClearContents
　Range("J14").ClearContents
End Sub

無事に動きました！

どこをどんな順番で計算していいのか分からず、
何回か修正しながら記載しました。

もっとスマートに書けるようになりたい。

まだまだ業務にガンガン使うというレベルではないですが、
会社に与えてもらうばかりでなく、自己研磨しスキルを上げていきます！

今から何か勉強を始めようと思っている方、一緒に頑張りましょう！

最後まで読んで頂きありがとうございましたー！