阿Q吧 > EXCEL中的VBA订单号无法根据日期自动更新，高手请进，代码如下：

EXCEL中的VBA订单号无法根据日期自动更新，高手请进，代码如下：

2024-11-23 06:43:30

推荐回答（3个）

回答1：

Private Sub Workbook_BeforePrint(Cancel As Boolean)

改为

Private Sub Workbook_Open()

就好了

================

然后这段程序还是保留，就是要有2段程序

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xStr As String
xStr = Right(Sheets("单据").Range("P4"), 11)
If Left(xStr, 8) = Format(Date, "yyyymmdd") Then
xStr = Format(Date, "yyyymmdd") & Application.Text(Right(xStr, 3) + 1, "000")
Else
xStr = Format(Date, "yyyymmdd") & "001"
End If
Sheets("单据").Range("P4") = xStr
End Sub

回答2：

Private Sub Workbook_Open()
Dim xStr As String
xStr = Right(Sheets("单据").Range("P4"), 11)
If Left(xStr, 8) = Format(Date, "yyyymmdd") Then
Exit Sub
Else
xStr = Format(Date, "yyyymmdd") & "001"
End If
Sheets("单据").Range("P4") = xStr
End Sub

'可以加一个Workbook_Open事件的代码，判断下P4的日期是否是当天，是当天日期就退出，不是的话直接直接把内容改为“当天日期001”就可以了。也就是每次打开工作簿的时候先判断一下

回答3：

你的描述真的是太详细了，其实无论数据量有多么的大，既然你已经在列表中显示了，那么还是直接使用 if 函数吧……如果你想写vba 的话写的过程也是很“痛苦”嘀！……如果你的数据是只有原始数据不需要在表上作出判断，而是调用在其他地方同时作出判断结果的话，你写vba 或许有必要……否则是自讨苦吃……函数能解决的问题还是用函数……