excel怎么根据日期弹窗VBA代码

不知道你具体在达到什么效果，但你必须得将控件的名称改为宏里面的名称

使用Workbook_Open 事件即可。提供源文件帮你写代码。
可以考虑使用窗体控件 ListView
最简单的方法是录制一个宏，再进入宏编辑器分析一下自然明白。
Range("E4").Select
Selection.NumberFormatLocal = "yyyy-m-d"
E4是指定单元格的名称。

'-------(工作簿）
Private Sub Workbook_Open() '打开
Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭636f7079e799bee5baa6e79fa5e98193338
Private Sub Workbook_BeforePrint(Cancel As Boolean) '打印 Cancel = True
Private Sub Workbook_NewSheet(ByVal Sh As Object) '插入表 Sh.Delete
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) '保存
Private Sub Workbook_Deactivate() '移开

'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '单元格改变运行
'Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '单击单元格运行
'Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)' 双击
'Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)'右击
'-------(工作表）

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) '透视表更新
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) '链接
Private Sub Worksheet_Calculate() '公式的值发生了改变 计算
Private Sub Worksheet_Deactivate() '离开
'Private Sub Worksheet_Change(ByVal Target As Range) '单元格改变运行‘编辑
'Private Sub Worksheet_SelectionChange(ByVal Target As Range) '单击单元格运行、选取
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' 双击
'Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) '右击
If Target.Column = 1 And Target.Row = 1 Then Call AA
End Sub

If Target.Column = 1 And Target.Row = 1 Then Call AA（更改1为2就是B2了 AA为你写好的宏名。