Excelのworksheetどこ間違えてますか？

質問

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub
If 0 < Target.Value And Target.Value < 6 Then
Target.Offset(0, 1).Value = Format(Time, "h時m分s秒")
Else
Target.Offset(0, 1).Value = ""
End If
End Sub

以前、このサイトで教えてもらったワークシートのプログラムです。
簡単に言えばＡ列に１から５までの値を入れれば現在時間をＢ列に
表示し、それ以外の場合は何もいれないと言ったものです。
以前はできたんですが最近また入れるとできなくなっていました。
どこかおかしいとこありますでしょうか？？

回答No.4

zap35 · ベストアンサー

＞最近また入れるとできなくなっていました。
とりあえず２つの原因が考えられます

１つめは
Application.EnableEvents = False
になっている可能性が考えられます。そうするとシート上で何らかの操作をしてもイベントが発生しないのでWorksheet_Changeのモジュールも動きません。どこでFalseになったか分からないので明確な回答はできませんが、これを回復させるにはThisWorkbookのモジュールシートに以下を書いておけばブックを開いたときにTrueにできます

Private Sub Workbook_Open()
　Application.EnableEvents = True
End Sub

２つめの原因として「一回の操作で複数のセルの値を変更した」ことが考えられます。その場合は以下のようなコードにすれば良いです

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng, r As Range
　Set rng = Intersect(Target, Range("A:A"))
　If rng Is Nothing Then Exit Sub
　For Each r In rng
　　If 0 < r.Value And r.Value < 6 Then
　　　r.Offset(0, 1).Value = Format(Time, "h時m分s秒")
　　Else
　　　r.Offset(0, 1).Value = ""
　　End If
　Next r
End Sub

回答No.5

keirika

セキュリティーレベルが『高』以上になっていないでしょうか。

回答No.3

xls88

>エラーにはならないが時刻が入力されないです。
下記コードを
End Sub
の上に入れてみてください。

MsgBox "動いています！"

マクロが動いているならメッセージボックスが出ます。

あと、ブレークポイントを設けるとかしてデバッグをしてください。
デバッグについて
http://members.jcom.home.ne.jp/rex-uchida/vba110.htm
ステップ実行
http://hp.vector.co.jp/authors/VA016119/step/step01.html
ローカルウインドウでのデバッグ
http://www.nikonet.or.jp/spring/sanae/program/vba/vba_11.htm

回答No.2

n-jun

貼り付けたシートと別のシートに値を入れているとか？
はないですよね。

回答No.1

xls88

>以前はできたんですが最近また入れるとできなくなっていました。
何を何処に入れたのですか？
エラー内容は表示されますか？
マクロは途中で停止するのですか？
エラーにはならないが時刻が入力されないのですか？

エラー内容が解れば書き込まれた方が良いかと思います。

補足

詳しく説明するの忘れてました。
エラーにはならないが時刻が入力されないです。
あとＡ列に１から５の値を入力しました。