Excel VBA質問箱 IV

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

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


25485 / 76732 ←次へ | 前へ→

【56586】Re:条件に応じて指定範囲の背景色を変える表
回答  ひげくま  - 08/6/23(月) 16:00 -

引用なし
パスワード
   とりあえずは、どんなに不恰好でも、やりたいことを実現できるコードを書けるようになりましょうか。

A1からA3まで色を塗るのであれば、

  Range("A1").Interior.ColorIndex = 34
  Range("A2").Interior.ColorIndex = 34
  Range("A3").Interior.ColorIndex = 34

で大丈夫です。
もちろん、このようなコードを書く人は稀ですが、何もできないよりはましです。

実際にA1からA3の範囲の背景色を変更して、それを「ツール − マクロ − 新しいマクロの記録」でマクロに記録してみましょう。
上記コードよりまともな書き方が解りますよ。

> この条件をほかの行にも繰り返すことができません

繰り返す、の真意が良く理解できていませんが、不恰好でも良ければ、

Select Case Range("A1").Value


Select Case Range("A2").Value


Select Case Range("A3").Value



で良いんじゃないでしょうか。

Select構文を使えるくらいであれば、If構文、For構文、Do Loop構文等もお解かりですよね?
何に困っているのかがよく解りません・・・

0 hits

【56575】条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 13:51 質問
【56578】Re:条件に応じて指定範囲の背景色を変える表 ひげくま 08/6/23(月) 14:03 回答
【56579】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 14:08 質問
【56581】Re:条件に応じて指定範囲の背景色を変える表 ひげくま 08/6/23(月) 14:24 回答
【56582】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 15:11 質問
【56583】Re:条件に応じて指定範囲の背景色を変える表 ひげくま 08/6/23(月) 15:17 発言
【56584】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 15:30 質問
【56585】Re:条件に応じて指定範囲の背景色を変える表 neptune 08/6/23(月) 15:55 発言
【56591】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 16:20 お礼
【56586】Re:条件に応じて指定範囲の背景色を変える表 ひげくま 08/6/23(月) 16:00 回答
【56588】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 16:13 質問
【56590】Re:条件に応じて指定範囲の背景色を変える表 ひげくま 08/6/23(月) 16:19 回答
【56592】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 16:23 お礼
【56593】Re:条件に応じて指定範囲の背景色を変える表 ひげくま 08/6/23(月) 16:30 回答
【56599】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 17:38 お礼
【56587】Re:条件に応じて指定範囲の背景色を変える表 Yuki 08/6/23(月) 16:08 発言
【56589】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 16:16 お礼
【56594】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 16:36 質問
【56595】Re:条件に応じて指定範囲の背景色を変える表 Yuki 08/6/23(月) 16:47 発言
【56596】Re:条件に応じて指定範囲の背景色を変える表 blackjet 08/6/23(月) 16:57 お礼

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