この醜いFor Next を変えたいのです

こんばんは

文字の色を、番号を入力すればマクロで変えられるようにしたので
その表のしたに、文字色がわかるサンプル表をつくりました

このFor Nextはいくらなんでも、素人色満載でひどすぎると思います
自分では結構苦労したのですが、能力の限界です

さらにFor Nextで囲めば、マクロはもっと短くなると思うのですが
その方法がわかりませんで、マクロをどう変えたらよいでしょうか

Dim j As Long

　For j = 3 To 9 　　'C列からI列
Cells(26, j).Font.ColorIndex = j - 2 　 '26行から
Cells(26, j) = "Aa色番号 : " & j - 2
Next j

For j = 3 To 9
Cells(27, j).Font.ColorIndex = j + 5
Cells(27, j) = "Aa色番号 : " & j + 5
Next j

For j = 3 To 9
Cells(28, j).Font.ColorIndex = j + 12
Cells(28, j) = "Aa色番号 : " & j + 12
Next j

For j = 3 To 9
Cells(29, j).Font.ColorIndex = j + 19
Cells(29, j) = "Aa色番号 : " & j + 19
Next j

For j = 3 To 9
Cells(30, j).Font.ColorIndex = j + 26
Cells(30, j) = "Aa色番号 : " & j + 26
Next j

For j = 3 To 9
Cells(31, j).Font.ColorIndex = j + 33
Cells(31, j) = "Aa色番号 : " & j + 33
Next j

For j = 3 To 9
Cells(32, j).Font.ColorIndex = j + 40
Cells(32, j) = "Aa色番号 : " & j + 40
Next j

For j = 3 To 9
Cells(33, j).Font.ColorIndex = j + 47 　 '33行まで
Cells(33, j) = "Aa色番号 : " & j + 47
Next j

質問者からの補足コメント

• 「気になる」が１件あるようですが
  これって、まだ、私のために答えを考えてくれてる方がいる
  ということでしょうか
  
  ここで質問締め切ったら、失礼ですよね
  よくわかりません

    補足日時：2017/09/25 19:44

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2017/09/25 19:29

こちらで動作確認していませんが、以下のようにしていかがでしょうか。

For j = 3 To 9
Cells(26, j).Font.ColorIndex = j - 2 　 '26行から
Cells(26, j) = "Aa色番号 : " & j - 2
Cells(27, j).Font.ColorIndex = j + 5
Cells(27, j) = "Aa色番号 : " & j + 5
Cells(28, j).Font.ColorIndex = j + 12
Cells(28, j) = "Aa色番号 : " & j + 12
Cells(29, j).Font.ColorIndex = j + 19
Cells(29, j) = "Aa色番号 : " & j + 19
Cells(30, j).Font.ColorIndex = j + 26
Cells(30, j) = "Aa色番号 : " & j + 26
Cells(31, j).Font.ColorIndex = j + 33
Cells(31, j) = "Aa色番号 : " & j + 33
Cells(32, j).Font.ColorIndex = j + 40
Cells(32, j) = "Aa色番号 : " & j + 40
Cells(33, j).Font.ColorIndex = j + 47 　 '33行まで
Cells(33, j) = "Aa色番号 : " & j + 47
Next j

この回答へのお礼

こんばんは
ありがとうございます
こんなに速くに回答もらえてうれしいです

ああ、これでいいんですね
わたしのは、For Nextが多すぎました

一目見てわかります
ありがとうございました

お礼日時：2017/09/25 19:37

No.2 回答者： tatsu99 回答日時： 2017/09/25 19:53

＞気になる」が１件あるようですが

＞これって、まだ、私のために答えを考えてくれてる方がいる
＞ということでしょうか

No1です。
私は、「気になる」をクリックしていませんが、
これをクリックする方は、「回答するつもりはないがどのような結果になるか見てみたい」
という方のほうが多いと思います。
その為、この「気になる」を考慮する必要はありません。

質問を締め切るかどうかは、「あなたが十分満足できる回答を得たかどうか」で決めれば良いかと思います。
もっと、良い回答を期待するなら、締め切らずに待っていた方が良いです。
十分満足した回答であると判断されたなら、締め切れば良いでしょう。

この回答へのお礼

ありがとうございます
気になるの意味がわかりました
これで質問を締め切らせていただきます

すぐに回答もらえて感謝です

お礼日時：2017/09/25 19:57