Excel VBA質問箱 IV

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

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


41393 / 76732 ←次へ | 前へ→

【40419】Re:ワークシートチェンジイベントについて
発言  ハト  - 06/7/13(木) 15:22 -

引用なし
パスワード
   ▼aaa さん:
>▼ハト さん:
>こんにちは。
>
>>動かなくなる = Worksheet_Change イベントが発生しなくなるということでしょうか?
>
>はい。今のところセルの値を変更しても何も起きません。
>変数宣言のところにブレイクポイントを付けてみたのですが、止まりません。というか反応していないというか・・・
>コードは以下のように一番最初に書いたものに変えました。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>  Dim onDate As Variant
>  Dim ofDate As Variant
>  Dim maxvalue As Variant
>    Application.EnableEvents = False
>    onDate = Worksheets("Sheet1").Range("B1").Value
>    ofDate = Worksheets("Sheet1").Range("D1").Value
>    maxvalue = Worksheets("Sheet1").Range("G1").Value
>    With Target
>      If onDate Or ofDate Or maxvalue Then
>        1_creategraph
>      End If
>    End With
>  Application.EnableEvents = True
>End Sub
>
>「Application.EnableEvents = True」が最後にあるので通常通りこれが動けば実行されるはずなのですが・・・
>ワークシートチェンジイベントって使いにくいものなんでしょうか??
>エラーだけでも出てくれればいいのですが、それすらなく無反応って感じでどう対処したらいいかわかりません。。。
>よろしくお願いします。

おそらく、
ブレイクポイントを付けてみたのですが、止まりません
ということですので

Application.EnableEvents = False

となっている為、
Private Sub Worksheet_Change(ByVal Target As Range)
が発生しない
と思われます


標準モジュールに
Sub Test()
  Application.EnableEvents = True
End Sub

を記述して実行してみてください

その後、セルの値を変更して
Private Sub Worksheet_Change(ByVal Target As Range)内の
ブレイクポイントで止まるかどうか試してみて下さい

0 hits

【40409】ワークシートチェンジイベントについて aaa 06/7/13(木) 13:14 質問
【40412】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 13:37 回答
【40413】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 13:52 発言
【40416】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:01 質問
【40418】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 15:19 発言
【40423】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:34 発言
【40425】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 15:46 発言
【40426】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:54 発言
【40428】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 16:03 回答
【40432】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 16:58 発言
【40434】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 17:12 回答
【40436】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 17:33 お礼
【40419】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 15:22 発言
【40424】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:39 発言
【40427】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 15:55 発言

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