☰

Excel 按下拉列表的值输入日期

tag-icon • tag-icon microsoft-excel worksheet-function
Excel 按下拉列表的值输入日期

我正在制作一个 Excel 表，其中有一个下拉列表（只是一个数据验证列表），其中包含项目的状态。我想用单击其中一个下拉选项的日期填充多个单元格。例如，当状态从“正在进行”更改为“已完成”时，“完成日期”列中的日期将自动填充当前日期和时间。

我目前在需要自动填写的单元格中有以下公式：

=IF(ISNUMBER(SEARCH("Ongoing", A2)), NOW())

使用此公式，日期不会在单元格中“冻结”，当您选择另一个状态时，日期将从单元格中删除并更新到另一个单元格。

解决这个问题的直接方法是什么？提前致谢。

答案1

这是一个小演示，您可以根据自己的需要进行调整。在演示中，用户更新单元格中的状态A2通过A10. 如果用户输入完成的，宏将在相邻单元格中输入一个静态日期。在工作表代码区域输入以下内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RangeOfInterest As Range, r As Range, rng As Range
    Set RangeOfInterest = Range("A2:A10")
    Set rng = Intersect(RangeOfInterest, Target)

    If rng Is Nothing Then Exit Sub
    Application.EnableEvents = False
        For Each r In rng
            If r.Value = "Finished" Then r.Offset(0, 1).Value = Date
        Next r
    Application.EnableEvents = True
End Sub

因为它是工作表代码，所以很容易安装并自动使用：

  1. 右键单击 Excel 窗口底部附近的选项卡名称
  2. 选择查看代码-这将打开一个 VBE 窗口
  3. 粘贴内容并关闭 VBE 窗口

如果您有任何疑虑，请首先在试用工作表上尝试一下。

如果您保存工作簿，宏将随之保存。如果您使用的是 2003 以后的 Excel 版本，则必须将文件保存为 .xlsm 而不是 .xlsx

到消除宏：

  1. 调出如上所示的 VBE 窗口
  2. 清除代码
  3. 关闭 VBE 窗口

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其工作！

相关内容