0
こんにちは、エクセルVBA 2003 -
キーワードに基づいてautopopulating日は、私はこのフォーラムに新たなんだと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
ありがとう列Bには何も入力することによってトリガーされる
、
ジョニー
これまでに試したコードをすべてお知らせください。 StackOverflowは協力し、特定のコーディングの問題を解決するためにセットアップされています。それはコード・フォー・ユー・サービスではありません。ご使用にならない場合は、Excelの* Developer *タブにある* Macro Recorder *を試してみてください。あなたのコメントに特化して、ほとんどのコードは存在し、そこにありますが、コードをあなたのデータセットに適合させるためには、一般にあなたの努力が必要です。 – Cyril
こんにちはジョニー、私はこれは単純な "if"の式で行うことができると理解しているので、少し詳細を説明できますか？コード化の必要はありません。 –
また、スプレッドシートの用語を使用するときは具体的にしてください。列B、D、およびJは、すべての行に適用されます。行B、行D、行Jと書いておきます。一貫性を持たせるためにあなたの投稿を更新することができれば幸いです。 – Cyril