Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54157 / 76732

←次へ　｜　前へ→


	【27375】Re:条件によるセル色の変更について

りん

- 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になっている
　・イベントを貼り付けたシートが違う
　・値を入力したセルが１０行目より上（条件に合っていない）
　・　　　〃　　　　　Ｚ列より左　　（　　　　〃　　　　）

イベント実行の状態をチェックして、起きない場合は起こるようにする。
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