- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-27
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2015-10-14 17:11 ½s¿è
±N And §ï¦¨ &¡@
And, Or ¥Î©ó¡e±ø¥ó¡f§PÂ_¡A
&¡@¤~¬O³s±µ¦r¦ê¡ã¡ã
©Î°Ñ¦Ò¡G
Dim j&, T$
For j = 7 To 13
¡@¡@T = T & Controls("TextBox" & j)
Next j
If T = "" Then MsgBox "½Ð¿é¤JÃöÁä¦r!": Exit Sub
¥t¤@°Ñ¦Ò¡G
Dim j&, Jm%
For j = 7 To 13
¡@¡@If Controls("TextBox" & j) <> "" Then Jm = 1: Exit For
Next j
If Jm = 0 Then MsgBox "½Ð¿é¤JÃöÁä¦r!": Exit Sub |
|