返回列表 上一主題 發帖

[發問] 如何讓日期儲存時有時：分 （24小時制）

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-1 15:51 | 只看該作者

[發問] 如何讓日期儲存時有時：分 （24小時制）

本帖最後由 av8d 於 2012-6-1 16:31 編輯

Y = Year(TextBox1)
    M = Month(TextBox1)
    D = Day(TextBox1)

    If OptionButton1 = True Then
    OB1 = "收入"
    Else
    OB1 = "支出"
    End If
    If OptionButton4 = True Then
    OB4 = "薪資"
    Else
    OB4 = TextBox3
    End If
    Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y, M, D), OB1, TextBox2, OB4, TextBox4)


由於DateSerial(Y, M, D)格式是年月日∼我把輸出後的儲存格格是改成 年月日  時：分 （24小時制）
他則會固定出現12：00 AM∼應該是因為我當時沒有設定∼我該如何改寫呢？ 謝謝！
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-6-1 16:33 | 只看該作者
回復 1# av8d
  時：分       分號不符合命名原則

TOP

alumi

帖子
67 
主題
8 
精華
0 
積分
78 
點名
0  
作業系統
Windows XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-15 
最後登錄
2021-9-14 
3#
發表於 2012-6-3 21:50 | 只看該作者
Format(DateType, "YYYY-MM-DD hh:mm")

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
4#
發表於 2012-6-4 10:32 | 只看該作者
回復 3# alumi


    大大您好~輸出後~該儲存格~無任何資料~然後我把儲存格格式改成自訂 yyyy/mm/dd hh:mm~還是沒有資料@@

TOP

alumi

帖子
67 
主題
8 
精華
0 
積分
78 
點名
0  
作業系統
Windows XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-15 
最後登錄
2021-9-14 
5#
發表於 2012-6-4 14:05 | 只看該作者
這個函數沒有問題, 就看您 VBA 程式如何套用了.
debug.Print format(now,"YYYY-MM-DD hh:mm")
2012-06-04 14:04

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
6#
發表於 2012-6-4 21:43 | 只看該作者
Y = Year(TextBox1)
    M = Month(TextBox1)
    D = Day(TextBox1)
你輸入textbox跟本沒有時間，當然只能是12：00 AM~0時0分
你要的時間必須要輸入才會有。
還有若textbox1本就是日期加時間，建議直接用textbox1.value就行了

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題