独学Excel VBA

アクセスカウンタ

help RSS セルの文字の色,塗りつぶしの色

<<   作成日時 : 2009/11/03 10:09   >>

ブログ気持玉 0 / トラックバック 0 / コメント 0

Excelのセルに書かれている文字の色を取得してみます.

下の画像のようにA2〜A7セルに文字色と塗りつぶし色を変えたデータを用意します.
画像


プログラムは以下
'ここから
Sub ColorTest()
For 行 = 2 To 7
Cells(行, 1).Select
文字色コード = Cells(行, 1).Font.ColorIndex
塗りつぶし色コード = Cells(行, 1).Interior.ColorIndex
Cells(行, 3) = 文字色コード
Cells(行, 5) = 塗りつぶし色コード
Next 行
End Sub
'ここまで

実行結果
画像


黒の字の色コードが-4105になっていますが,これはフォント色を何も指定せずに自動的に黒になったときのコードです.
試しにフォント色を自動ではなく黒を指定してやるとコードは1になります.

Excel 2003では56色の色が選べるのですが,色コードと色の関係はどうなっているのでしょうか.
以下のプログラムを使って調べてみましょう.

'ここから
Sub ColorTest2()
For 行 = 2 To 58
Cells(行, 1) = 行 - 2
Cells(行, 1).Font.ColorIndex = 行 - 2
Cells(行, 2).Interior.ColorIndex = 行 - 2
Next 行
End Sub
'ここまで

実行結果
画像


文字色まで変える必要はなかったかも知れませんね.

テーマ

注目テーマ 一覧


月別リンク

ブログ気持玉

クリックして気持ちを伝えよう!
ログインしてクリックすれば、自分のブログへのリンクが付きます。
→ログインへ

トラックバック(0件)

タイトル (本文) ブログ名/日時

トラックバック用URL help


自分のブログにトラックバック記事作成(会員用) help

タイトル
本 文

コメント(0件)

内 容 ニックネーム/日時

コメントする help

ニックネーム
本 文
セルの文字の色,塗りつぶしの色 独学Excel VBA/BIGLOBEウェブリブログ
[ ]