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

Array °}¦CÀ³¥Î

Array °}¦CÀ³¥Î

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2010-12-8 17:22 ½s¿è

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)

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2010-12-8 17:22 ½s¿è

¦^´_ 1# hugh0620


   ¤j¤j­Ì

   «á¨Ó§Ú¬Ý¨ì¤@¨Ç¤j¤j¥H«e¼gªº¤è¦¡,À°¦£¬Ý¤@¤U¦³¨S¦³»Ý­n§ï¶iªº  (­Y¬O°}¦C¤¤ªº¸ê®Æ¦³´X¤Qµ§®É,¦³§_§ó¦nªº¤è¦¡©O?????)
    N = 0
     I = 0
     Do Until Sheet1.Cells(3 + I, 4) = ""
           For Each R In Array("F", "O", "P")
               Sheet1.Cells(3 + N, 1) = R
               Sheet1.Cells(3 + N, 2) = Sheet1.Cells(3 + I, 4)
               N = N + 1
           Next
         I = I + 1
     Loop

TOP

³o­Ó¤£¬O¸Ñ¨M¹L¤F¶Ü¡H«ç»ò¤S¨Ó¤@¦¸¡H

TOP

¦^´_ 3# oobird


    ¤j¤j ³o¬O§Ú²Ä¤@¦¸µo       §Ú¦bµo¤§«e¦³²{§ä´M¹L«á
            ¨S¦³¬d¨ì¬ÛÃöªº¸ê®Æ   §Ú¤~µo©«
        ½Ð¤Å»~·|

TOP

¨º»òÀ³¸Ó¬O§A¶Ç¿ù¤å¥ó¤F¡C
§Aªº¤å¥ó¤¤¨Ã¨S¦³§A»¡ªº
1. Customer ¸ê®Æ¦³¨âµ§       (¤j¬ù»Ý©ñ¤j¦Ü100µ§)
    2. ª¬ºA ¸ê®Æ¦³¤Tµ§
    3. ABÄæ¬O§Ú®i¶}«á©Ò»Ý­nªºµ²ªG

TOP

¦^´_ 5# oobird


    ©êºp­ò~ ¬O§Ú¶Ç¿ùÀÉ~ Åý¤j¤j»~·|¤F~
    ­«¶Ç¤@¦¸
    array °}¦CÀ³¥Î.rar (7.76 KB)

TOP

°}¦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

TOP

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

TOP

03.a = [e3:e5]

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

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2010-12-9 11:15 ½s¿è

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

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD