¸ê®Æåª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. |   
 
 
 
 | 
| 
 | 
 | 
 | 
 | 
 | 
 
- ©«¤l
 - 41 
 - ¥DÃD
 - 11 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 83 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - windows 
 - ³nÅ骩¥»
 - xp 
 - ¾\ŪÅv
 - 20 
 - µù¥U®É¶¡
 - 2012-12-20 
 - ³Ì«áµn¿ý
 - 2019-12-17 
 
  | 
                
¨Ò¦pt = 6 
if ªº®ÉÔ 
if (t<="10") then....  
·|Åܦ¨ 
if ("6"<="10") then....  
¦Ó¤£¬O 
if (6<=10) then....  
kimbal µoªí©ó 2013-2-16 17:07    
 
ÁÂÁ¦U¦ì«e½ú¡A§Ú¾é¸Ñ¤F! 
¦ý¦ü¥G¤@¨B¤@¨B°õ¦æµ{¦¡¡A¦bIf t <= 10¸òIf t <= "10"¤¤tªº«¬ºA³£ÁÙ¬Ovariant/Integer¡A¥i¬O¹ê»Ú¤W¦bIf t <= "10"®ÉVBA¬O¥Îvariant/String¥h§PÂ_?- Sub test()
 
 -     Dim t As Variant
 
 -     For t = 1 To 10
 
 -         If t <= 10 Then MsgBox t & " <= 10"
 
 -         If t <= "10" Then MsgBox t & " <= 10"
 
 -     Next t
 
 - End Sub
 
  ½Æ»s¥N½X |   
 
 
 
 | 
| 
 | 
 | 
 | 
 | 
 |