Excel VBA質問箱 IV

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

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


54157 / 76732 ←次へ | 前へ→

【27375】Re:条件によるセル色の変更について
発言  りん E-MAIL  - 05/8/7(日) 12:13 -

引用なし
パスワード
   みなさん、こんにちわ。

>>>Case True: .Interior.ColorIndex = 8 '条件に適応
>>>のカラー指定はどの列に表示されるのでしょうか?
>>ここのTargetというのは、
>>Worksheet_Change(ByVal Target As Range)
>>で指定されているので、セルの値を変更したときのそのセルの列ということになる
>>のではないでしょうか?
>補足ですが、
> Changeイベントが起きた対象のセル範囲(Target)が、
>  ・単一セルである
>  ・Z列以降である
>  ・11行目以降である
10行目でした。

>を満たし、かつ、
> 値が入っており、その値が数値である場合
>に、数値範囲の条件をチェックします(ここまではもとのまま)。

前回貼ったコードを試して、Z10より、右、下セルに数値を入れたときにメッセージボックスが出なければ、イベントはおきていません。
考えられる理由として、
 ・EnableEvents=Falseになっている
 ・イベントを貼り付けたシートが違う
 ・値を入力したセルが10行目より上(条件に合っていない)
 ・   〃     Z列より左  (    〃    )

イベント実行の状態をチェックして、起きない場合は起こるようにする。
Sub Test()
  With Application
   Select Case .EnableEvents
     Case True: MsgBox .EnableEvents, vbInformation
     Case False
      MsgBox .EnableEvents, vbExclamation
      .EnableEvents = True 'おきる
   End Select
  End With
End Sub

1 hits

【27343】条件によるセル色の変更について ヒライ 05/8/5(金) 20:26 質問
【27359】Re:条件によるセル色の変更について りん 05/8/6(土) 13:44 回答
【27360】Re:条件によるセル色の変更について ヒライ 05/8/6(土) 14:01 質問
【27362】Re:条件によるセル色の変更について かみちゃん 05/8/6(土) 14:06 回答
【27363】Re:条件によるセル色の変更について ヒライ 05/8/6(土) 14:27 お礼
【27374】Re:条件によるセル色の変更について りん 05/8/7(日) 12:05 発言
【27367】Re:条件によるセル色の変更について yasu 05/8/6(土) 16:15 回答
【27368】Re:条件によるセル色の変更について かみちゃん 05/8/6(土) 16:22 回答
【27371】Re:条件によるセル色の変更について りん 05/8/6(土) 20:18 発言
【27372】Re:条件によるセル色の変更について yasu 05/8/7(日) 6:57 質問
【27373】Re:条件によるセル色の変更について かみちゃん 05/8/7(日) 7:20 発言
【27375】Re:条件によるセル色の変更について りん 05/8/7(日) 12:13 発言
【27378】Re:条件によるセル色の変更について yasu 05/8/7(日) 18:02 質問
【27393】Re:条件によるセル色の変更について りん 05/8/8(月) 9:00 回答
【27417】Re:条件によるセル色の変更について yasu 05/8/8(月) 19:12 お礼

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