[[20210127101056]]　『特定のセルに入力すると別のセルに日付が入力され』（mina）　ページの最後に飛ぶ

『特定のセルに入力すると別のセルに日付が入力されるには？』（mina）

教えてください。

特定のセルに入力したら、
日付入力セルに入力した日の日付を自動的に入れたいです。
（次にExcelを開いた時に日付が変わらない）

調べましたところ、ここまで辿り着きました。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 82 Then Exit Sub
Application.EnableEvents = False
Target.Offset(-1, 0).Value = Now
Application.EnableEvents = True
End Sub

しかし、１か所だけルールが違うのでできません。
特定のセル及び日付入力のセルは以下の部分です。
AC82に入力→AC81に日付
AE82に入力→AE81に日付
AN82に入力→AN81に日付
AP82に入力→AP81に日付
AR82に入力→AR81に日付
AT82に入力→AT81に日付
AV82に入力→AV81に日付
AX82に入力→AX81に日付

AH80に入力→AH83に日付

どなたか教えていただけますでしょうか。
よろしくお願い致します。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 >If Target.Row <> 82 Then Exit Sub

 イベント発生セルの行が82でなかったらプロシージャから抜ける

 という意味です。

 これを改造してみてください。
（OK） 2021/01/27(水) 10:50

 >If Target.Row <> 82 Then Exit Sub

 参考です。

 If Target.Row = 82 Then
    '行が82の場合の処理

 ElseIf Target.Row = 80 Then
    '行が80の場合の処理

 End If

（OK） 2021/01/27(水) 10:53

出来ました！
大変助かりました。
ありがとうございます。感謝。
（mina） 2021/01/27(水) 11:36

コメント返信：

[ 一覧(最新更新順) ]

[[20210127101056]] 『特定のセルに入力すると別のセルに日付が入力され』（mina） ページの最後に飛ぶ

[[20210127101056]]　『特定のセルに入力すると別のセルに日付が入力され』（mina）　ページの最後に飛ぶ