こんにちは、
私はこのフォーラムとVBAの初心者ですが、基本はよく知っています。どこでも検索しましたが、正しいコードを見つけられないようです。
私は基本的に私の仕事を扱うスプレッドシートを持っていて、それは "オープン"と "クローズド"を持っており、これらが選択されたときに日付を入れる必要があります。
Column B = "Open" & "Closed" - this is done in a list format
Column D = Date opened which needs to relate to "Open" from Column B
Column J - Date closed which needs to relate to "Closed" from Column B
これは、B、D、Jのすべての列に適用する必要があります。前の作業があるので、次の空白のセルで開始することは可能ですか？
私は次のコードを使用しました：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, D As Range, Inte As Range, r As Range
Set A = Range("B:B")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Inte
r.Offset(0, 2).Value = Date
Next r
Application.EnableEvents = True
End Sub
これは、列Dに日付を入れ、列Bに何かを入力することによってトリガーされます。
ありがとうございました、
ジョニー
回答：
回答№1は0セルに式= IF（B2 = "Open"、 "Date"、 ""）を入れるb2を押し、最後までドラッグします。セルj2に式= IF（B3 = "Closed"、TODAY（）、 ""）を入力し、最後までドラッグします。あなたの声明は、 "列Bが開くと言って、私は列Dに記入された日付が必要です"。ここであなたが言及している日付は？これがあなたが必要とするものなのかどうか教えてください