¸ê®Æåª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 |
|
|
|
|
|
|