[已解决]单元格显示时间

zhufuan

现在代码全部工作簿显示时间表格1中显示时间，表格2和3不显示，如何修改

最佳答案

月排行榜 / 总排行榜

金樽空对月

2022-8-29 15:47

1. Sub 刷新()
   
2.     Dim itime As Date
   
3.     itime = Now + TimeValue("00:00:01")
   
4.     Sheet1.Range("a1") = Format(Now, "yyyy/mm/dd hh:mm:ss") '调整单元格位置，修改系统日期格式至长时间模式
   
5.     Application.Calculate
   
6.     Application.OnTime itime, "刷新"
   
7. End Sub

复制代码

就是在range("a1")的前面加上工作表名称

跳转到最佳答案楼层

金樽空对月

1. Sub 刷新()
   
2.     Dim itime As Date
   
3.     itime = Now + TimeValue("00:00:01")
   
4.     Sheet1.Range("a1") = Format(Now, "yyyy/mm/dd hh:mm:ss") '调整单元格位置，修改系统日期格式至长时间模式
   
5.     Application.Calculate
   
6.     Application.OnTime itime, "刷新"
   
7. End Sub

复制代码

就是在range("a1")的前面加上工作表名称

zhufuan

附件已上传

风林火山

上附件呀