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

[µo°Ý] ¦p¦ó¨Ï¥Î IsNumber(TextBox1)?

[µo°Ý] ¦p¦ó¨Ï¥Î IsNumber(TextBox1)?

½Ð±Ð½Ñ¦ì¥ý¶i:
        ©ó TextBox1¤º«ü©w¿é¤J®É¶È¬°¼Æ¦r(¥i¦³¤p¼Æ)¡AÀ³¦p¦ó¤U»yªk?
        ©Î¿é¤J¬°«D¼Æ¦r®É§YÅܬ°ªÅ¥Õ¥ç¥i
       ¦p¦ó¨Ï¥Î IsNumber?
                                                             ÁÂÁ«ü¾É

¦^´_ 1# yangjie

If TextBox1 <> "" And CStr(Val(TextBox1.Value)) <> TextBox1 Then MsgBox "¥²¶·¿é¤J¬°¼Æ­È": TextBox1 = ""
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
ÁÂÁª©¤j
         ¤Ó´Î¤F
         ­Y¤¹³\¤p¼ÆÂI  ¦p12.5 À³¦p¦ó­×¥¿

TOP

¦^´_ 3# yangjie
§A¬O¥Î¦bTextBox1_Change¨Æ¥ó¤º§a
³o¼Ë·í§A¿é¤J¤p¼ÆÂI®É¡A·|¥X¿ù
§ï¦¨
If TextBox1 <> "" And CStr(Val(TextBox1.Value)) <> IIf(Right(TextBox1, 1) = ".", Replace(TextBox1, ".", ""), TextBox1) Then MsgBox "¥²¶·¿é¤J¬°¼Æ­È": TextBox1 = ""
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
¸U¤À·P¿E
¤Ó´Îªº·Qªk
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD