Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10289 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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")を
今月の色にしてみましたら、難なく解決しました。
助かりました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10289 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free