你可以的，自己動手做excel倒計時器

小編今天的任務就是教會大家自己製作如圖所示的倒計時器，當然，是用excel做的哦！

  • 效果說明：在我們的倒計時器中，C2單元格按「時：分：秒」的格式輸入一個時間，單擊右邊的「開始計時」按鈕，倒計時就開始了，C4單元格會動態顯示剩餘時間，並且在倒數10秒時變成紅色以起到提示作用，計時結束彈出提示對話框。單擊結束則停止計時，並重置倒計時器。

  • PS：這是一個比較基礎的倒計時器，沒有設置「暫停/繼續」和結束聲音的功能。

下面就讓我們來實現它吧！

  • 1、最基本的，在excel中按效果圖所示輸入黑色方框內的內容，或者也可以按你喜歡的樣式設置。

  • 2、按Alt+F11調出VBA窗口，按「插入」→「模塊」，出現一個空白的模塊窗口，把下面代碼粘貼進去。（注意，保存時可能會提示，按照提示保存文件為「啟用宏」的格式就行）

    Advertisements

Dim n '公用變數，記住下一個任務執行的時間

Dim a '開始時間

Dim b '結束時間

Sub 計時()

n = Now + TimeValue("00:00:01") '設定時間間隔為一秒

If Now() > b Then MsgBox "倒計時結束": Call 停止: Exit Sub'倒計時結束，彈出對話框

[c3] = Format(b - Now(), "h:mm:ss") '設置單元格格式

Application.OnTime n, "計時" '到指定時間后再執行本過程

End Sub

Sub 開始()

[c2] = Format([c2], "h:mm:ss") '設置單元格格式

a = [c2] '設定時間

Advertisements

b = Now() + a '計算結束時間

'[c3] = Format(b, "yyyy-m-d h:mm:ss") '設置單元格格式

Call 計時

End Sub

Sub 停止()

On Error Resume Next

Application.OnTime n, "計時", , False '停止任務的執行

[c3] = ""』清空

End Sub

  • 如圖，簡單說明一下代碼的含義，拿來主義者可以略過……

  • 代碼由4部分組成，VBA中也智能地相應的分了塊，按照分塊自上而下依次為第1至4部分。

  1. 第1部份是聲名公共變數，用來在倒計時過程中臨時存儲時間。

  2. 第2部份是倒計時器的主代碼，負責不停的計時並顯示剩餘時間。

  3. 第3部份的作用是初始化倒計時器，設置單元格格式，並調用第2部分的主代碼來進行倒計時。

  4. 第4部份的作用是停止倒計時並重置剩餘時間為空（「」）。

  • 具體語法不作詳細解釋了，可參考各語句後面的註釋。

  • 3、添加按鈕。

  • 為了能夠人為操控倒計時器，需要添加2個按鈕：「開始計時」和「結束計時」。

  • 這裡需要用到「開發工具」選項卡，有的excel默認沒有顯示，我們先設置一下，以2013版為例：單擊「文件」→「選項」→「自定義功能區」，選中「開發工具」複選框，最後點擊確定。

  • 在「開發工具」選項卡中單擊「插入」，點選左上角的按鈕

  • 在合適的位置單擊拖動滑鼠，便插入了一個按鈕，接著在彈出的「指定宏」對話框中選擇「開始」並確定，爾後修改按鈕文字為「開始計時」，同樣的方法插入「停止計時」按鈕，指定宏為「停止」。

  • 4、設置「條件格式」。條件格式是當單元格達到某種範圍條件時才會顯示的格式。在「開始」選項卡中單擊「條件格式」→「突出顯示單元格規則」→「小於(L)…」

  • 在彈出的對話框中輸入「0:00:10」（最後10秒，也可以根據需要設置為其他數值），並在右側選擇合適的格式，最後單擊確定結束。

  • 好了，輸入一個短一點的時間測試一下，計時結束會彈出「倒計時結束」的對話框。


  • 最後可以根據自己需要美好一下，比如加入背景圖片，設置字體等等，大家就盡情發揮吧！

Advertisements

你可能會喜歡

Advertisements