Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6886 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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も０〜255段階の個別の快調を持たせているはずだと
思いますよ。加色混合です(減色混合ではなく）ので
期待できると思いますが･･･
【42522】Re:RGBでセル色指定する方法
回答  角田 WEB  - 06/9/13(水) 20:36 -
引用なし
パスワード
   こんにちは。
試してみると判りますが
パレット５６色以外の色の組み合わせ(R,G,B)をセルに設定しても
５６色の内のどれかで設定されます。

既定の５６色以外の色を使いたい場合は､パレットそのものの
配色を変更する（これはブック単位で保存されます）必要が
あります。
[ツール→オプション→色]
【42533】Re:RGBでセル色指定する方法
お礼  けんじ君  - 06/9/14(木) 0:38 -
引用なし
パスワード
   ▼Mariさん▼角田 さん：
アドバイスありがとうございます。
Mariさんから諦めるなとの励ましをもらい
頑張ってみたのですが、やはり角田さんの
下記↓の通りRGBで変えたとしても56色のいずれかでした。
>こんにちは。
>試してみると判りますが
>パレット５６色以外の色の組み合わせ(R,G,B)をセルに設定しても
>５６色の内のどれかで設定されます。

できないと解っただけでも収穫です。
またお願いします。(^-^)
【42539】Re:RGBでセル色指定する方法
発言  Ned  - 06/9/14(木) 11:31 -
引用なし
パスワード
   ▼けんじ君 さん：
こんにちは。
余計なおせっかいかもしれませんが、角田さんは
■パレットそのものの配色を変更すれば可能です。
■これはブック単位で保存されます。
と、おっしゃってます。
これは

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

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

ActiveCell.Interior.ColorIndex = 24

で割り当てればいいですね。
>カラーパレットを別の色に設定してしまうと自分のマシンのみは
>可能ですがデータを他に渡したときに色が変わってしまいますよね
Bookごと渡してはどうですか？
【42540】Re:RGBでセル色指定する方法
お礼  けんじ君  - 06/9/14(木) 12:15 -
引用なし
パスワード
   ▼Ned さん：
>余計なおせっかいかもしれませんが、角田さんは
>■パレットそのものの配色を変更すれば可能です。
>■これはブック単位で保存されます。

>と、おっしゃってます。
>これは
>
>ActiveWorkbook.Colors(24) = RGB(221, 221, 221)
>
>などと設定すれば良いという意味です。
>（24...は色パレット24番で、グラフ塗りつぶし８番目）
>あとは
>
>ActiveCell.Interior.ColorIndex = 24
>
>で割り当てればいいですね。
>>カラーパレットを別の色に設定してしまうと自分のマシンのみは
>>可能ですがデータを他に渡したときに色が変わってしまいますよね
>Bookごと渡してはどうですか？
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
Nedさんわかりやすい説明ありがとうございました。
他のPCで開いてみました。
book単位ならOKですね(^^)/~~~
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6886 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free