|
▼ハト さん:
こんにちは。
>動かなくなる = 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」が最後にあるので通常通りこれが動けば実行されるはずなのですが・・・
ワークシートチェンジイベントって使いにくいものなんでしょうか??
エラーだけでも出てくれればいいのですが、それすらなく無反応って感じでどう対処したらいいかわかりません。。。
よろしくお願いします。
|
|