ある特定の、数値が入力された日付を常時表示

質問

エクセルのセル（Ａ）に、特定の数値が入力されたら、セル（Ｂ）にその入力日の日付けを、常時表示することの出来る関数を教えて下さい。

回答No.2

ASIMOV · ベストアンサー

シートの Change イベントに記述します
----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
　 celle_A = "A1": 'セル（Ａ）
　 celle_B = "B1": 'セル（Ｂ）
　 tokutei = 123: '特定の数
　 If Target.Address(0, 0) <> celle_A Then Exit Sub
　 Application.EnableEvents = False
　 If Range(celle_A) <> tokutei Then
　　 Range(celle_B) = ""
　 Else
　　 Range(celle_B) = Now
　 End If
　 Application.EnableEvents = True
End Sub
-----------------------------
セル（Ａ）、セル（Ｂ）、特定の数をremon008さんのシートに合わせて変えてください

お礼

的確なご回答を、ありがとうございました。
とても、助かりました。
何か有りましたら、またよろしくお願いします。

回答No.1

ASIMOV

ＶＢＡなら、出来ると思いますが
１．特定の数値は、１つだけですか？
２．特定の数値が入力された後、別の数値が入力された場合はどうするのでしょうか？
３．２．の後、また特定の数値が入力された場合は、どちらの日付を表示するのでしょうか？

補足

早速、回答ありがとうございます。
説明不足で、すみませんでした。
下記の通り、補足します。

１．特定の数値は、１つだけですか？
一つだけです。
２．特定の数値が入力された後、別の数値が入力された場合はどうするのでしょうか？
　　　別の数字が、入力されると空白にしたい。
３．２．の後、また特定の数値が入力された場合は、どちらの日付を表示するのでしょうか？
　　　再度特定数字が入力されると、特定の数字が入力された日付を表示させたい。

これで、分かるでしょうか？
よろしくお願いします。