| |
▼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)内の
ブレイクポイントで止まるかどうか試してみて下さい
|
|
ハト
- 06/7/13(木) 15:22 -
