　暱稱: 厚臉皮的學生

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2020-8-6 15:19 | 只看該作者

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

Format()可以處裡時間?
1.這是想要的結果>> 2020_7_16_PM_02_29_25
2.都用這土方法解決自動另存備份檔,加在檔名中,因為檔名不會重複
ActiveWorkbook.SaveAs Filename:= ~~ & _
Replace(Date, "/", "_") & Replace(Replace(Replace(Time, ":", "_"), "上午 ", "_AM_"), "下午 ", "_PM_")
3.有其他方法?

樓主熱帖

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-20

2^#

發表於 2020-8-6 16:40 | 只看該作者

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

3^#

發表於 2020-8-6 18:56 | 只看該作者

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

4^#

發表於 2020-8-7 14:33 | 只看該作者

回復 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-20

5^#

發表於 2020-8-7 15:12 | 只看該作者

回復 4# Andy2483

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

6^#

發表於 2020-8-7 16:11 | 只看該作者

回復 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