Array °}¦CÀ³¥Î

hugh0620

Dear ¤j¤j

     ¤p§Ì¹ï©ó°}¦CªºÀ³¥Î¤è¦¡¤£¼ô±x,©Ò¥H,¦³¨Ç¦a¤è¥i¥H¨Ï¥Î¨ì°}¦C²¤Æµ{¦¡½Xªº¼¶¼g,«o¼g¤F¤@°ïµ{¦¡½X,
       Áö¥i¥Hµª¹F¥Øªº,ÁÙ¬O½Ð±Ð¤j¤j¦p¦ó¨Ï¥Îarray(°}¦C)¨Ó¸Ñ¨M°ÝÃD,¤]¥i¥HÅý¤p§Ì§l¦¬¤@¤U

    ªþ¥ó¬O§Ú¤u§@¤Wªº¤@­ÓÁ|¨Ò
    1. Customer ¸ê®Æ¦³¨âµ§       (¤j¬ù»Ý©ñ¤j¦Ü100µ§)
    2. ª¬ºA ¸ê®Æ¦³¤Tµ§
    3. ABÄæ¬O§Ú®i¶}«á©Ò»Ý­nªºµ²ªG
   
    ½Ð¤j¤j­Ì«ü¾É¤@¤U

    ¦h¸ê®Æ¶×¾ã¦¨¦b¦Pdata¤¤.zip (989.78 KB)

¤U¸ü¦¸¼Æ: 18

2010-12-8 16:58

hugh0620

¦^´_ 14# oobird


    ÁÂÁ¤j¤j¸Ô²Óªº»¡©ú

oobird

ReDim Preserve arr(1 To 2, 1 To m)
¦b°j°é¤º­«·s«Å§i°}¦Cªº¤j¤p¡C
°²³]¤£¯à¹wª¾µ{¦¡¹B¦æªºµ²ªG¶·­nªº°}¦C¤j¤p(ÁöµM¥i¥H¥ýºâ¥X¨Ó¡A¦ý¥Î°ÊºA°}¦C´N¤£¥Î)
¨C¤@¦¸ªº°j°ém=m+1¡A©Ò¥H³o­Ó°}¦C¬O¤£Â_ªºªø¤jªº¡A¥²¶·­nª`·N°}¦C¥u¯à§ïÅ̫ܳá¤@ºûªº¤j¤p¡A³o¸Ì´N¬O«ü²Ä¤Gºû¡C©Ò¥H³Ì«á­n§â³o­Ó°}¦CÂà¸m¼g¤J¤u§@ªí¤¤¡C

hugh0620

¦^´_ 12# oobird


    ¤j¤j~ §Ú³£¦³¥ý¨Ï¥ÎF1¬Ý»¡©ú~ ¥i¬O....¤½¥qªº¹q¸£~ ¦bOFFICEªº»¡©ú~ µLªk¸õ¥X
         ©Ò¥H~ ¤~¥ý½Ð±Ð¤j¤j­Ì

         

¤U¸ü (49.16 KB)

2010-12-9 18:40

oobird

dim i% = dim i as integer
§â´å¼Ð©w¦bredim¤W«öf1,¬Ý»¡©ú¡C
­n¾Çvba­º¥ý¾Ç¦p¦ó¬Ý»¡©ú¡C

GBKEE

¦^´_ 10# hugh0620
Dim i As Integer
Integer ªº«¬ºA«Å§i¦r¤¸¬O¦Ê¤À¤ñ²Å¸¹(%)¡C
Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C

hugh0620

¦^´_ 9# oobird

       ¯uªº«Ü·PÁ¤j¤j~ ¯uªº¬O¼F®`~   
       ³Ì«á¦A½Ð±Ð¤j¤j»yªkªº·N«ä
       1. Dim a, b, arr(), i%, j%, m%                   i%ªº·N«ä¬O¤°»ò©O? (§Ú¨S¥Î¹L³o¼Ëªº¼gªk,½Ð¤j¤j±Ð¾É¤@¤U)
           a = [e3:e5]
           b = [d3:d4]
          For i = 1 To UBound(b)
                    For j = 1 To UBound(a)
                    m = m + 1
       2.            ReDim Preserve arr(1 To 2, 1 To m)           ReDim »P Preserve ªº·N«ä»P¥Îªk??
                             arr(1, m) = a(j, 1)
                             arr(2, m) = b(i, 1)
           Next j, i
          [a3].Resize(m, 2) = Application.Transpose(arr)

oobird

03.a = [e3:e5]

04.b = [d3:d4]
§ï³o¨â¦æ
a=range([e3],[e3].end(4))
b=range([d3],[d3].end(4))

hugh0620

¦^´_ 7# oobird


    ÁÂÁ¤j¤jªº»¡©ú~

   ¥t½Ð±Ð¤@­Ó°ÝÃD,­Y§Ú¸ê®Æ¬O¯B°Êªº (¦pcustomer ¬O¥¼ª¾µ§¼Æ,ª¬ºAÁÙ¬O©T©w¤TºØ®É)
        ³o¼Ë¤j¤jµ{¦¡½X¶]°_¨Ó´NµLªk¹F¨ì»Ý¨D,³o¼Ëªº°ÝÃD¸Ó¦p¦ó¸Ñ¨M©O???

oobird

°}¦Cªº·N¸q¦b©ó§â¸ê®Æ¦s¨ú¸m©ó°O¾ÐÅ餤¹Bºâ¡A¹Bºâ§¹«á¦A¤@¦¸¼g¤J¤u§@ªí¤W¡A¥D­n¬OÁYµu¾Þ§@®É¶¡¡Aµ{¦¡½X¤£¤@©w¯àºë²¡C
§Aªº¶·¨D¥i¥H³o¼Ë¡G

1. Private Sub CommandButton1_Click()
   
2. Dim a, b, arr(), i%, j%, m%
   
3. a = [e3:e5]
   
4. b = [d3:d4]
   
5. For i = 1 To UBound(b)
   
6. For j = 1 To UBound(a)
   
7. m = m + 1
   
8. ReDim Preserve arr(1 To 2, 1 To m)
   
9. arr(1, m) = a(j, 1)
   
10. arr(2, m) = b(i, 1)
    
11. Next j, i
    
12. [a3].Resize(m, 2) = Application.Transpose(arr)
    
13. End Sub

½Æ»s¥N½X