Excel VBA質問箱 IV

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

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


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

【22762】毎月変わる背景色の設定方法 ほーりー 05/3/2(水) 15:06 質問[未読]
【22763】Re:毎月変わる背景色の設定方法 Jaka 05/3/2(水) 15:35 回答[未読]
【22768】Re:毎月変わる背景色の設定方法 ほーりー 05/3/2(水) 17:04 お礼[未読]
【22769】Re:毎月変わる背景色の設定方法 G-Luck 05/3/2(水) 18:18 回答[未読]
【22770】Re:毎月変わる背景色の設定方法 ほーりー 05/3/2(水) 18:54 お礼[未読]

【22762】毎月変わる背景色の設定方法
質問  ほーりー  - 05/3/2(水) 15:06 -

引用なし
パスワード
   みなさんこんにちは。楽しく拝見させて頂いております。
常識的なことかもしれませんが、ご教授頂けると助かります。
Excel2000で毎日定型のデータ入力をVBAで処理しているのですが、
セルの色分けで悩んでいます。

月初に今月の色を決め、注文のあった商品には背景色にその色を
塗るようにしています。
すでに入力してあるデータから該当のセル(行)を検索し、
その色を日々塗っているのですが、その今月のcolorindexを
マクロの中であらかじめ設定しておきたいのです。

データブックは別なので、マクロはアドインにしていますが、
毎月colorindexの設定値を書き換えないとだめなのでしょうか。

上手な方法があれば教えていただけますか。
よろしくお願いします。

【22763】Re:毎月変わる背景色の設定方法
回答  Jaka  - 05/3/2(水) 15:35 -

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

色々あると思うけど...。
こんな感じに色番号を先に設定しておけば、月に応じて変わってくれます。

Dim iroiro As Variant
iroiro = Array(赤の番号, 青の番号, 黄, 4, 5, 6, 7, 8, 9, 10, 11, 12)
MsgBox "今月は、" & iroiro(Month(Now()) - 1) & "の色"

【22768】Re:毎月変わる背景色の設定方法
お礼  ほーりー  - 05/3/2(水) 17:04 -

引用なし
パスワード
   ▼Jaka さん:
早速のご回答ありがとうございます。

>こんにちは。
>
>色々あると思うけど...。
>こんな感じに色番号を先に設定しておけば、月に応じて変わってくれます。
>
>Dim iroiro As Variant
>iroiro = Array(赤の番号, 青の番号, 黄, 4, 5, 6, 7, 8, 9, 10, 11, 12)
>MsgBox "今月は、" & iroiro(Month(Now()) - 1) & "の色"

やっぱり、最初に指定しておくしかないんでしょうね。
内部事情でその月になってこの色って決められるもので・・・(^^;

内部事情を先に解決してみます。
ありがとうございました。

【22769】Re:毎月変わる背景色の設定方法
回答  G-Luck  - 05/3/2(水) 18:18 -

引用なし
パスワード
   ▼ほーりー さん:
マクロの中ということだったので、コードに直接書き込むものと思っていました。

Range("A1").Interior.ColorIndex

で、セルの色のインデックス番号が取得できるので、どこかに「今月の色」セルを作って、適時取得するようにしてはいかがですか?

読んでくれることを期待して。

【22770】Re:毎月変わる背景色の設定方法
お礼  ほーりー  - 05/3/2(水) 18:54 -

引用なし
パスワード
   ▼G-Luck さん:
ご連絡ありがとうございます。

>▼ほーりー さん:
>マクロの中ということだったので、コードに直接書き込むものと思っていました。
>
>Range("A1").Interior.ColorIndex
>
>で、セルの色のインデックス番号が取得できるので、どこかに「今月の色」セルを作って、適時取得するようにしてはいかがですか?
>
>読んでくれることを期待して。

そうなんです。コードに定数として書きこんでいたんですが、
毎月それを書きなおすのが面倒だったので、よい方法はないかと・・・(^^;
マクロブックはアドインにしてますので、シートがつかえないと思って
いましたが、おっしゃられる方法でデータブックの特定のセル("AA1")を
今月の色にしてみましたら、難なく解決しました。
助かりました。ありがとうございました。

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