excel倒计时提醒进度条变色(excel倒计时提醒)
您好,今天小花就为大家解答关于excel倒计时提醒进度条变色,excel倒计时提醒相信很多小伙伴还不知道,现在让我们一起来看看吧!
1、按alt+F11键,打开VBA窗口,双击sheet1。
2、将下方的代码复制到打开的窗口中;Sub 倒计时() [a1].NumberFormatLocal = "h:mm:ss;@" [a1] = [a1] - 1 / 3600 / 24 If [a1] < 1 / 60 / 24 Then [a1].***.colorindex = 3 Else [a1].***.colorindex = 5 End If If [a1] > 0 Then ***.ontime Time + TimeSerial(0, 0, 1), "sheet1.倒计时", , True Else [a1] = "00:00:00" End IfEnd Sub在A1单元格输入倒计时开始的小时数,如3个小时“3:00”格式自定;点击“开发工具”-“插入”-“表单控价”,插入一个按钮。
3、打上想要的文字;在按钮上右键,指定宏,选择刚才编辑的宏。
4、确定,点击按钮,就开始计时了。
5、低于1分钟后,字体会变成红色。
本文就讲到这里,希望大家会喜欢。