[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『特定のセルに入力すると別のセルに日付が入力されるには?』(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
しかし、1か所だけルールが違うのでできません。
特定のセル及び日付入力のセルは以下の部分です。
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.