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

[µo°Ý] TextBox¦p¦ó­­¨î¿é¤J½d³ò(µ{¦¡½X§ó§ï)

[µo°Ý] TextBox¦p¦ó­­¨î¿é¤J½d³ò(µ{¦¡½X§ó§ï)

¦U¦ì¤j¤j­Ì¦n!

½Ð°Ý¸Ó¦p¦ó³]©wTextBox¡A¤~¯à­­¨î¿é¤J½d³ò
¥Ø«e¥u¯à­­¨îÅý¥L¿é¤J¼Æ­È¦Ó¤w¡A
·Q­n­­¨î½d³ò¬°:  21<=TextBox<161
¤£ª¾¹D¸Ó¦p¦ó³]©w¤~¯à·í¥¦ªº¶W¹L­­¨î½d³ò®É¡A·|¥X²{¿ù»~°T®§©O?
·PÁ¤j®a!

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "Please enter the value!"
End Sub

¦^´_ 1# liebe
  1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2. If KeyCode = 13 Then '«ö¤UEnterÁ䬰¿é¤J§¹¦¨
  3.    If TextBox1 < 21 Or TextBox1 >= 161 Then MsgBox "¶W¥X½d³ò" '§PÂ_¼Æ­È½d³ò
  4. End If
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD