【マクロの成長記録：15日目】Withとオブジェクト変数の練習

どーもKiyotomoです。

最近、急に寒くなってきましたね。
寒暖差が激しい時期は体調を崩しやすいので気をつけましょう。

本日もマクロ頑張ります。

15日目

練習問題15（Withとオブジェクト変数の練習）｜VBA練習問題

Withとオブジェクト変数の練習

記載したコード

Sub 練習15()
　Dim i As Long
　Dim m As Long
　Dim 十五 As Variant
　Dim 回答 As Variant
　　Set 十五 = Worksheets("練習15")
　　Set 回答 = Worksheets("練習15_回答")
　m = 2
For i = 2 To 十五.Cells(Rows.Count, 1).End(xlUp).Row
　Select Case 十五.Cells(i, 1)
　Case Is = "支店A"
Do Until 十五.Cells(i, 2) = 回答.Cells(m, 1)
　m = m + 1
Loop
　回答.Cells(m, 2) = 回答.Cells(m, 2) + 十五.Cells(i, 3)
　m = 2
Case Is = "支店B"
Do Until 十五.Cells(i, 2) = 回答.Cells(m, 1)
m = m + 1
Loop
　回答.Cells(m, 3) = 回答.Cells(m, 3) + 十五.Cells(i, 3)
m = 2
　Case Is = "支店C"
　Do Until 十五.Cells(i, 2) = 回答.Cells(m, 1)
　m = m + 1
Loop
　回答.Cells(m, 4) = 回答.Cells(m, 4) + 十五.Cells(i, 3)
　m = 2
　Case Is = "支店D"
　Do Until 十五.Cells(i, 2) = 回答.Cells(m, 1)
　m = m + 1
Loop
　回答.Cells(m, 5) = 回答.Cells(m, 5) + 十五.Cells(i, 3)
　m = 2
　End Select
　Next i
End Sub

これで無事に動きました。

だんだんコードが長くなってきました。
仕事終わりに少し難しくなってきましたね。

仕事が遅くても、1つでも何かしてから寝れば、
ちょっとずつ人と差がつくことを信じ頑張ります。

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