Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6884 / 13644 ツリー ←次へ | 前へ→

【42512】RGBでセル色指定する方法 けんじ君 06/9/13(水) 18:22 質問[未読]
【42513】Re:RGBでセル色指定する方法 角田 06/9/13(水) 18:30 回答[未読]
【42515】Re:RGBでセル色指定する方法 けんじ君 06/9/13(水) 18:58 発言[未読]
【42514】Re:RGBでセル色指定する方法 カド 06/9/13(水) 18:55 回答[未読]
【42516】Re:RGBでセル色指定する方法 カド 06/9/13(水) 18:59 回答[未読]
【42517】Re:RGBでセル色指定する方法 けんじ君 06/9/13(水) 19:05 発言[未読]
【42518】Re:RGBでセル色指定する方法 けんじ君 06/9/13(水) 19:28 お礼[未読]
【42519】Re:RGBでセル色指定する方法 Mari 06/9/13(水) 19:32 発言[未読]
【42522】Re:RGBでセル色指定する方法 角田 06/9/13(水) 20:36 回答[未読]
【42533】Re:RGBでセル色指定する方法 けんじ君 06/9/14(木) 0:38 お礼[未読]
【42539】Re:RGBでセル色指定する方法 Ned 06/9/14(木) 11:31 発言[未読]
【42540】Re:RGBでセル色指定する方法 けんじ君 06/9/14(木) 12:15 お礼[未読]

【42512】RGBでセル色指定する方法
質問  けんじ君  - 06/9/13(水) 18:22 -

引用なし
パスワード
   こんにちは よろしくお願いします。
題名の通りなんですがRGBでセルの色を指定する方法教えてください。
Sub セルカラー()
  Range("H18:H23").Select
  With Selection.Interior
    .ColorIndex = 24
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
  End With
End Sub
範囲は不特定なのでクリック指定後マクロで変えたいのですが
Interior.color = RGB(190, 190, 190)?
過去ログから調べたのですがよくわかりませんでした。

【42513】Re:RGBでセル色指定する方法
回答  角田 WEB  - 06/9/13(水) 18:30 -

引用なし
パスワード
   こんにちは

>  With Selection.Interior
>    .ColorIndex = 24
>Interior.color = RGB(190, 190, 190)?
カラーパレットに無い色(56色以外)はセルには塗れません。

また、仮にパレットにある色だとしてもColorIndexではなく
RGB を使う事に意味は有りませんね。
わざわざ難しくする必要はないでしょう。

【42514】Re:RGBでセル色指定する方法
回答  カド  - 06/9/13(水) 18:55 -

引用なし
パスワード
   ▼けんじ君 さん こんにちは

検索したら簡単に見つかったので、
こんなことで良かったですか?

Sub セルカラー()
  Range("H18:H23").Interior.Color = RGB(204, 204, 255)
End Sub

【42515】Re:RGBでセル色指定する方法
発言  けんじ君  - 06/9/13(水) 18:58 -

引用なし
パスワード
   ▼角田 さん:
返事ありがとうございます。

プリントアウトしたときにグレーなのですがちょっと濃いので
うすい色にしたくて質問させて貰いました。
ならば、カラープリンターなのですがうすくプリントアウトする
方法はあるでしょうか。解るようなら教えてください。
標準のグレーの一番うすいよりもっとうすくしたいのですが
カラーパレットを別の色に設定してしまうと自分のマシンのみは
可能ですがデータを他に渡したときに色が変わってしまいますよね
・・・・・・・
知らなかったです↓
>>Interior.color = RGB(190, 190, 190)?
>カラーパレットに無い色(56色以外)はセルには塗れません。
>
>また、仮にパレットにある色だとしてもColorIndexではなく
>RGB を使う事に意味は有りませんね。
>わざわざ難しくする必要はないでしょう。

【42516】Re:RGBでセル色指定する方法
回答  カド  - 06/9/13(水) 18:59 -

引用なし
パスワード
   >範囲は不特定なのでクリック指定後マクロで変えたいのですが

質問をよく読んでませんでした。

Sub セルカラー()
  Selection.Interior.Color = RGB(204, 204, 255)
End Sub

【42517】Re:RGBでセル色指定する方法
発言  けんじ君  - 06/9/13(水) 19:05 -

引用なし
パスワード
   ▼カド さん:
ありがとうございます。
しかし角田さんが言ってるとおり56色以外セル指定は
出来ないと言うことなので、残念ですが
あきらめようと思います。いろいろありがとうございました。
>>範囲は不特定なのでクリック指定後マクロで変えたいのですが
>
>質問をよく読んでませんでした。
>
>Sub セルカラー()
>  Selection.Interior.Color = RGB(204, 204, 255)
>End Sub

【42518】Re:RGBでセル色指定する方法
お礼  けんじ君  - 06/9/13(水) 19:28 -

引用なし
パスワード
   色々試しましたがやはりダメでした
みなさんありがとうございました。

【42519】Re:RGBでセル色指定する方法
発言  Mari  - 06/9/13(水) 19:32 -

引用なし
パスワード
   ▼けんじ君 さん:

>しかし角田さんが言ってるとおり56色以外セル指定は
>出来ないと言うことなので、残念ですが
>あきらめようと思います。いろいろありがとうございました。

諦めなくっても・・・
体験していないので、確かなことはいえませんが。
56色以上の組み合わせが出来ると思いますが・・・
= RGB(223, 223, 223)はグレーの明るい色でチャートには
ありますが、例えば
= RGB(255, 223, 223)
はチャートに無いのでは?
RBGでヘルプを見られると分かると思いますが
RもBもGも0〜255段階の個別の快調を持たせているはずだと
思いますよ。加色混合です(減色混合ではなく)ので
期待できると思いますが・・・

【42522】Re:RGBでセル色指定する方法
回答  角田 WEB  - 06/9/13(水) 20:36 -

引用なし
パスワード
   こんにちは。
試してみると判りますが
パレット56色以外の色の組み合わせ(R,G,B)をセルに設定しても
56色の内のどれかで設定されます。

既定の56色以外の色を使いたい場合は、パレットそのものの
配色を変更する(これはブック単位で保存されます)必要が
あります。
[ツール→オプション→色]

【42533】Re:RGBでセル色指定する方法
お礼  けんじ君  - 06/9/14(木) 0:38 -

引用なし
パスワード
   ▼Mariさん▼角田 さん:
アドバイスありがとうございます。
Mariさんから諦めるなとの励ましをもらい
頑張ってみたのですが、やはり角田さんの
下記↓の通りRGBで変えたとしても56色のいずれかでした。
>こんにちは。
>試してみると判りますが
>パレット56色以外の色の組み合わせ(R,G,B)をセルに設定しても
>56色の内のどれかで設定されます。

できないと解っただけでも収穫です。
またお願いします。(^-^)

【42539】Re:RGBでセル色指定する方法
発言  Ned  - 06/9/14(木) 11:31 -

引用なし
パスワード
   ▼けんじ君 さん:
こんにちは。
余計なおせっかいかもしれませんが、角田さんは
■パレットそのものの配色を変更すれば可能です。
■これはブック単位で保存されます。
と、おっしゃってます。
これは

ActiveWorkbook.Colors(24) = RGB(221, 221, 221)

などと設定すれば良いという意味です。
(24...は色パレット24番で、グラフ塗りつぶし8番目)
あとは

ActiveCell.Interior.ColorIndex = 24

で割り当てればいいですね。
>カラーパレットを別の色に設定してしまうと自分のマシンのみは
>可能ですがデータを他に渡したときに色が変わってしまいますよね
Bookごと渡してはどうですか?

【42540】Re:RGBでセル色指定する方法
お礼  けんじ君  - 06/9/14(木) 12:15 -

引用なし
パスワード
   ▼Ned さん:
>余計なおせっかいかもしれませんが、角田さんは
>■パレットそのものの配色を変更すれば可能です。
>■これはブック単位で保存されます。

>と、おっしゃってます。
>これは
>
>ActiveWorkbook.Colors(24) = RGB(221, 221, 221)
>
>などと設定すれば良いという意味です。
>(24...は色パレット24番で、グラフ塗りつぶし8番目)
>あとは
>
>ActiveCell.Interior.ColorIndex = 24
>
>で割り当てればいいですね。
>>カラーパレットを別の色に設定してしまうと自分のマシンのみは
>>可能ですがデータを他に渡したときに色が変わってしまいますよね
>Bookごと渡してはどうですか?
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
Nedさんわかりやすい説明ありがとうございました。
他のPCで開いてみました。
book単位ならOKですね(^^)/~~~

6884 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free