レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

ケイジさんの投稿

(投稿ID: 5389)

小川先生こんにちは

マクロの自動記録で、セルの色設定がうまくいきません。
講義にように、オレンジの色番号46というマクロを自動記録で作成することができません。

自動記録でセルの色設定を作成すると、以下のようになります。（色番号が49407になる）
改善方法について、ご教示のほど、よろしくお願いいたします。

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

なお、自動記録で色設定がうまくいかないため、現状、以下のように色の名前を書いて対応しています。
”a.Tab.Color = rgbOrange”

2022/09/10 06:27

田中宏明さんのコメント

(コメントID: 7847)

こんにちは。オンライン受講生　田中宏明です。

自動記録の色設定はExcelのバージョンによる違いがあります。
・Excel 2003まで → ColorIndexプロパティ
・Excel 2007以降 → Colorプロパティ

Excel 2007以降は、自動記録したコードをご自身でColorIndexプロパティに
修正することになります。

慣れの問題なので、Colorプロパティの色番号を使い、特に修正しなくても
良いのではないかと思います。

参考サイト
http://officetanaka.net/excel/vba/cell/cell04.htm

2022/09/10 11:02

ケイジさんのコメント

(コメントID: 7864)

田中様

解答いただきありがとうございました。
理解が深まりました。

2022/09/14 05:23

小川慶一さんのコメント

(コメントID: 7865) 添付ファイルのダウンロード権限がありません

ケイジさん、

田中さんの言われるとおりで、色については、 RGB 関数を使って自分で設定するのが早いですね。

なお、今回であれば、以下のどちらも同じ結果になります。

.Color = 49407
.Color = RGB(0, 192, 255)

RGB関数は、Red, Green, Blue それぞれに対して 0-255 の範囲のいずれかの整数値を取りえます。
この関数は、第一引数で得られた値を 256 * 256 倍、第二引数で得られた値を 256 倍、第一引数で得られた値を 1 倍して得られた数を加算した結果を返します。

つまり:

R: 0
G: 192
B: 255

だと、

R: 0 -> 0
G: 192 -> 49152
B: 255 -> 255

ということで、 0 + 49152 + 255 -> 49407 という値になります。

簡単なシミュレーションをできるワークシート関数を埋め込んだエクセルファイルを添付しました。
こちらも、触ってみてください。

ひきつづき、よろしくお願いいたします。

2022/09/14 13:02

小川慶一さんのコメント

(コメントID: 7866)

追記です。

"orange rgb" といったキーワードで Google で検索すると、所望の色を rgb でどう表現できるかのヒントを得られます。

以下は検索結果の例です。 (255, 165, 0) でいけそうですね。
https://www.google.com/search?q=orange+rgb

2022/09/14 13:06

小川慶一さんのコメント

(コメントID: 7867)

追伸:

サイト内で、 RGB 関数について言及している投稿/コメントを以下のリンクから確認できます。
ご活用ください。
https://forum.pc5bai.com/lesson/entries/?keyword=rgb(

2022/09/14 14:09

ケイジさんのコメント

(コメントID: 7870)

小川先生

こんばんわ。
質問に対する回答ありがとうございます。

頂いたエクセルデータで、色設定の仕組みを理解することができました。
ありがとうございます。
引き続きよろしくお願い致します。

2022/09/14 19:43