¸ê®ÆåªR(TextToColumns)¹ï¶H¥i¥H¤£¬OÀx¦s®æ¶Ü?
| ©«¤l472 ¥DÃD5 ºëµØ0 ¿n¤À485 ÂI¦W0  §@·~¨t²ÎWindows ³nÅ骩¥»MS Office ¾\ŪÅv100 ©Ê§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
 ¤£«ü©úÃþ«¬,¬O·|¤ñ¸û¤è«K¨Ç, ¦ý¬O·|¼W¥[¹³³o¼Ëªº¿ù»~¾÷·|.½Æ»s¥N½XOption 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
·L³nªñ¦~¨Ó¹ïVariantªº¤è°w¤]¬OÅܨÓÅÜ¥h.
 | 
 | 
|  | 
|  |  | 
|  |  | 
| ©«¤l41 ¥DÃD11 ºëµØ0 ¿n¤À83 ÂI¦W0  §@·~¨t²Îwindows ³nÅ骩¥»xp ¾\ŪÅv20 µù¥U®É¶¡2012-12-20 ³Ì«áµn¿ý2019-12-17 
 | 
                
| ¨Ò¦pt = 6if ªº®ÉÔ
 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Â_?
 ½Æ»s¥N½XSub 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
 | 
 | 
|  | 
|  |  | 
|  |  |