¸ê®ÆåªR(TextToColumns)¹ï¶H¥i¥H¤£¬OÀx¦s®æ¶Ü?
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28

|
¦^´_ GBKEE
ÁÂÁÂG¤j¡A·s¦~§Ö¼Ö¡A
¹Ï¤¤Variant/Integer¤£¬O¥Nªí¦¹Åܼƥثe¬OIntegerªºª¬ºA¶Ü ...
chiata µoªí©ó 2013-2-9 16:23 
t ¬O variant/Integer ¬O¹ïªº.
¦ý¬O·í ¦bif ªº®ÉÔ
¦]¬°¥k¤è "10" ¬O ¤å¦r, ¤£¬O¼Æ¦r, if·|§âtÂର¤å¦r¦A¹ï¤ñ (VBA¨Ó¬Ý, " "¸Ìªº¬O¤å¦r)
¨Ò¦pt = 6
if ªº®ÉÔ
if (t<="10") then....
·|Åܦ¨
if ("6"<="10") then....
¦Ó¤£¬O
if (6<=10) then....
¦Ó¤å¦r"6" ²Ä1Ó¦r §Y "6" ¤ñ "10"ªº²Ä1Ó¦r "1" ¤j
´«¥y¸Ü»¡ "6"<="10" ´N¬Oµ¥©óFALSE
TESTn³o¼Ë¼g¤~¥i¥H±o¥X®ÄªG- Option Explicit '±j¨î»Ý«Å§iÅܼÆ
- Sub test()
- Dim t As Integer
- For t = 1 To 110
- If t <= 15 Then MsgBox t
- Next t
- End Sub
- Sub test2()
- Dim t As Variant
- For t = 1 To 110
- If t <= 15 Then MsgBox t & " <= 10"
- Next t
- End Sub
½Æ»s¥N½X ¤£«ü©úÃþ«¬,¬O·|¤ñ¸û¤è«K¨Ç, ¦ý¬O·|¼W¥[¹³³o¼Ëªº¿ù»~¾÷·|.
·L³nªñ¦~¨Ó¹ïVariantªº¤è°w¤]¬OÅܨÓÅÜ¥h. |
|
|
|
|
|
|