Excel VBA 2003-基于关键字自动填充日期

Question

下午好，

我也是这个论坛和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列中键入任何内容来触发。

谢谢你，

Jonny

Answer 1

将公式=IF(B2="Open"，"Date"，")放在单元格B2中，向下拖动直到结束。将formula=IF(B3="Closed"，TODAY()，")放入单元格j2中，向下拖动直到结束。你的陈述"B栏说Open，那么我需要在D栏中填充一个日期"。你在这里提到的是哪一天？如果这是你需要的，请告诉我