用EXCEL製作“倒計時器”
用EXCEL中的OnTime函數可以製作一個倒計時器,只要設定一個時間,EXCEL就會以一秒爲單位倒計時,到達設定時間後停止並提示。
步驟/方法
(01)圖一是倒計時器的樣子,當然你也可以做成其他喜歡的樣式。
(02)只要在C2單元格中,按“時:分:秒” 格式輸入一個時間,按右邊的“開始”按鈕,就可以開始倒計時,並在C3格顯示出計時終止後的時間,在C4格還會動態顯示剩餘的時間。
(03)下面介紹製作過程
(04)第一步:在EXCEL視窗中按上圖的樣式做一個介面,設定你喜歡的字型大小與顏色邊框。由於是用VBA代碼製作計時部份,所以表格中不用輸入任何公式。
(05)第二步:按ALT+F11組合鍵調出VBA視窗,按“插入-模組”,出現一個空白的模組視窗,把下面代碼粘貼進去。
(06)Dim n '公用變量,記住下一個任務執行的時間Dim a '開始時間Dim b '結束時間Sub 計時()n = Now + TimeValue("00:00:01") '設定時間間隔爲一秒If Now() > b Then MsgBox "倒計時結束": Call 停止: Exit Sub[c4] = Format(b - Now(), "h:mm:ss") '設定單元格格式me n, "計時" '到指定時間後再執行本過程End SubSub 開始()[c2] = Format([c2], "h:mm:ss") '設定單元格格式a = [c2] '設定時間b = Now() + a '計算結束時間[c3] = Format(b, "yyyy-m-d h:mm:ss") '設定單元格格式Call 計時End SubSub 停止()On Error Resume me n, "計時", , False '停止任務的執行End Sub
(07)這組代碼由四部份組成:第一部份(最上面三行)是聲名公共變量,使這幾個變量在下面各過程中都可調用。第二部份是“Sub 計時”,也是主代碼,它負責不停的計時並顯示剩餘時間。第三部份“Sub 開始”,相當於初始化部份,設定單元格格式及顯示“計時結束時間”,在這個部份會調用“Sub 計時”過程來進行倒計時。第四部份“Sub 停止”,終止倒計時過程。代碼中的關鍵部份是“sub 計時”,它使用onTime函數實現自動計時功能。常用語法:me 時間,要執行的過程名在上例中,“me n, "計時"”的含義是到下一個時間“n”,就執行一次名爲“計時”(即 “sub 計時”自身)的代碼。時間“n”由語句“ n = Now + TimeValue("00:00:01")”計算得出,表示由當前時間(即“NOW”)加上一個1秒的時間值。在“Sub 停止”過程中,也使用了OnTime函數,但它多了一個參數False ,它的作用是到時間“n”後,停止過程“Sub 計時”的執行(即計時結束)。其他語句部份比較容易理解,可參考各語句後面的註釋。第三步:添加按鈕爲了方便執行,需要在EXCEL視窗添加兩個按鈕,一個“開始”,另一個是“結束”。在EXCEL視窗中按“視圖-工具欄-窗體”,調出“窗體”工具欄,用鼠標選中上面的“按鈕”控件在C列的右邊“畫”出兩個大小適中的按鈕,再用鼠標右鍵分別點擊按鈕,選“編輯文字”,第一按鈕輸入“開始”,第二個按鈕輸入“停止”。
(08)接下來還要給按鈕指定要執行的宏(就是在VBA視窗中的代碼)在“開始”按鈕上點右鍵,選“指定宏”,在彈出的視窗中選“開始”後確定。同樣方法給“停止”按鈕指定“停止”宏。
(09)這樣就完成了整個製作過程,可以使用了。在C2單元格中輸入一個時間(格式爲“時:分:秒”),點擊按鈕“開始”就能看到在C3格中出現一個計時結束的時間,同時在C4格出現以一秒爲間隔不斷遞減的時間數字,當C4單元格顯示爲0時彈出提示視窗,計時結束。
-
Wps表格的基本操作及簡單數據計算
在日常生活或辦公中,我們常常需要製作表格並對錶格做一些計算,而Wps表格爲我們製作表格和計算數據提供了非常便利的條件,今天小編就來爲大家講解一下Wps表格的基本操作及簡單數據計算。例如,我們要製作下面的表格:操作方法(01)輸入文字內容。(02)將表題文字居中。選中A1...
-
stdole32.tlb丟失或損壞怎麼辦
Excel是我們辦公時候最常用的辦公軟件之一,但是有些win7專業版用戶在使用Excel的過程中出現了“某個對象程序庫丟失或損壞”的警告,這究竟是怎麼回事呢?雖然有這個錯誤提示,但是Excel大部分功能還是可以正常使用的。下面由小編給大家介紹一下丟失或損壞的解決方法...
-
Pr怎樣匯出清晰視頻
在PR上編輯過的視頻怎麼匯出才能得到清晰的畫質呢?下面就來告訴大家如何操作。操作方法(01)開啟PR,找到選單欄的“檔案”,選擇“新建”,再找到“序列”。(02)這個時候會進行源檔案設定,若是想要高清視頻,就選擇“digitalSLR1080P“。(03)然後就可以編輯視頻了,編輯完成後再...
-
如何檢視網絡計算機和設備?
現在我們的電腦,辦公的基本都是與單位局域網相連的,這是爲了方便公司內部數據的傳輸與查詢。因此在工作的網絡中除了知道自己的電腦外,也想知道其它的電腦工作狀態。那麼如何檢視呢?現在和大家分享一下實際操作。操作方法(01)點擊電腦桌面左下角的開始圖標,進入電腦主...