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

[µo°Ý] TextBox´å¼Ð¯àÀH¤è¦VÁä(¤W ¤U ¥ª ¥k )ÀH·N²¾°Ê

[µo°Ý] TextBox´å¼Ð¯àÀH¤è¦VÁä(¤W ¤U ¥ª ¥k )ÀH·N²¾°Ê

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

¥Ø«e§ÚªºForm¤W¦³28­ÓTextBox¤¸¥ó¡A½Ð°Ý¦³¬O§_¯à°µ¨ì«ö  ¤W ¤U ¥ª ¥k µ¥¤è¦VÁä¡A´NÅý´å¼Ð¦b¦U­ÓTextBox ¶¡²¾°Ê©O ?
¥Ø«eµ{¦¡½Xªº¼¶¼g¤j¦Ü¥u¦³³o¼Ë¡A§Ú¤£ª¾¹D¸Ó¥[¨Ç¤°»ò
¹ï©óµ{¦¡ÁÙ¤£¬O«Ü¤F¸Ñ¡A§Æ±æ¤j¤j­Ì¯à±Ð±Ð§Ú!
·PÁ¤j®a!

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii < 46 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "Please enter the value!"
        
    End If
End Sub

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD