所有栏目 | 云社区 美国云服务器[国内云主机商]
你的位置:首页 > 云社区 » 正文

请问Excel表格中如何倒计时(并且弹出提示)?

发布时间:2020-04-12 08:46:53

资讯分类:excel  弹出  倒计时  表格  格式  设为  条件
请问Excel表格中如何倒计时(并且弹出提示)?

假设表格在A列到M列。

(不知道你数据从哪行开始的)

选择D6,格式,条件格式,条件格式一,值,等于,"是" (注意是英文的引号),格式设为绿色字体;条件格式二,值,等于,"否",格式设为红色字体,确定。

再选择D6,双击菜单的格式刷,点D6到F50,再点H6到H50。

选择G6,格式,条件格式,条件格式一,值,等于,"竣工",格式设为绿色字体,确定。

再选择G6,点菜单的格式刷,刷到G7到G50。

“决算金额”是指“合同价款”吗?

在M6输入 =if(and(L6+365

将公式向下复制。

请问Excel表格中如何倒计时(并且弹出提示)?

按alt+F11键,打开VBA窗口,双击sheet1,将下方的代码复制到打开的窗口中;Sub 倒计时() [a1].NumberFormatLocal = "h:mm:ss;@" [a1] = [a1] - 1 / 3600 / 24 If [a1] < 1 / 60 / 24 Then [a1].Font.ColorIndex = 3 Else [a1].Font.ColorIndex = 5 End If If [a1] > 0 Then Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.倒计时 请问Excel表格中如何倒计时(并且弹出提示)?

按alt+F11键,打开VBA窗口,双击sheet1,将下方的代码复制到打开的窗口中;

Sub 倒计时()

[a1]

.NumberFormatLocal

= "h:mm:ss;@"

[a1] = [a1] - 1 / 3600 / 24

If [a1] < 1 / 60 / 24 Then

[a1]

.Font.ColorIndex

= 3

Else

[a1]

.Font.ColorIndex

= 5

End If

If [a1] > 0 Then

Application.OnTime

Time + TimeSerial(0, 0, 1), "sheet1.倒计时
留言与评论(共有 0 条评论)
   
验证码:
Top