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

[­ì³Ð] §Ö³tí©w±Æ§Çªk´ú¸Õ

[­ì³Ð] §Ö³tí©w±Æ§Çªk´ú¸Õ

§Ö³tí©w±Æ§Çªk´ú¸Õ
£¼
¤@¯ëªº§Ö³t±Æ§Çºtºâªk¬°¤£Ã­©wªº±Æ§Çªk¡A
±N¤§§ï¨}¬°Ã­©wªº±Æ§Çªk¡A
©R¦W¬°¡u§Ö³tí©w±Æ§Çªk¡v¡C
¡]¤£Ã­©w¬O«ü¬Ûµ¥¤¸¯À·|³Q§ïÅܶ¶§Ç¡A¤Ï¤§¬Ûµ¥¤¸¯À·|«O«ù¬Û¹ï¦ì¸m¡C¡^
£¼
´ú¸Õµ²ªG¡G
¤@ºû°}¦C¡A10000µ§¼Æ¦r¡A
®ðªw±Æ§Çªk¬°14.299¬í
§Ö³tí©w±Æ§Çªk¬°0.082¬í
¡]®ðªw±Æ§Çªk¬°¤Jªùªº±Æ§Çªk¡A¥ç¬°¤£Ã­©wªº±Æ§Çªk¡C¡^
¤Gºû°}¦C¡A10000x2µ§¼Æ¦r
§Ö³tí©w±Æ§Çªk¬°0.198¬í¡]¬Ý³Ì¥k¤@¦æ¸ê®Æ»¼¼W¡Aªí¥Ü¬°Ã­©w±Æ§Ç¡C¡^
¡]¤£¦P¹q¸£©ÎExcelª©¥»¤U¡A·|¦³¤£¦Pµ²ªG¡F¦P¹q¸£©ÎExcelª©¥»¤U¡A¨C¦¸ºtºâ¤]·|¦³¨Ç·L®t¶Z¡C¡^
§Ö³tí©w±Æ§Çªk´ú¸Õ.png

¥»©«³Ì«á¥Ñ linyancheng ©ó 2017-2-12 22:49 ½s¿è

§Ú¤w¸g°÷¥Î¤F
¦Ó¥B§Ú¨S¬ã¨s«Ê¸Ë
VBA¥Î¨º­Ó¤è«K¶Ü¡H

¦Ó¥B§A¦³´ú¸Õ¹L¶Ü¡H¯u¦³10­¿³t¡AÃhºÃ¡I

´ú¸Õ±ø¥ó¡G
°}¦C¥ÎVariant¸ê®Æ«¬ºA¡A¦]¥\¯à»Ý­n
¤Gºû°}¦C­n¯à³]©w±Æ§Çºû«×¡B±Æ§Çºû«×ªº¤¸¯À°_¨´½d³ò¡B¥t¤@ºû«×ªº¤¸¯À½d³ò(1­Ó)¡A¦]¥\¯à»Ý­n
±Æ§Ç«á¬Ûµ¥¤¸¯À­n«O«ù¬Û¹ï¦ì¸m¡A¤£¯à³Q½Õ´«¡C

TOP

º|±¼¤F¡A¦A¥[¤@­Ó±ø¥ó¡G
¤ñ¸û¼Ò¦¡¥Îoption compare text¡A¥\¯à»Ý­n

TOP

¥»©«³Ì«á¥Ñ linyancheng ©ó 2017-2-13 01:39 ½s¿è

¦^´_ 5# jackyq


©Ò¥H«Ê¸Ëªº¬O¬Û¦Pªº¥N½X¶Ü¡H
ÁÙ¬O¦³°µ»y¨¥ªº½Õ¾ã¡H

¯uªº®t¨º»ò¦h¡A
Ãø©ÇExcel¥»¨­ªº±Æ§Ç³t«×³o»ò§Ö¡I

¨ä¹ê§Úªº´ú¸Õ¬O¦]¬°¥»¨Ó¥Îªº®ðªw±Æ§Çªk¤ÓºC¡A¦Ó¥B¬O¤£Ã­©w±Æ§Ç¡A
©Ò¥H¤~¼g¤@­Ó§Ö³tí©w±Æ§Çªk¨Ó´ú¸Õ¬Ý¬Ý¡A
¨âªÌªº®t¶Z¹ï§Ú¤w¸g«Ü°÷¤F¡I

TOP

§Úªº¥N½X¡A¥iÀ°¦£Àu¤Æ¶Ü¡HÁÂÁ¡I

Option Explicit
Option Base 1
Option Compare Text

Public Sub S_¤Gºû°}¦C§Ö³tí©w»¼¼W±Æ§Ç_01(ByRef ­ì©l¤Gºû°}¦C As Variant, ByVal ±Æ§Çºû«× As Long, ByVal ±Æ§Ç¤¸¯À§Ç As Long, ByVal °_­­ As Long, ByVal ¨´­­ As Long)

    On Error Resume Next
   
    Dim N As Long
    Dim H As Long
    Dim K As Long
    Dim X As Long
    Dim Y As Long
   
    Dim °}¦C­­¼Æ As Long
    Dim °ò·Ç As Variant
    Dim ­ì©l¤Gºû°}¦C¼Æ As Long
    Dim °}¦C²Ö­p¼Æ As Long
   
    Dim °_°}¦C() As Variant
    Dim ¨´°}¦C() As Variant
    Dim °ò°}¦C() As Variant
   
    °}¦C­­¼Æ = ¨´­­ - °_­­ + 1
   
    If °}¦C­­¼Æ < 2 Then
        Exit Sub
    End If
   
    If ±Æ§Çºû«× = 1 Then
        °ò·Ç = ­ì©l¤Gºû°}¦C((°_­­ + ¨´­­) \ 2, ±Æ§Ç¤¸¯À§Ç)
        ­ì©l¤Gºû°}¦C¼Æ = UBound(­ì©l¤Gºû°}¦C, 2) - LBound(­ì©l¤Gºû°}¦C, 2) + 1
        
        ReDim °_°}¦C(°}¦C­­¼Æ - 1, ­ì©l¤Gºû°}¦C¼Æ) As Variant
        ReDim ¨´°}¦C(°}¦C­­¼Æ - 1, ­ì©l¤Gºû°}¦C¼Æ) As Variant
        ReDim °ò°}¦C(°}¦C­­¼Æ, ­ì©l¤Gºû°}¦C¼Æ) As Variant
        
        N = 0
        H = 0
        K = 0
        For X = °_­­ To ¨´­­
            If ­ì©l¤Gºû°}¦C(X, ±Æ§Ç¤¸¯À§Ç) < °ò·Ç Then
                N = N + 1
               
                For Y = LBound(­ì©l¤Gºû°}¦C, 2) To UBound(­ì©l¤Gºû°}¦C, 2)
                    °_°}¦C(N, Y) = ­ì©l¤Gºû°}¦C(X, Y)
                Next Y
            ElseIf ­ì©l¤Gºû°}¦C(X, ±Æ§Ç¤¸¯À§Ç) = °ò·Ç Then
                H = H + 1
               
                For Y = LBound(­ì©l¤Gºû°}¦C, 2) To UBound(­ì©l¤Gºû°}¦C, 2)
                    °ò°}¦C(H, Y) = ­ì©l¤Gºû°}¦C(X, Y)
                Next Y
            Else
                K = K + 1
               
                For Y = LBound(­ì©l¤Gºû°}¦C, 2) To UBound(­ì©l¤Gºû°}¦C, 2)
                    ¨´°}¦C(K, Y) = ­ì©l¤Gºû°}¦C(X, Y)
                Next Y
            End If
        Next X
        
        If N > 1 Then
            S_¤Gºû°}¦C§Ö³tí©w»¼¼W±Æ§Ç_01 °_°}¦C, 1, ±Æ§Ç¤¸¯À§Ç, 1, N
        End If
        
        If K > 1 Then
            S_¤Gºû°}¦C§Ö³tí©w»¼¼W±Æ§Ç_01 ¨´°}¦C, 1, ±Æ§Ç¤¸¯À§Ç, 1, K
        End If
        
        °}¦C²Ö­p¼Æ = 0
        For X = °_­­ To ¨´­­
            °}¦C²Ö­p¼Æ = °}¦C²Ö­p¼Æ + 1
            
            If °}¦C²Ö­p¼Æ <= N Then
                For Y = LBound(­ì©l¤Gºû°}¦C, 2) To UBound(­ì©l¤Gºû°}¦C, 2)
                    ­ì©l¤Gºû°}¦C(X, Y) = °_°}¦C(°}¦C²Ö­p¼Æ, Y)
                Next Y
            ElseIf °}¦C²Ö­p¼Æ <= (N + H) Then
                For Y = LBound(­ì©l¤Gºû°}¦C, 2) To UBound(­ì©l¤Gºû°}¦C, 2)
                    ­ì©l¤Gºû°}¦C(X, Y) = °ò°}¦C(°}¦C²Ö­p¼Æ - N, Y)
                Next Y
            Else
                For Y = LBound(­ì©l¤Gºû°}¦C, 2) To UBound(­ì©l¤Gºû°}¦C, 2)
                    ­ì©l¤Gºû°}¦C(X, Y) = ¨´°}¦C(°}¦C²Ö­p¼Æ - N - H, Y)
                Next Y
            End If
        Next X
    Else
        °ò·Ç = ­ì©l¤Gºû°}¦C(±Æ§Ç¤¸¯À§Ç, (°_­­ + ¨´­­) \ 2)
        ­ì©l¤Gºû°}¦C¼Æ = UBound(­ì©l¤Gºû°}¦C, 1) - LBound(­ì©l¤Gºû°}¦C, 1) + 1
        
        ReDim °_°}¦C(­ì©l¤Gºû°}¦C¼Æ, °}¦C­­¼Æ - 1) As Variant
        ReDim ¨´°}¦C(­ì©l¤Gºû°}¦C¼Æ, °}¦C­­¼Æ - 1) As Variant
        ReDim °ò°}¦C(­ì©l¤Gºû°}¦C¼Æ, °}¦C­­¼Æ) As Variant
        
        N = 0
        H = 0
        K = 0
        For Y = °_­­ To ¨´­­
            If ­ì©l¤Gºû°}¦C(±Æ§Ç¤¸¯À§Ç, Y) < °ò·Ç Then
                N = N + 1
               
                For X = LBound(­ì©l¤Gºû°}¦C, 1) To UBound(­ì©l¤Gºû°}¦C, 1)
                    °_°}¦C(X, N) = ­ì©l¤Gºû°}¦C(X, Y)
                Next X
            ElseIf ­ì©l¤Gºû°}¦C(±Æ§Ç¤¸¯À§Ç, Y) = °ò·Ç Then
                H = H + 1
               
                For X = LBound(­ì©l¤Gºû°}¦C, 1) To UBound(­ì©l¤Gºû°}¦C, 1)
                    °ò°}¦C(X, H) = ­ì©l¤Gºû°}¦C(X, Y)
                Next X
            Else
                K = K + 1
               
                For X = LBound(­ì©l¤Gºû°}¦C, 1) To UBound(­ì©l¤Gºû°}¦C, 1)
                    ¨´°}¦C(X, K) = ­ì©l¤Gºû°}¦C(X, Y)
                Next X
            End If
        Next Y
        
        If N > 1 Then
            S_¤Gºû°}¦C§Ö³tí©w»¼¼W±Æ§Ç_01 °_°}¦C, 2, ±Æ§Ç¤¸¯À§Ç, 1, N
        End If
        
        If K > 1 Then
            S_¤Gºû°}¦C§Ö³tí©w»¼¼W±Æ§Ç_01 ¨´°}¦C, 2, ±Æ§Ç¤¸¯À§Ç, 1, K
        End If
        
        °}¦C²Ö­p¼Æ = 0
        For Y = °_­­ To ¨´­­
            °}¦C²Ö­p¼Æ = °}¦C²Ö­p¼Æ + 1
            
            If °}¦C²Ö­p¼Æ <= N Then
                For X = LBound(­ì©l¤Gºû°}¦C, 1) To UBound(­ì©l¤Gºû°}¦C, 1)
                    ­ì©l¤Gºû°}¦C(X, Y) = °_°}¦C(X, °}¦C²Ö­p¼Æ)
                Next X
            ElseIf °}¦C²Ö­p¼Æ <= (N + H) Then
                For X = LBound(­ì©l¤Gºû°}¦C, 1) To UBound(­ì©l¤Gºû°}¦C, 1)
                    ­ì©l¤Gºû°}¦C(X, Y) = °ò°}¦C(X, °}¦C²Ö­p¼Æ - N)
                Next X
            Else
                For X = LBound(­ì©l¤Gºû°}¦C, 1) To UBound(­ì©l¤Gºû°}¦C, 1)
                    ­ì©l¤Gºû°}¦C(X, Y) = ¨´°}¦C(X, °}¦C²Ö­p¼Æ - N - H)
                Next X
            End If
        Next Y
    End If

End Sub

TOP

¦^´_ 8# jackyq


    ·PÁ¡A¯uªº¤Ó±j¤F¡A¥ý¥Í¬OŪ¸ê°T¬ì¨tªº¶Ü¡H

§Ú¬Ý¥X¥D­n§Q¥ÎIndex¡A¥u­n±Æ§Ç¤@ºû¡A¦A§Q¥ÎIndex§@¦hºû²¾°Ê¡A¦³®Ä´î¤Ö±Æ§Ç¹Lµ{¤¤¤£¥²­nªº¤ÏÂв¾°Ê¡Aºû«×¤¸¯À·U¦h¡A´£³t·U©úÅã¡AÁo©ú¡I

¥t¥~´X­Ó°ÝÃD½Ð±Ð¡G

¹³¡G
      Dim value
      For X = °_­­ To ¨´­­
             value = ­ì©l1ºû°}¦C(X)
          If value < °ò·Ç Then
             N = N + 1: °_°}¦C(N) = value: °_°}¦C_ID(N) = IndexAR(X)
¨Ï¥Î value ¤@©w¤ñ¸û§Ö¶Ü¡HÁöµM¤£¥Î¤ÏÂжi¦æ´£¨ú¡u­ì©l1ºû°}¦C(X)¡v¡A¦ý¦h¤@­Ó¡uvalue = ­ì©l1ºû°}¦C(X)¡vªº°Ê§@¡A¥H«e¤]·Q¹L³o­Ó°ÝÃD¡C

¹³¡G
ReDim Preserve °_°}¦C(0 To N), °_°}¦C_ID(0 To N)  'reduce ram consumption
®Ú¾Ú§Úªº¸gÅç¡AReDim Preserve«Ü¯Ó®É¡A¦¹¨Ò¥i¥H¤£¥Î¶Ü¡H·íµM¦¸¼Æ©Î³\¤£¦h¡A¦ý¤]¤£¤Ö¡C

TOP

¦^´_ 8# jackyq


    ¹³ UBound(­ì©l¤Gºû°}¦C, 2) ¤]¥ý¥N¤JÅܼơA¤§«á¦h¦¸«h¥HÅܼƤޥΡA¦p¦¹¬O§_¤]·|´£³t¡H

TOP

¦^´_ 11# jackyq


    ·PÁ«ü±Ð¡A¬Ý¨Ó§AÆZ±M·~ªº¡I

TOP

³Ì«áÀu¤Æ¡A±q­ì¥»ªº0.198¬í¡÷0.089¬í
  1. Option Explicit
  2. Option Base 1
  3. Option Compare Text

  4. Public Sub S_¤Gºû°}¦C§Ö³t´¡¤Jí©w»¼¼W±Æ§Ç_01(ByRef ­ì©l¤Gºû°}¦C As Variant, ByVal ±Æ§Çºû«× As Long, ByVal ±Æ§ÇÁä­È As Long, ByVal °_­­ As Long, ByVal ¨´­­ As Long)

  5.     On Error Resume Next
  6.    
  7.     If °_­­ >= ¨´­­ Then
  8.         Exit Sub
  9.     End If
  10.    
  11.     '------------------------------------------------------
  12.    
  13.     Dim X As Long
  14.     Dim Y As Long
  15.    
  16.     Dim Â^¨ú¦¨¤@ºû°}¦C As Variant
  17.     Dim ¯Á¤Þ°}¦C() As Long
  18.    
  19.     '------------------------------------------------------
  20.    
  21.     ReDim Â^¨ú¦¨¤@ºû°}¦C(°_­­ To ¨´­­) As Variant
  22.     ReDim ¯Á¤Þ°}¦C(°_­­ To ¨´­­) As Long
  23.    
  24.     If ±Æ§Çºû«× = 1 Then
  25.         For X = °_­­ To ¨´­­
  26.             Â^¨ú¦¨¤@ºû°}¦C(X) = ­ì©l¤Gºû°}¦C(X, ±Æ§ÇÁä­È)
  27.             ¯Á¤Þ°}¦C(X) = X
  28.         Next X
  29.     Else
  30.         For Y = °_­­ To ¨´­­
  31.             Â^¨ú¦¨¤@ºû°}¦C(Y) = ­ì©l¤Gºû°}¦C(±Æ§ÇÁä­È, Y)
  32.             ¯Á¤Þ°}¦C(Y) = Y
  33.         Next Y
  34.     End If
  35.    
  36.     '------------------------------------------------------
  37.    
  38.     ¤Gºû°}¦C§Ö³t´¡¤Jí©w»¼¼W±Æ§Ç Â^¨ú¦¨¤@ºû°}¦C, ¯Á¤Þ°}¦C, °_­­, ¨´­­
  39.    
  40.     '------------------------------------------------------
  41.    
  42.     Dim ½Æ»s­ì©l¤Gºû°}¦C As Variant
  43.    
  44.     ½Æ»s­ì©l¤Gºû°}¦C = ­ì©l¤Gºû°}¦C
  45.    
  46.     If ±Æ§Çºû«× = 1 Then
  47.         For X = °_­­ To ¨´­­
  48.             For Y = LBound(­ì©l¤Gºû°}¦C, 2) To UBound(­ì©l¤Gºû°}¦C, 2)
  49.                 ­ì©l¤Gºû°}¦C(X, Y) = ½Æ»s­ì©l¤Gºû°}¦C(¯Á¤Þ°}¦C(X), Y)
  50.             Next Y
  51.         Next X
  52.     Else
  53.         For Y = °_­­ To ¨´­­
  54.             For X = LBound(­ì©l¤Gºû°}¦C, 1) To UBound(­ì©l¤Gºû°}¦C, 1)
  55.                 ­ì©l¤Gºû°}¦C(X, Y) = ½Æ»s­ì©l¤Gºû°}¦C(X, ¯Á¤Þ°}¦C(Y))
  56.             Next X
  57.         Next Y
  58.     End If

  59. End Sub

  60. Public Sub ¤Gºû°}¦C§Ö³t´¡¤Jí©w»¼¼W±Æ§Ç(ByRef ­ì©l¤@ºû°}¦C As Variant, ByRef ¯Á¤Þ°}¦C() As Long, ByVal °_­­ As Long, ByVal ¨´­­ As Long)

  61.     On Error Resume Next
  62.    
  63.     If °_­­ >= ¨´­­ Then
  64.         Exit Sub
  65.     End If
  66.    
  67.     '------------------------------------------------------
  68.    
  69.     Dim X As Long
  70.     Dim Y As Long
  71.     Dim S As Long
  72.     Dim M As Long
  73.     Dim E As Long
  74.     Dim N As Long
  75.    
  76.     Dim ¼È¦s As Variant
  77.     Dim ¯Á¤Þ¼È¦s As Long
  78.     Dim °ò·Ç As Variant
  79.    
  80.     '------------------------------------------------------
  81.    
  82.     If ¨´­­ - °_­­ < 16 Then
  83.         For X = °_­­ + 1 To ¨´­­
  84.             ¼È¦s = ­ì©l¤@ºû°}¦C(X)
  85.             ¯Á¤Þ¼È¦s = ¯Á¤Þ°}¦C(X)
  86.             
  87.             For Y = X - 1 To °_­­ Step -1
  88.                 If ¼È¦s >= ­ì©l¤@ºû°}¦C(Y) Then
  89.                     Exit For
  90.                 End If
  91.                
  92.                 ­ì©l¤@ºû°}¦C(Y + 1) = ­ì©l¤@ºû°}¦C(Y)
  93.                 ¯Á¤Þ°}¦C(Y + 1) = ¯Á¤Þ°}¦C(Y)
  94.             Next Y
  95.             
  96.             ­ì©l¤@ºû°}¦C(Y + 1) = ¼È¦s
  97.             ¯Á¤Þ°}¦C(Y + 1) = ¯Á¤Þ¼È¦s
  98.         Next X
  99.     Else
  100.         Dim °ò·Ç°}¦C(3) As Variant
  101.         
  102.         °ò·Ç°}¦C(1) = ­ì©l¤@ºû°}¦C(°_­­)
  103.         °ò·Ç°}¦C(2) = ­ì©l¤@ºû°}¦C((°_­­ + ¨´­­) \ 2)
  104.         °ò·Ç°}¦C(3) = ­ì©l¤@ºû°}¦C(¨´­­)
  105.         
  106.         For X = 2 To 3
  107.             ¼È¦s = °ò·Ç°}¦C(X)
  108.             
  109.             For Y = X - 1 To 1 Step -1
  110.                 If ¼È¦s >= °ò·Ç°}¦C(Y) Then
  111.                     Exit For
  112.                 End If
  113.                
  114.                 °ò·Ç°}¦C(Y + 1) = °ò·Ç°}¦C(Y)
  115.             Next Y
  116.             
  117.             °ò·Ç°}¦C(Y + 1) = ¼È¦s
  118.         Next X
  119.         
  120.         °ò·Ç = °ò·Ç°}¦C(2)
  121.         
  122.         '------------------------------------------------------
  123.         
  124.         Dim °_°}¦C As Variant
  125.         Dim °ò°}¦C As Variant
  126.         Dim ¨´°}¦C As Variant
  127.         Dim ¯Á¤Þ°_°}¦C() As Long
  128.         Dim ¯Á¤Þ°ò°}¦C() As Long
  129.         Dim ¯Á¤Þ¨´°}¦C() As Long
  130.         
  131.         ReDim °_°}¦C(¨´­­ - °_­­) As Variant
  132.         ReDim °ò°}¦C(¨´­­ - °_­­ + 1) As Variant
  133.         ReDim ¨´°}¦C(¨´­­ - °_­­) As Variant
  134.         ReDim ¯Á¤Þ°_°}¦C(¨´­­ - °_­­) As Long
  135.         ReDim ¯Á¤Þ°ò°}¦C(¨´­­ - °_­­ + 1) As Long
  136.         ReDim ¯Á¤Þ¨´°}¦C(¨´­­ - °_­­) As Long
  137.         
  138.         S = 0
  139.         M = 0
  140.         E = 0
  141.         For X = °_­­ To ¨´­­
  142.             ¼È¦s = ­ì©l¤@ºû°}¦C(X)
  143.             ¯Á¤Þ¼È¦s = ¯Á¤Þ°}¦C(X)
  144.             
  145.             If ¼È¦s < °ò·Ç Then
  146.                 S = S + 1
  147.                 °_°}¦C(S) = ¼È¦s
  148.                 ¯Á¤Þ°_°}¦C(S) = ¯Á¤Þ¼È¦s
  149.             ElseIf ¼È¦s = °ò·Ç Then
  150.                 M = M + 1
  151.                 °ò°}¦C(M) = ¼È¦s
  152.                 ¯Á¤Þ°ò°}¦C(M) = ¯Á¤Þ¼È¦s
  153.             Else
  154.                 E = E + 1
  155.                 ¨´°}¦C(E) = ¼È¦s
  156.                 ¯Á¤Þ¨´°}¦C(E) = ¯Á¤Þ¼È¦s
  157.             End If
  158.         Next X
  159.         
  160.         '------------------------------------------------------
  161.         
  162.         If S > 1 Then
  163.             ¤Gºû°}¦C§Ö³t´¡¤Jí©w»¼¼W±Æ§Ç °_°}¦C, ¯Á¤Þ°_°}¦C, 1, S
  164.         End If
  165.         
  166.         If E > 1 Then
  167.             ¤Gºû°}¦C§Ö³t´¡¤Jí©w»¼¼W±Æ§Ç ¨´°}¦C, ¯Á¤Þ¨´°}¦C, 1, E
  168.         End If
  169.         
  170.         '------------------------------------------------------
  171.         
  172.         N = °_­­ - 1
  173.         For X = 1 To S
  174.             N = N + 1
  175.             ­ì©l¤@ºû°}¦C(N) = °_°}¦C(X)
  176.             ¯Á¤Þ°}¦C(N) = ¯Á¤Þ°_°}¦C(X)
  177.         Next X
  178.         
  179.         For X = 1 To M
  180.             N = N + 1
  181.             ­ì©l¤@ºû°}¦C(N) = °ò°}¦C(X)
  182.             ¯Á¤Þ°}¦C(N) = ¯Á¤Þ°ò°}¦C(X)
  183.         Next X
  184.         
  185.         For X = 1 To E
  186.             N = N + 1
  187.             ­ì©l¤@ºû°}¦C(N) = ¨´°}¦C(X)
  188.             ¯Á¤Þ°}¦C(N) = ¯Á¤Þ¨´°}¦C(X)
  189.         Next X
  190.     End If

  191. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD