返回列表 上一主題 發帖

[發問] textbox 設條件式輸出

user999

帖子
76 
主題
33 
精華
0 
積分
116 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
新竹 
註冊時間
2011-9-29 
最後登錄
2020-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-25 14:04 | 只看該作者

[發問] textbox 設條件式輸出

請教各位,在userform 上 的 textbox 輸入 如果限輸入 時間 0000  - 2400  範圍 該如何著手?
收藏 分享
max

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-10-25 16:17 | 只看該作者
回復 1# user999
是ComboBox 吧
  1. Private Sub UserForm_Initialize()
  2.     Dim I As Date
  3.     I = #12:00:00 AM#
  4.     Do
  5.         ComboBox1.AddItem Format(I, "hhmm")
  6.         I = I + #12:01:00 AM#
  7.     Loop Until Format(I, "hhmm") = "0000"
  8. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
3#
發表於 2011-10-25 23:43 | 只看該作者
我對題意的理解是這樣：
a.gif

TOP

user999

帖子
76 
主題
33 
精華
0 
積分
116 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
新竹 
註冊時間
2011-9-29 
最後登錄
2020-8-25 
4#
發表於 2011-10-27 12:14 | 只看該作者
回復 3# oobird


   沒錯就是如此
只是我輸入方式沒有 : 號  
Application.EnableEvents = False
TextBox3.Value = Format(TextBox3.Value, "00:00")
TextBox3.Value = Format(TimeValue(TextBox3.Value), "hh:mm")
Application.EnableEvents = True
tt = TimeValue(TextBox3.Value)


那能如何判別 錯誤  請賜教 謝謝!
max

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-10-27 15:06 | 只看該作者
回復 4# user999


   IsDate( Format(TextBox3.Value, "00:00"))
學海無涯_不恥下問

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題