excel裡插入的時間函式打印不出來？

首頁>Club>2022-06-30 13:28

回覆列表

1 # lelha4954

窗體加一個timer控制元件,interval屬性設為60000(1分鐘),程式碼區寫以下程式碼DimcountAsInteger"用來記數,全域性變數PrivateSubTimer1_Timer()Ifcount=30Then"你要執行的語句count=0Elsecount=count+1EndIfEndSub

2 # 使用者6867202578805

Sub 倒計時() [a1].NumberFormatLocal = "h:mm:ss;@" [a1] = [a1] - 1 / 3600 / 24 "減去1秒 If [a1] 0 Then Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.倒計時", , True "每過一秒呼叫本程式一次 Else [a1] = "00:00:00" End If End SubALT+F11，雙擊右邊sheet1後貼上程式碼。最好建一命令按鈕，單擊開始執行Sheet1.倒計時。Private Sub CommandButton1_Click()Sheet1.倒計時End Sub
3 # 被人說的話辣

1.工具-宏-Visual Basic編輯器2.點選右鍵-插入-模組3.輸入以下程式碼：Sub biao()ActiveSheet.Range("a1").Value = Timeapplication.onTime Time + TimeSerial(0,0,1),"biaoEnd Sub4.關閉Visual Basic編輯器，返回工作簿5.工具-宏（在宏對話方塊中輸入biao，點執行）注：a1是單元格，這個可以任選。

4 # 使用者1953203688842077

WEEKDAY 用途：返回某日期的星期數。在預設情況下，它的值為1(星期天)到7(星期六)之間的一個整數。語法：WEEKDAY(serial_number，return_type) 引數：Serial_number 是要返回日期數的日期，它有多種輸入方式：帶引號的文字串(如"2001/02/26")、序列號(如35825 表示1998 年1 月30 日) 或其他公式或函式的結果(如DATEVALUE("2000/1/30"))。Return_type為確定返回值型別的數字，數字1 或省略則1 至7 代表星期天到數星期六，數字2 則1 至7 代表星期一到星期天，數字3則0至6代表星期一到星期天。例項：公式“=WEEKDAY("2001/8/28"，2)”返回2(星期二)， =WEEKDAY("2003/02/23"，3)返回6(星期日)。