- ·上一篇:excel表格表怎么拆分成几列
- ·下一篇:excel表格怎么把数据拉成一样
excel表格倒数怎么显示
2024-07-19 11:31:33
1.excel 倒数时间
Sub 倒计时() [a1].NumberFormatLocal = "h:mm:ss;@" [a1] = [a1] - 1 / 3600 / 24 '减去1秒 If [a1] < 1 / 60 / 24 Then [a1].Font.ColorIndex = 3 '小于1分钟,红色显示 Else [a1].Font.ColorIndex = 5 '否则蓝色显示 End If If [a1] > 0 Then Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.倒计时", , True '每过一秒调用本程序一次 Else [a1] = "00:00:00" End If End Sub ALT+F11,双击右边sheet1后粘贴代码。
最好建一命令按钮,单击开始运行Sheet1.倒计时。 Private Sub CommandButton1_Click() Sheet1.倒计时 End Sub。