Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
67557 / 76732 ←次へ　｜　前へ→
【13729】Re:こんな条件に従ってセルの色を塗りつぶしたいのですが・・・
回答  ちゃっぴ E-MAIL  - 04/5/12(水) 10:48 -
引用なし
パスワード
   すみませんタイプミスしました。(o*。_。)oペコッ

>>　　　　　　　　If .vlaue <> "" Then
　　　　　　　　　　　　↓
　　　　　　　　　　　valueが正しいです。

p列に項目名がある場合というのであれば

If .Column = 1 Then　　 'A列の場合
　　　　　　　　↓　
If .Column = 16 Then　　 'P列の場合(16はP列を示します)

X列以降に変換データがある場合

Else　　　　　　　　　　'以外
　　　　　　　↓
ElseIf .Column > 23　　'W列以降の場合(23はW列を示します)

上記のように変更すれば動作すると思います。

ただ、この方法ではデータ変更の都度、マクロを手動実行しなければならない為、
データ変更時自動実行させるには、Jakaさんのようにイベントプロシジャーを
用いるのがよいかと思います。
1 hits
▼ 【13710】こんな条件に従ってセルの色を塗りつぶしたいのですが・・・ くりりん 04/5/11(火) 16:05 質問
【13711】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/11(火) 16:38 回答
【13726】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 10:09 質問
【13729】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 10:48 回答≪
【13731】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 11:16 質問
【13733】Re:こんな条件に従ってセルの色を塗りつぶ... [名前なし] 04/5/12(水) 11:26 回答
【13735】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 11:56 質問
【13736】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 12:19 回答
【13739】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 13:15 質問
【13740】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 13:34 回答
【13741】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 13:55 お礼
【13743】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 14:08 回答
【13745】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 15:20 質問
【13746】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 16:17 回答
【13747】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 16:28 お礼
【13713】Re:こんな条件に従ってセルの色を塗りつぶ... Jaka 04/5/11(火) 16:41 回答
【13728】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 10:21 質問
【13773】Re:こんな条件に従ってセルの色を塗りつぶ... Jaka 04/5/13(木) 9:52 回答
【13789】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/13(木) 15:43 お礼
【13730】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 10:53 質問
【13732】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 11:20 回答
【13742】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 14:03 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
67557 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free