VB6.0用掲示板の過去のログ(No.2)−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値に拘りたい場合は
自分でカラーテーブルを編集・切り替えながら使うということで。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）