ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] textbox ³]±ø¥ó¦¡¿é¥X

[µo°Ý] textbox ³]±ø¥ó¦¡¿é¥X

½Ð±Ð¦U¦ì,¦buserform ¤W ªº textbox ¿é¤J ¦pªG­­¿é¤J ®É¶¡ 0000  - 2400  ½d³ò ¸Ó¦p¦óµÛ¤â?
max

¦^´_ 1# user999
¬OComboBox §a
  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
½Æ»s¥N½X

TOP

§Ú¹ïÃD·Nªº²z¸Ñ¬O³o¼Ë¡G
a.gif

TOP

¦^´_ 3# oobird


   ¨S¿ù´N¬O¦p¦¹
¥u¬O§Ú¿é¤J¤è¦¡¨S¦³ : ¸¹  
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)


¨º¯à¦p¦ó§P§O ¿ù»~  ½Ð½ç±Ð ÁÂÁÂ!
max

TOP

¦^´_ 4# user999


   IsDate( Format(TextBox3.Value, "00:00"))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD