单元格每天第一次打开清零

jinzilao · 发表于 2013-1-27 00:47

单元格内有个计数，我想让它每天第一次打开都清零，这个怎么能做到？
求各位老师解答，不胜感激额

jinzilao · 发表于 2013-1-27 11:36

dajiahaoxinku12 发表于 2013-1-27 10:48
关闭前手动都清零不行吗？

手动清零有的时候会忘记，毕竟是计数用的，如果不清零的话，后面影响会很大

little-key · 发表于 2013-1-27 08:29

使用vba
open事件
将工作表的所有或者是部分内容删除

dajiahaoxinku12 · 发表于 2013-1-27 10:48

关闭前手动都清零不行吗？

dajiahaoxinku12 · 发表于 2013-1-27 11:48

想弄成自动的，那就的vba

lwliang123 · 发表于 2018-12-11 11:04

我也想知道结果，有哪位大师会弄

ericniming · 发表于 2018-12-11 23:35

楼主不上个附件，就算想帮你编个vba事件，也无从下手呀。。。。。。

lwliang123 · 发表于 2018-12-14 10:30

ericniming 发表于 2018-12-11 23:35
楼主不上个附件，就算想帮你编个vba事件，也无从下手呀。。。。。。

上传附件了，请高手看下，谢谢！！

pxla · 发表于 2018-12-14 13:37

Private Sub Workbook_Open()
Dim t As Date, t1 As Date
t = Sheet1.Range("A2")
t1 = Format(Now, "yyyy/m/d")
If t1 = t Then
a = Sheet1.Range("B3") + 1
Else
a = 0
t = t1
End If
Sheet1.Range("B3") = a
Sheet1.Range("A2") = t
End Sub

pxla · 发表于 2018-12-14 13:38

Private Sub Workbook_Open()
Dim t As Date, t1 As Date
t = Sheet1.Range("A2")
t1 = Format(Now, "yyyy/m/d")
If t1 = t Then
a = Sheet1.Range("B3") + 1
Else
a = 0
t = t1
End If
Sheet1.Range("B3") = a
Sheet1.Range("A2") = t
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 单元格每天第一次打开清零

最新热点 /1