返回列表 上一主題 發帖

請教 VBA 如何日期+時間轉化為文字

請教 VBA 如何日期+時間轉化為文字

Format()可以處裡時間?
1.這是想要的結果>>  2020_7_16_PM_02_29_25
2.都用這土方法解決自動另存備份檔,加在檔名中,因為檔名不會重複
ActiveWorkbook.SaveAs Filename:=  ~~  & _
Replace(Date, "/", "_") & Replace(Replace(Replace(Time, ":", "_"), "上午 ", "_AM_"), "下午 ", "_PM_")
3.有其他方法?
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

MsgBox Application.Text(Now(), "yyyy\_m\_d\_上午/下午\_hh\_mm\_ss")

TOP

回復 2# 准提部林
收到 謝謝准大
現在沒有電腦可試
是用這種方式在VBA裡 都可以執行公式得到值的意思嗎?沒用過! 明天測試後再請教
這幾年都沒什麼進步
一招半式寫了一堆堪用的程式,工作問題是解決了
但是效能是一大問題,有些每天要執行的程式一按下去就得跑2個多小時
再多的理由 都是荒廢學習的藉口
請多指教
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

回復 3# Andy2483

理解一點點!
1.每種函數在儲存格和VBA裡的陳述方式有差異
2.VBA要在儲存格裡陳述公式方式也不同,各有規則
謝謝

Sub test_20200807_7()
MsgBox Application.ExecuteExcel4Macro("numberstring(123456789,2)")
[A1] = "=numberstring(123456789,2)"
MsgBox [A1].Value

MsgBox Application.Text(Now(), "yyyy\_m\_d\_AM/PM\_hh\_mm\_ss")
[A1] = "=TEXT(NOW(), ""yyyy" & "\" & "_m" & "\" & "_d" & "\" & "_AM/PM" & "\" & "_hh" & "\" & "_mm" & "\" & "_ss"")"
MsgBox [A1]

MsgBox Application.Sum([A2:A10])
[A1] = "=Sum(A2:A10)"
MsgBox [A1]
End Sub
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

回復 4# Andy2483


[A1] = "=Text(Now(), ""yyyy\_m\_d\_上午/下午\_hh\_mm\_ss"")"

TOP

回復 5# 准提部林

忘了錄製巨集就可以反推得到程式碼, 哈 :L  但是要先會寫公式!
謝謝
Sub test_20200807_9()
[A1] = "=TEXT(NOW(), ""今天是aaaa_yyyy\_mm\_dddd\_上午/下午\_hh\_mm\_ss"")"
MsgBox [A1]

[B2] = "今天是"
[A1] = "=TEXT(NOW(), R[1]C[1]&""aaaa_yyyy\_mm\_dddd\_上午/下午\_hh\_mm\_ss"")"
MsgBox [A1]
End Sub
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題