標題: [發問] textbox 設條件式輸出 [打印本頁]

---

作者: user999    時間: 2011-10-25 14:04     標題: textbox 設條件式輸出

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

---

作者: GBKEE    時間: 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

複製代碼

---

作者: oobird    時間: 2011-10-25 23:43

我對題意的理解是這樣：
[attach]8336[/attach]

---

作者: user999    時間: 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)


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

---

作者: Hsieh    時間: 2011-10-27 15:06

回復 4# user999


   IsDate( Format(TextBox3.Value, "00:00"))

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)