多和田 真也 さん:

多和田 真也 さん:

いえいえ。
エクセルのバージョン2003までと2007以降では、自動記録でできあがるコードの内容に違いがあります。
本当はそのことについてきちんと解説するべきなのかもしれません。

以下、とりいそぎ。

.ColorIndex と .Color の違いは、以下のとおりです。

.ColorIndex :
予め用意された色のうちからどの色を使うか指定している。

.Color :
色を赤緑青の光の三原色のそれぞれをどのくらい明るくするか？を直接指定している

- - -

サンプルコード1: 以下では、 .ColorIndex何番が何色かを調べます。何番まであるかを知りたいので、あえて、実行時エラーで処理が中断するまで調査を継続するように書いてみました。

Sub DotColorIndexSample()
    Dim c As Long
    Do
        Range("A" & c + 1).Interior.ColorIndex = c
        Range("B" & c + 1).Value = c
        c = c + 1
    Loop
End Sub

- - -

.Color での発色指定は以下の数値によって行います。

赤の発色: 0-255 の 256段階 * 256 ^ 0
緑の発色: 0-255 の 256段階 * 256 ^ 1
青の発色: 0-255 の 256段階 * 256 ^ 2

サンプルコード2: 以下では、各種の色を .Color で指定してみました。

Sub DotColorSample()
    Dim Red As Long
    Dim Gre As Long
    Dim Blu As Long
    Dim num As Long
    
    '黒
    Red = 0
    Gre = 0
    Blu = 0
    num = Red * 256 ^ 0 + Gre * 256 ^ 1 + Blu * 256 ^ 2
    Range("D1").Value = num
    Range("E1").Interior.Color = num

    '赤
    Red = 255
    Gre = 0
    Blu = 0
    num = Red * 256 ^ 0 + Gre * 256 ^ 1 + Blu * 256 ^ 2
    Range("D2").Value = num
    Range("E2").Interior.Color = num

    '緑
    Red = 0
    Gre = 255
    Blu = 0
    num = Red * 256 ^ 0 + Gre * 256 ^ 1 + Blu * 256 ^ 2
    Range("D3").Value = num
    Range("E3").Interior.Color = num

    '青
    Red = 0
    Gre = 0
    Blu = 255
    num = Red * 256 ^ 0 + Gre * 256 ^ 1 + Blu * 256 ^ 2
    Range("D4").Value = num
    Range("E4").Interior.Color = num

    '灰
    Red = 128
    Gre = 128
    Blu = 128
    num = Red * 256 ^ 0 + Gre * 256 ^ 1 + Blu * 256 ^ 2
    Range("D5").Value = num
    Range("E5").Interior.Color = num

    '白
    Red = 255
    Gre = 255
    Blu = 255
    num = Red * 256 ^ 0 + Gre * 256 ^ 1 + Blu * 256 ^ 2
    Range("D6").Value = num
    Range("E6").Interior.Color = num
End Sub

もっとも、これでは直感的に色を指定できなくて面倒なので、きちんと色指定したいときにはRGB関数を使うのが一般的です。

サンプルコード3: 以下では、各種の色を .Color で指定してみました。さらに、RGB関数を使用しています。

Sub RGBSample()
    '黒
    Range("G1").Value = RGB(0, 0, 0)
    Range("H1").Interior.Color = RGB(0, 0, 0)

    '赤
    Range("G2").Value = RGB(255, 0, 0)
    Range("H2").Interior.Color = RGB(255, 0, 0)

    '緑
    Range("G3").Value = RGB(0, 255, 0)
    Range("H3").Interior.Color = RGB(0, 255, 0)

    '青
    Range("G4").Value = RGB(0, 0, 255)
    Range("H4").Interior.Color = RGB(0, 0, 255)

    '灰
    Range("G5").Value = RGB(128, 128, 128)
    Range("H5").Interior.Color = RGB(128, 128, 128)

    '白
    Range("G6").Value = RGB(255, 255, 255)
    Range("H6").Interior.Color = RGB(255, 255, 255)
End Sub

ということで、まずはここまでいかがでしょう？

で、最後に、

>できれば、動画の中で扱われているように、.Interior.ColorIndex = 8
>のような、１桁とか２桁の数字で色番号が表記されるように自動記録の設定を変更したいと思っているのですが、その方法が分かりません。

に対する僕の見解を述べておきます。以下のとおりに考えています。

[1] 代表的な（自分がよく使う） .ColorIndex の数値はたくさんマクロを書いているうちになんとなく覚えてしまうので、存外不便は感じない。いざとなったら前記サンプルコード１のようなものを作って自分で調査すればよい。
[2] .ColorIndex だけで 57色あるので、これだけあれば実務で不便を感じることはないが、 .ColorIndex で自分の好みの色を見つけられなかったら、 .Color を使って色を作ればよい。

2016/10/30 07:07

小川先生、返事が遅れてすみません。ありがとうございました。

今のところ、仕事で使うときは私もRGBで作成することが多いです。

私は、職場ではExcel2007、自分のパソコンではExcel2016を使っているのですが、双方で、
任意のセルで右クリック＞セルの書式設定＞塗りつぶし＞その他の色ボタンをクリック
で、RGBでの色設定を確認できるので。

2016/11/15 19:03

多和田 真也 さん:

>今のところ、仕事で使うときは私もRGBで作成することが多いです。

そうなんですね。

僕は基本 .colorindex です。
理由は、前回も書いたとおり、以下です。

> 代表的な（自分がよく使う） .ColorIndex の数値はたくさんマクロを書いているうちになんとなく覚えてしまうので、存外不便は感じない。いざとなったら前記サンプルコード１のようなものを作って自分で調査すればよい。

実務では時間が惜しくて色調整とかしていなので。

2016/11/15 21:13