[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2007/03/27(Tue) 10:21
投稿者名：ダンボ
Ｅメール：
ＵＲＬ　：
タイトル：色指定しても補正されてしまう
EXCEL2000VBAです。1時間ほど悩みました。
「セルフォント色を設定するにはColorプロパティにRGB値をセットすればよい」と色々な解説に
書いてありますがどうもそれでは舌足らずのようです。

Sub Macro2()
Dim L As Long
For L = 0 To &HFFFFFF Step 1
    ActiveCell.Value = L
    ActiveCell.Font.Color = L
    ActiveCell.Offset(, 1) = ActiveCell.Font.ColorIndex
    ActiveCell.Offset(, 2) = (ActiveCell.Font.Color = L)
'    If (ActiveCell.Font.Color = L) Then Stop
Next L
End Sub

このコードで証明されるように、
「ColorプロパティにRGB値をセットしても直接その値がセットされるのではなく、
カラーテーブルから類似の色をEXCELが探し出してそのRGB値をセットする」
という解釈でいいですね？

カラーテーブルだと56色ぐらいしかないです。どうしてもそのRGB値に拘りたい場合は
自分でカラーテーブルを編集・切り替えながら使うということで。

投稿時間：2007/03/27(Tue) 12:00
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: 色指定しても補正されてしまう
> カラーテーブルだと56色ぐらいしかないです。どうしてもそのRGB値に拘りたい場合は
> 自分でカラーテーブルを編集・切り替えながら使うということで。

Excel 2000 だと、カラーテーブルに依存してしまいますね。

Excel 2007 では、Color プロパティでフルカラーを扱えます。
Excel シート自体のフォント設定数の上限があるので、
一度に1670万色を指定することはできませんけれども。

投稿時間：2007/03/27(Tue) 15:06
投稿者名：ダンボ
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 色指定しても補正されてしまう
魔界の仮面弁士さん、フォローありがとうございます。

> Excel 2000 だと、カラーテーブルに依存してしまいますね。

会社標準アプリとしてはOffice2000が大分長く続いています。あと2年くらいはそれでしのぐのかも。
WindowsVista導入もあと2年後かしら。