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

[µo°Ý] ¦p¦óÅýMsgBox¤£­n¥X²{¨â¦¸

¦^´_ 1# av8d
  1. Private Sub TextBox2_Change()
  2.     If TextBox2 = "" Then Exit Sub
  3.     If TextBox2 > 12 Or TextBox2 <= 0 Then
  4.         MsgBox "¤ë¥÷¿é¤J¿ù»~"
  5.         TextBox2 = ""     '·|¦A±Ò°Ê TextBox2_Change ³oµ{§Ç
  6.     Else
  7.         If Len(TextBox2) = 2 Then
  8.             TextBox3.SetFocus
  9.         End If
  10.     End If
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD