ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¸ê®Æ­åªR(TextToColumns)¹ï¶H¥i¥H¤£¬OÀx¦s®æ¶Ü?

¸ê®Æ­åªR(TextToColumns)¹ï¶H¥i¥H¤£¬OÀx¦s®æ¶Ü?

½Ð±Ð¦U¦ì«e½ú
Selection.TextToColumns
¨ä¤¤Selection¦ü¥G¤@©w­n¬Orange¡A¨º¦³¿ìªkª½±µ¹ï°}¦CÅܼƶi¦æ¸ê®Æ­åªR¶Ü?

ex:dim A(3) as double
A(0)="1,2,3"
·Q¤£³z¹Lsheet§â¸ê®Æ­åªR¦¨A(1)=2¡BA(2)=2¡BA(3)=3
¦³¿ìªk³o¼Ë°µ¶Ü?

ÁÂÁÂ

¦^´_ 2# Hsieh


ÁÂÁÂH¤j¡AÀ³¸Ó»¡§Ú·|¿é¤J¤@µ§¸ê®Æ¡A¦¹¸ê®Æ¥i¯à¦³¨âºØ§ÎºA¡A²Ä¤@ºØ¬O¯Â¼Æ¦r¡Fex:1 or 5 ...¡A²Ä¤GºØ¬O¦r¦ê¡Fex:1,3,5¡A
¦pªG¸ê®Æ¬O¦r¦êªº¸Ü§Ú´N¥Î§â¥¦¤À³Î«á¥á¶i°}¦C¸Ì¡A­ì¥»§Ú·|§â¥¦¥á¤J¬Y­ÓÀx¦s®æ¤¤¡A¦b¨Ï¥Î¸ê®Æ­åªR(TextToColumns)°µ¤À³Î«á¦AŪ¶i°}¦C¤¤¡A
¤§«á­pºâ´Nª½±µ¥Î°}¦C¡A¤£·|¨Ï¥Î¨ìÀx¦s®æ¡C
²{¦b¨Ï¥ÎSplit´N¥i¥H¤£¥Î¸ê®Æ­åªR¸òÀx¦s®æ¹F¨ì¬Û¦P®ÄªG¤F!ÁÂÁ¡C

TOP

¦^´_ 2# Hsieh

¦ÓSplit¤èªk«áªº°}¦C¤¸¯À¡A¨ä¸ê®Æ«¬ºA«h¤@«ß¬°String(¦r¦ê)




¦p¤W¹Ï¡A¦ü¥G¨Ï¥ÎSplit«ábbÁÙ¬O¦r¦ê«¬ºA¦Ó¤£¬O°}¦C?
¥B¨Ï¥Îval¤]¤£ªk±N¨ä§ï¦¨¼Æ¦r«¬ºA¡A­n´«¤@­ÓÅܼƤ~¯à¥Îval§ï¦¨¼Æ¦r«¬ºA¡C
ÁöµM»¡¦r¦ê¤]¯à°µ¼Æ¾Ç¹Bºâ´N¬O¤F¡C

TOP

¦^´_ 5# Hsieh

ÁÂÁ¡A§Ú²z¸Ñ¤F!
­è­è¨Ï¥Îµo²{¦r¦ê¥i¥H¹Bºâ¡A¦ý¤£¯à°µ<¡B=¡B>µ¥§PÂ_¡A¥u¯à­n§PÂ_®É¨Ï¥Îval©Î¬O¹³H¤j©Ò»¡ªº¦s¦¨¥t¤@­Ó°}¦C¨Ó¨Ï¥Î¡C

TOP

¦^´_ 7# GBKEE
  1. Sub test()

  2.     For t = 1 To 110
  3.         If t <= "10" Then MsgBox t
  4.     Next t
  5.    
  6. End Sub
  7. Sub test2()

  8.     For t = 1 To 110
  9.         If t <= Val("10") Then MsgBox t
  10.     Next t
  11.    
  12. End Sub
½Æ»s¥N½X
¤p§Ì¹J¨ìªº°ÝÃD...test¥u¦³t=1¸ò10·|¸õmsgbox¥X¨Ó¡Atest2´Nt=1~10³£·|¸õ¡A¤£ª¾¹D¬O­þÃä¥X°ÝÃD...
ÁÂÁÂ

TOP

¦^´_ 9# GBKEE


   

ÁÂÁÂG¤j¡A·s¦~§Ö¼Ö¡A
¹Ï¤¤Variant/Integer¤£¬O¥Nªí¦¹Åܼƥثe¬OIntegerªºª¬ºA¶Ü¡H
§Ú¥H¬°Variant¬O¥ý°ð«ü©wÅܼƫ¬ºA¡A«Ýµ{¦¡°õ¦æ«á·|¦Û°Ê§PÂ_¦¹ÅܼƦX¾A«¬ºA¡A¨Ò¦pinteger¡Bstring...µ¥¡A¨Ï¥Î¤W¤ñ¸û¦³¼u©Ê¡C
ÁÙ¬O§ÚÆ[©À¿ù»~¡H¡H

TOP

¨Ò¦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Â_?
  1. Sub test()
  2.     Dim t As Variant
  3.     For t = 1 To 10
  4.         If t <= 10 Then MsgBox t & " <= 10"
  5.         If t <= "10" Then MsgBox t & " <= 10"
  6.     Next t
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD