Question

下午好，

我是这个论坛和VBA的新手，但我知道非常基础知识。我到处搜索，但似乎无法找到正确的代码。

我基本上有一个电子表格来处理我的工作，它有一个＆＃34; Open＆＃34; ＆安培; ＆＃34;封闭＆＃34;并且在选择这些日期时需要填写日期。

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列中输入任何内容来触发。

谢谢，

强尼

Answer 1

在单元格b2中输入公式= IF（B2 =“打开”，“日期”，“”）并向下拖动直到结束。在单元格j2中放置公式= IF（B3 =“已关闭”，TODAY（），“”）并向下拖动直到结束。你的陈述“B栏说Open然后我需要填写D栏的日期”。你在这提到哪个日期？如果这是你需要的，请告诉我

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

1 个答案: