excel VBA高手请进，关于让表格自动刷新的问题？

效果详件图片，如何让单元格自动刷新？

第1个回答 2019-07-10

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个回答 2019-07-10

需求讲得不是很清楚。

相似回答

excel VBA高手请进,关于让表格自动刷新的问题~答：可以用worksheet_change事件，把代码复制到你要操作的sheet，不是放在单独模块里面 重点是要注意先屏蔽worksheet_change对宏内事件的相应你试试看，可以追问 Private Sub Worksheet_Change()Application.EnableEvents = False '屏蔽事件响应 '此处加入你的代码 Application.EnableEvents = True '恢复事件响应 E...

Excel表格如何跨工作簿寻找数据并刷新现有数据。高手请进,问题采纳后另...答：1、编写相对复杂，不易维护；2、数据量较大时，执行缓慢；3、出现错误时，难以及时发现，并且，操作出现失误时，难以撤销。鉴于VBA代码的以上几点缺陷，建议你使用灵活简便、易于维护和更新的公式和函数。并且，如果你能将《学生总工作簿》之外的其它5个工作簿都的内容都统一在《学生总工作簿》中，使原...

大家正在搜

excel表格数据自动更新 excel多表格自动关联 excel数据透视表自动刷新 Excel的日期不自动刷新 excel自动刷新 excel自动刷新数据 excel自动刷新时间 excel每秒自动刷新 excel公式如何自动刷新