【マクロの成長記録:19日目】月の最終日にセルを挿入、そこに月の合計売上を入れる
どーもKiyotomoです!
先日、仕事から帰ってきて、
「疲れた~、、、」
と思わず独り言を呟いたら、
急にアレクサが癒しの音楽を流し始めました。
アレクサ!って呼んでないのに、、、優しい
ということで今日もマクロ始めまーす!
今日の問題
月の最終日にセルを挿入、そこに月の合計売上を入れる
たまーに使いますね。。
数か月分のデータなどを落とすと全てが繋がったデータで出てくるため、
月ごとに合計した数字を見たい時は過去ありました。
記載したコード
Sub 練習20()
Dim mm As Variant
Dim i As Variant
Dim total As Variant
total = 0
i = 2
mm = Month(Cells(i, 1))
Do Until Cells(i, 1) = ""
If mm <> Month(Cells(i, 1)) Then
Rows(i).Insert
Cells(i, 1) = mm & "月合計"
Cells(i, 2) = total
i = i + 1
mm = Month(Cells(i, 1))
total = 0
End If
i = i + 1
total = total + Cells(i, 2)
Loop
Cells(i, 1) = mm & "月合計"
Cells(i, 2) = total
End Sub
これで無事に動きました!
明日は土曜日!
やっと、まとまって勉強時間がとれます!
毎日ちょとずつ成長してきます!
今日もありがとうございましたー!
よろしければサポートセンターお願いいたします! 頂いたサポートはクリエイターとしての活動費として使わせて頂きます