ExcelのVBAにつて（16進数から背景色への変換）

質問

VBAを使って各セルの16進数の数値を背景色に変換したいのですがうまくいきません。
プログラムは以下のように書きました。

Sub graphic()
With Cells
.ColumnWidth = 1.0
.RowHeight = ActiveCell.Width
.Interior.Color = &HFFFFFF
.Font.Color = &HFFFFFF
　　End With
　　N = 1
　　For j = 0 To N - 1
　　　　For i = 0 To N - 1
　　　　　　For y = 1 To 200 Step N
　　　　　　　　For x = 1 To 200 Step N
　　　　　　　　With Cells(y + j, x + i)
　　　　　　　　v = .Value
　　　　　　　　r = Mid(v, 2, 2)
　　　　　　　　g = Mid(v, 4, 2)
　　　　　　　　b = Mid(v, 6, 2)
　　　　　　　　c = Val("&H" + b + g + r)
　　　　　　　　.Interior.Color = c
　　　　　　　　.Font.Color = c
　　　　　　　　End With
　　　　　　Next
　　　　Next
　　Next
Next
End Sub

Vista Home PremiumでExcel2007を使っています。
ここでセル内の数値は「#FFFFFF」このような形式です。
変換動作自体は行われるのですが、色の変換が行われず、白く虫食いのようになる部分があります。
数値を変更すると、別の部分の変換が行われなかったりします。

原因のわかる方がおられましたら教えていただきたいと思います。

回答No.1

KonnaMonde · ベストアンサー

以下の点について、補足欄に記入してください。　

>各セルの16進数の数値
>セル内の数値は「#FFFFFF」このような形式です。
>r = Mid(v, 2, 2)　　g = Mid(v, 4, 2)　　b = Mid(v, 6, 2) 　　c = Val("&H" + b + g + r)

これらから推測すると、あらかじめ、何らかの方法でセルに値が入っているはずですね。
どんな方法でどんな値を各セルに入れたのですか？

>変換動作自体は行われるのですが
>色の変換が行われず、白く虫食いのようになる部分があります

白色または白色に近い色に変換されたのではないでしょうか？

値を勝手に入れて試してみたのですが、一部不明な点がありますが一応動いているようです。
各セルの背景色だけでなく、文字の色も背景色と同じにしているということは、各セルの色を変えたいだけではないのですか？
各セルに文字列を入れる、または入っている理由は何ですか？

>N = 1
>For j = 0 To N - 1　　For i = 0 To N - 1
>For y = 1 To 200 Step N

N　が　２　以上に変えることがあるのなら（市松模様にするとか）、良いのですが、N　が　１　の場合、Step N　は、通常書きません（省略します）し、　For j 　For i 　も不要です。

最終的にどんな風になることを望んでいるのですか？

お礼

回答ありがとうございます。
N、i、jは以前作ったものをそのまま用いたもので、消し忘れでした。
N、i、jと.Font.Color を消したら正常に動作しました。
どの部分が原因か分からなかったのですが、実行後「#FFFFFF」が「FFFFFF#」に書き換えられていました。

無事解決することができました。
丁寧なご回答ありがとうございました。