excel倒计时器
发布网友
发布时间:2022-04-30 17:53
我来回答
共1个回答
热心网友
时间:2022-06-28 17:38
添加模块中,B,C柱格式HH:MM:SS
分准时()
'每一秒调整一次,程序本身。
'在D列的增加,标志着倒计时结束,
“添加新的倒计时,改变B列数据,删除相应的列C,D列的数据。
Application.OnTime联系+ TIMEVALUE(“00:00:01”),“准时”
对于i = 2到14
如果细胞(I,3)> 0,则
>单元(I,3)=细胞(I,3) - TIMEVALUE(“00:00:01”)
如果细胞(I,3)= TIMEVALUE(“00:00:10”;)然后 BR /> '10秒倒计时,改变颜色,色调,再加上这里,而不是其他写道。
结束如果
否则
如果细胞(I,3)= TIMEVALUE(“00:00:00”)和单元(I,4)=“”和len(细胞(我, 3))> 0,则
细胞(I,4)=“时间”
否则
如果细胞(I,3)= 0和单元(I,4)=“”然后细胞(I,3)=细胞(I,2)
结束如果
结束如果
接下来,我
END SUB
然后添加一个按钮,在工作表中,调用:
私人小CommandButton1_Click()
认购准时
完小追问朋友,你就不能根据我给的代码,给我修改一下吗?我再慢慢研究下
朋友,你就不能根据我给的代码,给我修改一下吗?我再慢慢研究下