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

redbean1221

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

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

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

GBKEE

¦^´_ 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

Hsieh

¦^´_ 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