Hatena::ブログ(Diary)

まりふのひと RSSフィード

訪問数:4910507直近記事一覧見かたPCRFAQ別紙ふせんSSKPro一覧)|麻里府発OneDriveiPS-BB掲示板2
MiPS予定予定一覧MAPS-TAMAPS-TPiPS-77iPS-BB)(修了:iPSなかよしiPS遊々, iPSマクロ研WAWP)|よくある質問

 | 

2011.5.12 (木)

Excel VBAのColorIndexコードと色との関係を調べた

WindowsXPのExcel2003のVBAで、セルの文字の色を変えたいため、[新しいマクロの記録]を行い、「赤は 3」と云うことが解った。

    Range("A1").Select
    Selection.Font.ColorIndex = 3

他の色は? 一覧表みたいなのは無いの?

nser

色々なサイトに載っていたが、Office TANAKA - Excel VBA講座:セルの操作[文字色の設定] が簡単で解りやすいので引用させていただいた。

上の色の並びは、[ツール]メニュー ⇒[オプション]⇒[色]タブと同じです。

上記サイトには、気になることも書いてあった。

 このように、文字色の変更をマクロ記録すると、Excelのバージョンによって、次のプロパティが記録されます。

  • Excel 2003まで → ColorIndexプロパティ
  • Excel 2007以降 → Colorプロパティ

そこで同じサイトに載っているVBAコード参考に後述を作り、実行してみたので参考にして、、、、、ほしい。

  • 例えば、ColorIndex の 9 と 30 が、同じ色コードになっている。
Sub カラーインデックスコードと色()
Dim i As Long, r As Long
Dim strAns As String

    For i = 1 To 56
        r = i + 1
        Cells(r, 1) = i
        Cells(r, 2).Interior.ColorIndex = i
        Cells(r, 3) = ActiveWorkbook.Colors(i)
        strAns = Right("000000" & Hex(ActiveWorkbook.Colors(i)), 6)
        Cells(r, 4) = "'" & Right(strAns, 2) & Mid(strAns, 3, 2) & Left(strAns, 2)
'
        Cells(r, 1).Select
        With Selection.Font
            .ColorIndex = i
            .Name = "Century Gothic"
            .Bold = True
        End With
    Next
End Sub

ムックじいじムックじいじ 2014/05/01 12:21 散々苦労した後、このサイトにたどり着きました。こちらのコードを参考にして、下記のように列挙型カラーインデックス定数を標準モジュールに設定して、活用させてもらいます。
Enum ufci

黒 = 0
茶 = 13209
オリーブ = 13107
濃い緑 = 13056
End Enum

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト

コメントを書くには、なぞなぞ認証に回答する必要があります。

トラックバック - http://d.hatena.ne.jp/ogohnohito/20110512/p2
 | 
迷惑コメント(英文)で困っております
コメント入力方法は
こちら を参照してください。


お世話になります

カレンダー
<< 2011/05 >>
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
おいでませ
4910508