ym こんにちは。年末に引っ越しをして、手続等は一段落しましたが、
部屋の片づけは一生一段落しなさそうなymです。
～前回までのあらすじ～
駒が進みそうな気配がしてきました。
さて、前回までのコードを見直してみて、なにかお気づきの点はありますでしょうか。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
'--背景色初期化--' Range("B2:I9").Interior.Color = Interior_Color_P For i = 3 To 9 Step 2 For j = 2 To 8 Step 2 Cells(i, j).Interior.Color = Interior_Color_B Next j Next i For i = 2 To 8 Step 2 For j = 3 To 9 Step 2 Cells(i, j).Interior.Color = Interior_Color_B Next j Next i '--背景色初期化おわり--' |
これ、二回出てきてない？ひとつにまとめらんない？
というわけで、今後もたくさん出てくるであろう「背景色初期化」の処理を
ひとつにまとめてしまいましょう。
「標準モジュール」を新たに追加し、以下を書き加えます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Public Sub 背景色初期化() Dim Interior_Color_P As Long Dim Interior_Color_B As Long Interior_Color_P = RGB(244, 176, 132) '背景色_ペールオレンジ' Interior_Color_B = RGB(198, 89, 17) '背景色_茶' Dim i, j As Integer '--背景色初期化--' Range("B2:I9").Interior.Color = Interior_Color_P For i = 3 To 9 Step 2 For j = 2 To 8 Step 2 Cells(i, j).Interior.Color = Interior_Color_B Next j Next i For i = 2 To 8 Step 2 For j = 3 To 9 Step 2 Cells(i, j).Interior.Color = Interior_Color_B Next j Next i '--背景色初期化おわり--' End Sub |
そして、今まで処理があった場所を
|
1 2 |
Call 背景色初期化 |
と書き換えるだけです。簡単です。
全容はGitHubにおいてありますので、必要な方はぜひ持ってってください。
短いですが、今回はここまで。次回から再びじっくりと進めていこうと思います。
完成まで気長に待ってね。ではまた次回。