1樓：剛下了點小雨
在excel中建乙個commandbutton,把以下**複製進去,測試一下(我這邊試了ok的),ok的話,你可以再修改一下,放到userform中.
private sub commandbutton1_click()
dim flag as boolean, flag1 as boolean
flag = true
flag1 = true
t1 = now
do while flag
'判斷還有最後一分鐘時提醒
if (now - t1) * 3600 * 24 >= 540 and flag1 then
flag1 = false
msgbox "還剩1分鐘!"
end if
'判斷10分鐘後停止'
if (now - t1) * 3600 * 24 >= 600 then
flag = false
end if
'在a1單元格從600秒倒數
range("a1") = 600 - (now - t1) * 3600 * 24
doevents
loop
end sub
2樓：不想起名字了
什麼時候開始計時你並沒有說
excel vba userform執行問題
3樓：剛下了點小雨
你這個是不是第一次彈出userform1,關閉後,到了指定時間,後面再分別彈出userform5,userform6,userform7.而你後面一直是取的userform1.textbox中的值,後面userform1一直不在show的狀態,所以你的string1,string2,string3都取不值,也就彈不出5,6,7三個視窗了.
我改了下,你試試.
sub aa()
if bl then end
userform1.textbox1 = format(time, "hh:mm:ss")
if (now - t1) * 3600 * 24 > 120 then
userform1.textbox2 = "00:00:00"
string1 = "00:00:00" '這裡加乙個
else
userform1.textbox2 = format(timevalue("00:02:00") - time + t, "hh:mm:ss")
string1 = format(timevalue("00:02:00") - time + t, "hh:mm:ss") '這裡加乙個
end if
''string1 = cstr(userform1.textbox2) '原位置
if int(left(string1, 2)) = 0 and int(mid(string1, 4, 2)) = 0 then
userform1.textbox2.forecolor = 255
if flag1 then
userform5.show
flag1 = false
end if
end if
if (now - t1) * 60 * 24 > 3 then
userform1.textbox3 = "00:00:00"
string2 = "00:00:00" '這裡加乙個
else
userform1.textbox3 = format(timevalue("00:03:00") - time + t, "hh:mm:ss")
string2 = format(timevalue("00:03:00") - time + t, "hh:mm:ss") '這裡加乙個
end if
'string2 = cstr(userform1.textbox3) '原位置
if int(left(string2, 2)) = 0 and int(mid(string2, 4, 2)) = 0 then
userform1.textbox3.forecolor = 255
if flag2 then
userform6.show
flag2 = false
end if
end if
if (now - t1) * 24 > 1 then
userform1.textbox4 = "00:00:00"
string3 = "00:00:00" '這裡加乙個
else
userform1.textbox4 = format(timevalue("01:00:00") - time + t, "hh:mm:ss")
string3 = format(timevalue("01:00:00") - time + t, "hh:mm:ss") '這裡加乙個
end if
'string3 = cstr(userform1.textbox4) '原位置
if int(left(string3, 2)) = 0 and int(mid(string3, 4, 2)) = 0 then
userform1.textbox4.forecolor = 255
if flag3 then
userform7.show
flag3 = false
end if
end if
end sub
4樓：匿名使用者
能把你的**上傳上來供研究一下嗎?
單單看這些**,看不出什麼來
倒計時 的英文是，倒計時的英文翻譯
countdown 或count down 例句 宇宙飛船已在進行倒計時。the spaceship is already being counted down. count down 請問 十分鐘倒計時 用英文如何表達？ ten minute countdown 或a ten minute cou...
作文 中考倒計時，中考倒計時 作文
高考指導鴨梨老師 說老實話，不想回答你這個問題，我比較不贊同初中生或小學生把題目直接放在網上求答案，不思考永遠不會進步。然而還是忍不住寫下一些，關於構思作文的建議 首先審題，這個題目看起來更適合選擇的體裁是側重抒情的散文，那麼形散而神不散是你要追求的目標，語言的優美和精緻是要重點考慮的。既然題目是中...
高考倒計時100天是什麼概念，高考倒計時100天，是一個什麼概念
意味著你還有3個月的時間衝刺，加油！高考倒計時100天真的能逆襲嗎 大粟 一般從一百天開始，你copy就會全面接觸到理綜或者bai 文綜。我不du知道你原來學了zhi多少，基礎怎麼樣，但是不管怎麼說，多dao做題沒有錯，沉下心去做題！就好比當初的我，我就沒有時間用手機在這發問，就是做題。可能你基礎很...