2020国产成人精品视频,性做久久久久久久久,亚洲国产成人久久综合一区,亚洲影院天堂中文av色

分享

excel如何實(shí)現(xiàn)多個(gè)倒計(jì)時(shí)器自動(dòng)倒計(jì)時(shí)

 邱茂林個(gè)人收藏 2013-09-17
在模塊中添加,B、C列設(shè)置格式為 hh:mm:ss Sub sTime() '每隔一秒鐘調(diào)整本程序自身一次。 '增加D列,標(biāo)記倒記時(shí)是否完成, '添加新的倒計(jì)時(shí),更改B列數(shù)據(jù),刪除對(duì)應(yīng)C列、D列數(shù)據(jù)。 Application.OnTime Now + TimeValue("00:00:01"), "sTime" For i = 2 To 14 If Cells(i, 3) > 0 Then Cells(i, 3) = Cells(i, 3) - TimeValue("00:00:01") If Cells(i, 3) = TimeValue("00:00:10") Then '10秒倒記時(shí),改變顏色,提示音,加在這兒,不另寫了。 End If Else If Cells(i, 3) = TimeValue("00:00:00") And Cells(i, 4) = "" And Len(Cells(i, 3)) > 0 Then Cells(i, 4) = "時(shí)間到" Else If Cells(i, 3) = 0 And Cells(i, 4) = "" Then Cells(i, 3) = Cells(i, 2) End If End If Next i End Sub 然后在工作表中添加一個(gè)按鈕,調(diào)用: Private Sub CommandButton1_Click() Call sTime End Sub

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多