返回列表 上一主題 發帖

[發問] 請問儲存格時間格式問題

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-4-28 17:25 | 只看該作者

[發問] 請問儲存格時間格式問題

大大好：

小弟用textbox要做時間的keyin到儲存格，發現了一個問題，

當我texbox顯示為11:25(時:分)，keyin至儲存格後顯是為【11:25】

因為我要做時間累加的動作，需要為【11:25:00 AM】的格式

*我點選儲存格後按下ENTER後格式就會變成【11:25:00 AM】

不知道表達的好不好，請參考附件，謝謝。

時間加總格式.rar (15.33 KB)
收藏 分享

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
3#
發表於 2013-4-28 18:46 | 只看該作者
回復 2# Hsieh


   感謝大大！辛苦了！

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-4-28 17:44 | 只看該作者
回復 1# lifedidi
  1. Private Sub CommandButton1_Click()
  2. With Sheet1
  3. Set a = .[A65536].End(xlUp).Offset(1, 0)
  4.    With a.Resize(, 3)
  5.      .Value = Array(TimeValue(TextBox1), TimeValue(TextBox2), TimeValue(TextBox3))
  6. End With
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題