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

¦U¦ì¤j¤jÀ°¦£¤@¤U~¦p¦ó±NexcelªÅ¥ÕªºÀx¦s®æ ¦Û°Ê¶ñ¤J¯S©wªº¦r

¦U¦ì¤j¤jÀ°¦£¤@¤U~¦p¦ó±NexcelªÅ¥ÕªºÀx¦s®æ ¦Û°Ê¶ñ¤J¯S©wªº¦r

°²³]excel¤¤
¦³10(¦³­«½Æ)­Ó¦r¦ê ¨Ò¦p {±i ±i ªL ªL ªL ªL ³¯ ³¯ ¤ý §õ}
«ç»ò¶Ã¼Æ¶ñ¤J¥t¤@­Óexcel¤¤ªº10­ÓªÅ¥Õ³B

¨Ã¥BÅçÃÒ¦æ»P¦C¨S¦³­«½Æ?

¨D¨D¦U¦ì¤j¤jÀ°­Ó¦£
ÁÂÁÂ!!
¤p©ú

¦^´_ 1# redbean1221
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim A$
  3.     A = "±i ±i ªL ªL ªL ªL ³¯ ³¯ ¤ý §õ"
  4.     A = Replace(A, " ", ",")
  5.     MsgBox A
  6. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-6-15 23:02 ½s¿è

¦^´_ 1# redbean1221
  1. Sub Ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. mystr = Split("±i ±i ªL ªL ªL ªL ³¯ ³¯ ¤ý §õ", " ")
  4. Do Until d.Count = 10
  5. r = Int((10 * Rnd) + 1)'1~10¦C
  6. k = Int((10 * Rnd) + 1)'1~10Äæ
  7. d(r & k) = r & "," & k
  8. Loop
  9. For Each ky In d.keys
  10.    Cells(Val(Split(d(ky), ",")(0)), Val(Split(d(ky), ",")(1))) = mystr(s)
  11.    s = s + 1
  12. Next
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD