嘿，我懂你帮妈妈做T恤库存管理表格时遇到的这个复选框自动填日期的麻烦——之前我帮朋友弄过类似的库存表，踩过不少坑，给你整理个靠谱的解决办法！

先搞清楚控件类型（很重要！） #

Excel里的复选框分两种：ActiveX控件和表单控件，代码写法不一样，先确认你用的是哪种：

• ActiveX控件：插入后右键能看到「属性」选项，样式更灵活
• 表单控件：插入后右键是「设置控件格式」

方案一：用ActiveX复选框的情况 #

这是你之前尝试的类型，补全并修正代码即可：

1. 关联复选框到单元格（可选但推荐）
   右键复选框 → 「属性」，在LinkedCell里填一个空白单元格（比如A1），这个单元格会存勾选状态，不想显示的话可以隐藏列。
2. 编写VBA代码
   按Alt+F11打开VBA编辑器，找到你的工作表（比如Sheet1），双击进入代码窗口，粘贴下面的代码：

   Private Sub CheckBox1_Change()
       ' 把下面的"B1"改成你要填充日期的目标单元格，比如库存表的日期列对应单元格
       Dim targetCell As Range
       Set targetCell = Me.Range("B1")
       
       If Me.CheckBox1.Value = True Then
           targetCell.Value = Date ' 只填日期，要带时间就改成Now()
           targetCell.NumberFormat = "yyyy/mm/dd" ' 设置你想要的日期格式
       Else
           ' 如果取消勾选要清空日期，就保留这行；不需要的话删掉
           targetCell.Value = ""
       End If
   End Sub
   

   ✅ 注意：如果你的复选框名字不是CheckBox1，右键看「属性」里的Name，代码里要同步改成对应的名字！

方案二：用表单控件复选框的情况 #

如果是表单控件，要用工作表的Change事件来触发：

1. 关联复选框到单元格
   右键复选框 → 「设置控件格式」→ 「控制」，在「单元格链接」里选一个空白单元格（比如A1）。
2. 编写VBA代码
   同样打开VBA编辑器，进入对应工作表的代码窗口，粘贴：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 把"$A$1"改成你关联复选框的单元格地址，"B1"改成日期目标单元格
       If Target.Address = "$A$1" Then
           If Target.Value = True Then
               Me.Range("B1").Value = Date
               Me.Range("B1").NumberFormat = "yyyy/mm/dd"
           Else
               Me.Range("B1").Value = ""
           End If
       End If
   End Sub
   

必看的避坑指南 #

• 保存文件时要选.xlsm格式（启用宏的工作簿），不然代码会失效！
• 打开文件时一定要启用宏（弹出安全提示时选「启用内容」），不然代码不运行。
• 如果是批量的T恤行（每行一个复选框），可以写更通用的代码，比如根据复选框所在行自动填充对应行的日期列，有需要的话可以再问细节！

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