【マクロの成長記録:15日目】Withとオブジェクト変数の練習
どーもKiyotomoです。
最近、急に寒くなってきましたね。
寒暖差が激しい時期は体調を崩しやすいので気をつけましょう。
本日もマクロ頑張ります。
15日目
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つでも何かしてから寝れば、
ちょっとずつ人と差がつくことを信じ頑張ります。
最後まで読んで頂きありがとうございましたー!
よろしければサポートセンターお願いいたします! 頂いたサポートはクリエイターとしての活動費として使わせて頂きます