マクロによる日時の表示

質問

こちらのページでお世話になり
以下のようなプログラムを使って
特定の行に入力があった場合となりのセルに入力時間が表示されるようにしたのですが、
通常は例としてA1に入力があった場合B1に入力時間が表示されるといった具合だったのですが、わけあってA1～A3を結合しなければならなくなってしまい、入力時間をB1～B3（同じく結合したセル）に表示したいのです。
同じマクロのままやってみたところ一応入力時間は表示されるのですが、A1～A3に入力したデータを消したときにエラーが出てデバックしますか？といった内容の表示が出てしまいます。
どこを変更するとエラーが出なくなるのでしょうか？
ご存知のかたがいらっしゃいましたらどうぞご教授願います。よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
'　1行目のセルならマクロ終了
If Target.Row = 1 Then Exit Sub

'　A列かC列かE列なら
If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 6 Or Target.Column = 8 Or Target.Column = 10 Or Target.Column = 12 Or Target.Column = 15 Then

'　　内容がブランクなら隣のセルをブランクにする
If Target.Value = "" Then
Target.Offset(0, 1).Value = ""
Else
Target.Offset(0, 1).Value = Format(Date + Time, "yyyy/mm/dd hh:mm:ss")
End If
End If
End Sub

回答No.5

KenKen_SP · ベストアンサー

> ...N列に入力規則でリストの中から項目を選ぶようにしてあるのですが、
> 項目を選択すると「5プロシージャの呼び出し、または引数が不正です。」
> とでてしまう...

N 列をどのように操作しようと、理論的には影響がないはずです。入力規則に
ついても無関係だと思いますが、OS や Excel のバージョンなど異なる環境で
動作検証しているわけではありませんので、確証はありません。

N 列に入力規則のリストを設定しテストしてみましたが、当方では正常に動作
しています。

手がかりとしては、コード中の On Error Goto ～ を一度コメントアウトし、
どこの行でエラーが発生するのか調べてみて下さい。デバックモードになった
ときに黄色で反転している行です。

なお、Application.EnableEvents ＝ False の状態でエラーが発生してコード
の実行がストップしてしまった場合、以後イベントが発生しなくなる可能性が
あります。その場合には、イミディエイトウインドウなどで、

　　Application.EnableEvents ＝ True

を実行して元に戻して下さい。

また、他にもマクロがあるのなら、そちらに原因がある可能性についても、
調べてみて下さい。

お礼

返事が遅くなってすいません。
無事解決することができました。
ほんとにありがとうございました！

回答No.4

KenKen_SP

> 1行だけ（N列だけ）となりの列に時間を表示しないようにしたい...

> 'マクロを実行させるセルを定義(カンマ区切り)
> Const cnsCELLADDRESS = "B2:B65536,D2:D65536,F2:F65536,H2:H65536,J2:J65536,L2:L65536,O2:O65536"

すみません。この関連がわかりません。

N列は定義してないから、となりの列に時間は表示されないと思いますが、、
一行だけ、、と、、(N列だけ）というのは行と列のどちらなのでしょう？

補足

すいません。質問内容に誤りがありました。

一行だけは一列だけの間違いでした。

おっしゃるとおりN列のとなりには時間は表示されないです。
このN列に入力規則でリストの中から項目を選ぶようにしてあるのですが、項目を選択すると「5プロシージャの呼び出し、または引数が不正です。」とでてしまうのです。

回答No.3

KenKen_SP

#2 のコードですが、補足します。

----------------------------------------------------------------------
▼１点目

　　'マクロを実行させるセルを定義(カンマ区切り)
　　Const cnsCELLADDRESS = "A2:A5,C2:C5,E2:E5"

この部分ですが、2行目以降のB列全体なら B2:B65536 と指定して下さい。

　　'マクロを実行させるセルを定義(カンマ区切り)
　　Const cnsCELLADDRESS = "B2:B65536,D2:D65536,F2:F65536,H2:H65536"

このような感じで、一行修正すれば良いだけなので、今後どのような変更が
あっても対応が楽になります、、

----------------------------------------------------------------------
▼２点目

セル全体を選択して消去などの大きな範囲を一度に操作する場合も想定でき
ますので、次のように一行追加しておきます。

　　（前）
　　On Error GoTo ERROR_HANDLER
　　Set rngTARGET = Intersect(Target, Range(cnsCELLADDRESS))

　　（追加後）
　　On Error GoTo ERROR_HANDLER
　　Set rngTARGET = Intersect(Target, Range(cnsCELLADDRESS))
　　Set rngTARGET = Intersect(Me.UsedRange, rngTARGET)

お礼

返事が遅くなってすいません。
大変助かりました。ありがとうございました。
ご丁寧に注意店点なども教えて頂き本当にありがとうございます。

あと、もう一つだけお聞きしたい部分がありまして、1行だけ（N列だけ）となりの列に時間を表示しないようにしたいのです。

教えていただいたマクロをそのまま使いますと、「5プロシージャの呼び出し、または引数が不正です。」とでてしまうのです。
以下が現在のマクロです。

Private Sub Worksheet_Change(ByVal Target As Range)

'マクロを実行させるセルを定義(カンマ区切り)
Const cnsCELLADDRESS = "B2:B65536,D2:D65536,F2:F65536,H2:H65536,J2:J65536,L2:L65536,O2:O65536"

On Error GoTo ERROR_HANDLER
Set rngTARGET = Intersect(Target, Range(cnsCELLADDRESS))
Set rngTARGET = Intersect(Me.UsedRange, rngTARGET)
If Not rngTARGET Is Nothing Then
'セルへのアクセス前にイベント発生を一時的に停止させる
Application.EnableEvents = False
If Application.CountA(rngTARGET) Then
'値が書き込まれた場合
With rngTARGET.Offset(0, 1)
.NumberFormatLocal = "mm/dd hh:mm"
.Value = Now()
End With
Else
'値が消去された場合
With rngTARGET.Offset(0, 1)
.NumberFormatLocal = "G/標準"
.Value = ""
End With
End If
'イベント発生を元に戻す
Application.EnableEvents = True
End If
Set rngTARGET = Nothing
Exit Sub

ERROR_HANDLER:
'EbableEvents を使う場合はエラートラップしてエラー発生時でも
'元に戻るようにしておく
Application.EnableEvents = True
Set rngTARGET = Nothing
MsgBox Err.Number & Err.Description, vbCritical

End Sub

大変お手数ですが、お答え頂けると幸いです。
よろしくお願いいたします。

回答No.2

KenKen_SP

こんにちは、KenKen_SP です。

今後の保守を考えたら、マクロを実行させるセルを定義しておき、Intersect
メソッドで Target の範囲を絞り込む方法が良いと思います。

今回は Target が複数セルであっても、処理内容は同一で、ひとつひとつの
セルをチェックする必要がありませんので、まとめて同時処理してます。

【余談】
Worksheet_Change イベントはセルの値が変更されたとき発生します。注意点
ですが、マクロでセルの値を変更した場合にもこのイベントは発生します。

したがって、ご提示のコードではセルに値を書き込む、あるいは、セルの値を
消去した時点でイベントが再度発生しますので、念のため、これを抑止した方
がいいでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)

　　'マクロを実行させるセルを定義(カンマ区切り)
　　Const cnsCELLADDRESS = "A2:A5,C2:C5,E2:E5"

　　On Error GoTo ERROR_HANDLER
　　Set rngTARGET = Intersect(Target, Range(cnsCELLADDRESS))
　　If Not rngTARGET Is Nothing Then
　　　　'セルへのアクセス前にイベント発生を一時的に停止させる
　　　　Application.EnableEvents = False
　　　　If Application.CountA(rngTARGET) Then
　　　　　　'値が書き込まれたこま場合
　　　　　　With rngTARGET.Offset(0, 1)
　　　　　　　　.NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
　　　　　　　　.Value = Now()
　　　　　　End With
　　　　Else
　　　　　　'値が消去された場合
　　　　　　With rngTARGET.Offset(0, 1)
　　　　　　　　.NumberFormatLocal = "G/標準"
　　　　　　　　.Value = ""
　　　　　　End With
　　　　End If
　　　　'イベント発生を元に戻す
　　　　Application.EnableEvents = True
　　End If
　　Set rngTARGET = Nothing
　　Exit Sub

ERROR_HANDLER:
　　'EbableEvents を使う場合はエラートラップしてエラー発生時でも
　　'元に戻るようにしておく
　　Application.EnableEvents = True
　　Set rngTARGET = Nothing
　　MsgBox Err.Number & Err.Description, vbCritical

End Sub

回答No.1

hana-hana3

説明とコードが全く違っていますけど？

＞'　1行目のセルならマクロ終了
If Target.Row = 1 Then Exit Sub

なので、１行目（結合セルＡ１～Ａ３）に入力しても何も起きません。

＞'　A列かC列かE列なら
If Target.Column = 2 Or ・・・・

Ｂ列かＤ列かＦ列・・・でしか動作しませんけど？

＞Date + Time

Now() で可能です。

＞If Target.Value = "" Then

MsgBox Target.Address で確認すると・・・
Target.Address が、記入時には "$A$1" ですが、
削除時には、"$A$1:$A$3" という範囲になってしまうので、".Value" プロパティがエラーになります。

なので、If Target.Cells(1).Value = "" Then
のような書き換えると良いでしょう。