[[20210127101056]] 『特定のセルに入力すると別のセルに日付が入力され』(mina) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

『特定のセルに入力すると別のセルに日付が入力されるには?』(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


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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.