如何为日期下拉列表设置数据验证并高亮当前日期？

1. 创建下拉列表（数据验证） #

• 选中需要设置下拉列表的单元格/整列
• 切换到「数据」选项卡，点击「数据验证」（部分旧版本叫「数据有效性」）
• 在弹出的对话框中，「允许」选择「序列」
• 在「来源」框中：
  • 选项较少时，直接用逗号分隔输入（例如已完成,进行中,未开始）
  • 选项已存于工作表中时，直接选中对应单元格区域（例如$B$1:$B$3）
• 勾选「提供下拉箭头」，点击「确定」完成设置

2. 为下拉列表添加条件格式 #

• 选中已设置下拉的单元格/列
• 切换到「开始」选项卡，点击「条件格式」→「新建规则」
• 根据需求选择规则类型：
  • 例1：高亮特定选项（如“已完成”）
    选择「只为包含以下内容的单元格设置格式」，「单元格值」→「等于」，输入已完成，点击「格式」设置填充色/字体样式，确认即可。
  • 例2：自定义公式规则（如高亮非默认选项）
    选择「使用公式确定要设置格式的单元格」，输入公式（例如=A1<>"未开始"，将A1替换为目标列的首个单元格地址），设置格式后确认。

Excel内置的数据验证下拉列表无法直接为选项添加高亮格式，可通过以下两种方式实现需求：

方法1：条件格式高亮单元格内的当前日期 #

若只需选中当前日期后，单元格自动高亮：

• 选中已设置日期数据验证的列
• 点击「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
• 输入公式：=A1=TODAY()（将A1替换为目标列的首个单元格地址）
• 点击「格式」设置填充色（如黄色），确认后，单元格内容为当前日期时会自动高亮。

方法2：用ActiveX组合框实现下拉时高亮当前日期 #

若需要展开下拉列表时，当前日期选项直接高亮，需借助VBA：

1. 插入ActiveX组合框
   • 切换到「开发工具」选项卡（未显示的话，需在Excel选项中启用），点击「插入」→「ActiveX控件」→「组合框（ActiveX控件）」
   • 在目标列上方绘制组合框，右键点击组合框→「属性」：
     • 设置「LinkedCell」为目标单元格（例如A1）
     • 设置「ListFillRange」为2023年日期所在的单元格区域（例如$C$1:$C$365）
2. 添加VBA代码
   • 右键点击组合框→「查看代码」，在VBE编辑器中输入以下代码：

     Private Sub ComboBox1_DropButtonClick()
         Dim i As Integer
         For i = 0 To ComboBox1.ListCount - 1
             If ComboBox1.List(i) = Date Then
                 ComboBox1.ListIndex = i
                 Exit Sub
             End If
         Next i
     End Sub
     

   • 将文件保存为「.xlsm」格式（启用宏的工作簿），之后点击组合框下拉时，当前日期会自动被选中并高亮显示。

内容的提问来源于stack exchange，提问作者Stephen