Sub RGB_func_value()
Range("A1").Interior.Color = 4202622
Range("A2").Interior.Color = RGB(126, 32, 64)
Debug.Print Range("A1").Interior.Color = Range("A2").Interior.Color 'True
Dim r As Long, g As Long, b As Long
Dim r_rgb As Long, g_rgb As Long, b_rgb As Long
r = 126
g = 32
b = 64
r_rgb = r * 256 ^ 0
g_rgb = g * 256 ^ 1
b_rgb = b * 256 ^ 2
Debug.Print (r_rgb + g_rgb + b_rgb) '4202622
End Sub
ナオさんの投稿
(投稿ID: 4862)
.ColorIndex =13と表示されていますが、私のエクセル(2019)で実行してみると .Color = 10498160と表示されます。.ColorIndex と表示させるのに何か設定?とかありますでしょうか。
また過去コメントをキーワードで検索する事は可能でしょうか。
小川 慶一さんのコメント
(コメントID: 6814)
おはようございます。
> .ColorIndex =13と表示されていますが、私のエクセル(2019)で実行してみると .Color = 10498160と表示されます。.ColorIndex と表示させるのに何か設定?とかありますでしょうか。
この動画を収録したときのエクセルのバージョンですと、特に工夫しないで自動記録をすると、 .ColorIndex で記録されます。
今は、 .Color で自動記録されます。
.ColorIndex は、あからじめ指定された色番号で色を指定するときの書き方です。
.Color は、 RGB関数で色指定をするときの書き方です。赤、緑、青の発色具合を0-255の範囲で指定します。
例: Range("A1").Interior.Color = RGB(126, 32, 64)
RGB関数の戻り値は、「第一引数の値 * 256 ^ 0 + 第二数の値 * 256 ^ 1 + 第三引数の値 * 256 ^ 2」です。
以下、試してみてください。理解が深まるかと思います。
このページのコメント584あたりからのやりとりも参考になるかと思います。
> また過去コメントをキーワードで検索する事は可能でしょうか。
すでにお気づきと思いますが、各ページにあるコメントは、前述のとおり、ページをスクロールしていくことでみつけられます。
講座横断的な検索方法は、現在提供できていません。
今リリース準備中の新システムでは講座横断的に検索できるように準備しています。恐縮ですが、そちらの新機能の利用については、もうしばらくお待ちいただけますでしょうか。
今後とも気軽にいろいろご質問、ご要望いただければと思います。
ひきつづきどうぞよろしくお願いいたします。
ナオさんのコメント
(コメントID: 6815)
コメントありがとうございます。
ColorIndex 、Color について、質問されている方がいましたね。
確認不足でした。ありがとうござます。
他の方もコメントされていましたが、発展偏になって急にハードルが上がったように感じています^^;
どんどん先に進めたくなりますが、あせらずじっくり知識を定着さます。
小川 慶一さんのコメント
(コメントID: 6817)
コメントありがとうございます。
> ColorIndex 、Color について、質問されている方がいましたね。
> 確認不足でした。ありがとうござます。
システムの使い勝手の問題もあるかと思います。ひきつづき改善していきたいと思っています。どうぞよろしくお願いいたします。
> 他の方もコメントされていましたが、発展偏になって急にハードルが上がったように感じています^^;
> どんどん先に進めたくなりますが、あせらずじっくり知識を定着さます。
抽象度が高くなるので、どうしてもそこは仕方ありませんね。
とはいえ、概念への理解が追いつけば、書けるマクロの質も急激にあがります。楽しみに学んでください。