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

[µo°Ý] ¥H¦r¨å¤è¦¡»s§@¾lÃB©ú²Óªí

[µo°Ý] ¥H¦r¨å¤è¦¡»s§@¾lÃB©ú²Óªí

¥»©«³Ì«á¥Ñ shuo1125 ©ó 2023-3-18 18:56 ½s¿è

¦U¦ì«e½ú¦n!
·Q¥H¦r¨åªk»s§@¬ì¥Ø¾lÃB©ú²Ó¡A¦ý±ø¥ó¯A¤Î½ÆÂø¯uªº§Ë¤£¥X¨Ó...
»Ý¨D¦p¤U:
¤u§@ªí¬°Sheet01¸ê®Æ°Ï¡ASheet02¬ì¥Ø¾lÃBªí(®Mªí)¡A¨ä¾l¬°Âà¥X¤§¦U¬ì¥Øªí¡C
¤@¡B¸ê®Æ°ÏSÄ欰­É¶U¾l¡A¦¹³¡¤À¥Î©ó¾lÃB¨M©w­É-¶UÁÙ¬O¶U-­É¡C
¤G¡B§PÂ_±ø¥ó¬°1.¬ì¥Ø½s¸¹(BÄæ) 2.¶Ç²¼½s¸¹-§Ç(HÄæ) 3.¹ô§O(LÄæ) 4.­ì¹ôª÷ÃB(N : OÄæ) 5.¥»¹ôª÷ÃB(P : QÄæ) 6.¨R¾Pªº¸¹½Xµù°O(KÄæ) 7.­É¶U¾l(SÄæ)¡C
¤T¡B§PÂ_¸ê®Æ°ÏBÄæ¬ì¥Ø¡A¦P¬ì¥Ø©ú²Ó ¨Ì¤W­z±ø¥ó·í¤ë¨R¾PÅܤƱa¤J¬ì¥Ø¾lÃBªí(®Mªí)¤¤¡C
¬ì¥Ø¾lÃBªí(®Mªí)1-12¤ë¬°¥»¹ô¼Æ¤£»Ý³B²z­ì¹ô¤§ÅܤơA¦ý­ì¹ô¾lÃB»Ýªí¹F¦bSÄæ¡C
¸Ô¦pªþ¥ó¡A½Ð°Ý¦U¦ì°ª¤â³o¦³¿ìªk³B²z¶Ü...
¥H¤W¡A¦A³Â·Ð¤F¡AÁÂÁ¡I¡I

TEXT20230318.zip (17.83 KB)

¦^´_ 33# Andy2483
­º¥ý·PÁÂAndy¤jÀ°¦£¡A
¦ý²{¦bµo²{¤F­Ó°ÝÃD....
KÄæ³æ¤ëµo¥Í³æ¸¹­«½Æ¨R¾P®É¡A¤ëª÷ÃB»Ý²Ö­p¡C
½Ð¬Ý¹ÏÀɤνd¨Ò¡A¹Á¸Õ´X¦¸³£µLªk°õ¦æ....¦A¦¸¨D§U³Ò·Ð¤F¡I
¬ì¥Ø¾lÃBªí20231116.zip (49.19 KB)

TOP

¦^´_ 30# shuo1125


    ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú,ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«¦V«e½ú»PÂsÄý³o¥DÃDªº«e½ú.¹C«È­Ì­Pºp,©êºp,¥H¤U¬O¾Ç²ß¤è®×­×¥¿

Sub ²M°£¤£²Å±ø¥óªº¦C_¨Ã±Æ§Ç()
Dim Arr, Brr(), xArea As Range, x&, Xm&, y&, Ym&, N&, Da As Date
'Da = Application.Text([¬ì¥Ø¾lÃBªí!B1], "[$-404]e/m/d;@")
'³o¬O¿ù»~ªºÆ[©À,«á¾Ç¾q¶w! ¤£À³¸Ó±N¦è¤¸¦~Âà´«¦¨¥Á°ê¦~
'¥¿½TÆ[©À½Ð°Ñ¦Ò³sµ²©«

http://forum.twbts.com/thread-23971-1-1.html
Da = [¬ì¥Ø¾lÃBªí!B1]
With Range([ÅçÃÒªí!U1], [ÅçÃÒªí!A65536].End(3))
     Arr = .Value
     Ym = UBound(Arr, 1)
     Xm = UBound(Arr, 2)
     Set xArea = .Resize(Ym, Xm + 1)
     ReDim Brr(1 To Ym, 0)
     For y = 2 To Ym
        'If CDate(Arr(y, 4)) > Da Then GoTo 101
        '«á¾Ç·í®É³g¤è«K¥H¬°±N¤é´Á³B¸Ì¦¨¦P¬°¥Á°ê¦~°µ¤ñ¸û,³o¬O¿ù»~ªºÆ[©À
        If CDate(Val(Arr(y, 4)) + 1911 & Mid(T, InStr(Arr(y, 4), "/"))) > Da Then GoTo 101
        '¸Ó±N¨âªÌ³£³B²z¦¨¦è¤¸¦~°µÅÞ¿è¹Bºâ,¤~¬O¥¿½Tªº¤èªk
         N = N + 1: Brr(y, 0) = N
101: Next y
     If N = Ym - 1 Then Exit Sub
     xArea.Columns(Xm + 1) = Brr
End With
With xArea
     .Sort KEY1:=.Item(Xm + 1), Order1:=xlAscending, Header:=xlYes
     .Rows(N + 2 & ":" & Ym).Delete
     .Columns(Xm + 1).Delete
     .Sort _
     KEY1:=[B1], Order1:=xlAscending, _
     Key2:=[C1], Order2:=xlAscending, _
     key3:=[D1], Order3:=xlAscending, _
     Header:=xlYes, Orientation:=xlTopToBottom
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-29 10:33 ½s¿è

ÁÂÁ«e½×¾Â,ÁÂÁ«e½ú
«á¾ÇÂǦ¹©«½m²ß§â¦r¨åkey´£¥X¨ÓÅܦ¨¤@ºû°}¦C,½Ð«e½ú°Ñ¦Ò


Option Explicit
Public Brr
Sub ¦¬¶°¤£­«½Æ_¬ì¥Ø¦WºÙ()
Dim i&, Crr, Y
Set Y = CreateObject("Scripting.Dictionary")
Crr = Range([B2], Cells(Rows.Count, "B").End(3))
For i = 1 To UBound(Crr)
   Y(Crr(i, 1)) = ""
Next
Brr = Y.keys
MsgBox Brr(0)
Set Y = Nothing: Erase Crr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 30# shuo1125


    ÁÂÁ«e½ú¤@°_¾Ç²ß

Option Explicit
Sub TEST()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Brr, A, y, Z, Yk, T2$, T3$, T8$, T11$, T12$, T20$, S1$, S2$
Dim x%, C%, N&, i&, P&, Crr(1 To 1000, 1 To 20)
Set y = CreateObject("Scripting.Dictionary")
Z = Array(, 4, 8, 10, 12, 14, 16, 15, 17)
On Error Resume Next
Sheets("ÅçÃÒªí").Delete
On Error GoTo 0
Sheets("¸ê®Æ°Ï").Copy Before:=Sheets(1)
With Sheets(1): .Name = "ÅçÃÒªí": End With

Brr = Range([ÅçÃÒªí!U1], [ÅçÃÒªí!A65536].End(3))
For i = 2 To UBound(Brr)
   T2 = Brr(i, 2): T3 = Brr(i, 3)
   S1 = T2 & "|" & T3: y(S1 & "/b") = T2: y(S1 & "/c") = T3
   A = y(S1): y(S1 & "/¾lÃB") = Brr(i, 18)
   If Not IsArray(A) Then A = Crr
   T8 = Brr(i, 8): T11 = Brr(i, 11)
   T12 = Brr(i, 12): T20 = Brr(i, 20)
   If InStr("/¨R±b/¥ß±b/", "/" & T20 & "/") = 0 Then
      Application.Goto Sheets("ÅçÃÒªí").Rows(i)
      MsgBox "TÄ椣©ú ¥ß¨R±bÃþ§O": Exit Sub
   End If
   If T20 = "¨R±b" Then
      If T11 Like "#####*" = False Then
         Application.Goto Sheets("ÅçÃÒªí").Rows(i)
         MsgBox "¨R±b³ÆµùÄ沧±`": Exit Sub
      End If
      If y.Exists(T11 & "|" & T12) = Empty Then
         Application.Goto Sheets("ÅçÃÒªí").Rows(i)
         MsgBox "µLªk¨R±b": Exit Sub
      End If
   End If
   If T20 = "¥ß±b" Then
      N = y(S1 & "|r"): N = N + 1: y(S1 & "|r") = N
      S2 = T8 & "|" & T12: y(S2) = N
      For x = 1 To 4: A(N, x) = Brr(i, Z(x)): Next
      For x = 5 To 6
         A(N, x) = Brr(i, Z(x)) + Brr(i, Z(x + 2))
         A(N, x + 14) = A(N, x)
      Next
      y(S1) = A: GoTo i01
   End If
   C = Format(Brr(i, 4), "M") + 6
   S2 = T11 & "|" & T12
   A(y(S2), C) = Brr(i, 16) + Brr(i, 17)
   A(y(S2), 20) = A(y(S2), 20) - A(y(S2), C)
   P = Brr(i, 14) + Brr(i, 15)
   A(y(S2), 19) = A(y(S2), 19) - P
   y(S1) = A
   
i01:
Next
'====================================
For Each Yk In y.keys
   If IsArray(y(Yk)) Then
      On Error Resume Next
      Sheets(Val(Yk) & "").Delete
      On Error GoTo 0
      Sheets("¬ì¥Ø¾lÃBªí").Copy Before:=Sheets(1)
      With Sheets(1)
         .Name = Val(Yk)
         .UsedRange.Offset(5, 0).Delete
         With .[A5].Resize(y(Yk & "|r"), 20)
            .Value = y(Yk)
            Intersect([E:T], .Cells).NumberFormatLocal = _
            "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
         End With
         .[C3] = y(Yk & "/c")
         .[C3] = .[C3] & "¡m" & y(Yk & "/b") & "¡n"
         N = .Cells(Rows.Count, "F").End(3).Row
         With .Cells(N + 1, "F").Resize(1, 15)
            .Value = "=SUM(F5:F" & N & ")"
            If .Item(14) <> .Item(15) Then .Item(14) = "NA"
            If y(Yk & "/¾lÃB") <> .Item(15) Then
               .Item(15)(2) = "¡ôÄY­«¿ù»~!¾lÃB¦X­p" & _
               "¤£µ¥©ó¸ê®Æ°Ï¾lÃB: " & vbLf & y(Yk & "/¾lÃB")
               .Interior.ColorIndex = 3
               MsgBox "ÄY­«¿ù»~"
               Exit Sub
            End If
         End With
      End With
   End If
Next
Set y = Nothing: Erase Brr, Crr, Z, A
End Sub


Sub ²M°£¤£²Å±ø¥óªº¦C_¨Ã±Æ§Ç()
Dim Arr, Brr(), xArea As Range, x&, Xm&, y&, Ym&, N&, Da As Date
Da = Application.Text([¬ì¥Ø¾lÃBªí!B1], "[$-404]e/m/d;@")
With Range([ÅçÃÒªí!U1], [ÅçÃÒªí!A65536].End(3))
     Arr = .Value
     Ym = UBound(Arr, 1)
     Xm = UBound(Arr, 2)
     Set xArea = .Resize(Ym, Xm + 1)
     ReDim Brr(1 To Ym, 0)
     For y = 2 To Ym
         If CDate(Arr(y, 4)) > Da Then GoTo 101
         N = N + 1: Brr(y, 0) = N
101: Next y
     If N = Ym - 1 Then Exit Sub
     xArea.Columns(Xm + 1) = Brr
End With
With xArea
     .Sort KEY1:=.Item(Xm + 1), Order1:=xlAscending, Header:=xlYes
     .Rows(N + 2 & ":" & Ym).Delete
     .Columns(Xm + 1).Delete
     .Sort _
     KEY1:=[B1], Order1:=xlAscending, _
     Key2:=[C1], Order2:=xlAscending, _
     key3:=[D1], Order3:=xlAscending, _
     Header:=xlYes, Orientation:=xlTopToBottom
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 29# Andy2483
Andy¤j!
³o¤èªk¥i¦æ¡A¥i¬O¦³­Ó°ÝÃD..¦]¬°¸Ó¤è¦¡¬Oª½±µ¾ã²z¸ê®Æ°Ï¡A­Y§Ú­n¦A¦^ÀY¬d2023/02/28ªº¸ê®Æ´N¨S¦³¤F...
½d¨Ò¬O§Ú¿z¿ï¥X1¤ëªº¸ê®Æ¡A½Ð°Ý¥i¥H¦b¤£§R°£±¡ªp¤U¥u§ì¬d¸ß¤éªº©ú²Ó¶Ü?³Ò·Ð¤F...!!

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-28 09:22 ½s¿è

¦^´_ 28# shuo1125


    ÁÂÁ«e½ú,ÁÂÁ½׾Â
«á¾Ç½m²ß¹B¥Î §R°£«ü©w±ø¥ó¦C¸ê®Æ,¾Ç²ßªº¸Ñ¨M¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
http://forum.twbts.com/thread-23898-1-2.html

Option Explicit
Sub ²M°£¤£²Å±ø¥óªº¦C_¨Ã±Æ§Ç()
Dim Arr, Brr(), xArea As Range, x&, Xm&, y&, Ym&, N&, Da As Date
'¡ô«Å§iÅܼÆ:Arr¬O ³q¥Î«¬ÅܼÆ,Brr¬O°}¦C,xArea¬OÀx¦s®æÅܼÆ,¨ä¥L¬Oªø¾ã¼ÆÅܼÆ
Da = Application.Text([¬ì¥Ø¾lÃBªí!B1], "[$-404]e/m/d;@")
'¡ô¥ODa³o¤é´ÁÅܼƬO [B1]¥H°ê¦~®æ¦¡Âର¤å¦r¦AÂର¤é´ÁªºÅܼÆ
With Range([¸ê®Æ°Ï!U1], [¸ê®Æ°Ï!A65536].End(3))
'¡ô¥H¤U¬OÃö©ó¤W­zÀx¦s®æªºµ{§Ç
     Arr = .Value
     '¡ô¥OArr³o³q¥Î«¬ÅܼƬO¤Gºû°}¦C,¥H³oWithµ{§ÇÀx¦s®æ­È±a¤J
     Ym = UBound(Arr, 1)
     '¡ô¥OYm³oªø¾ã¼ÆÅܼƬOArr°}¦CÁa¦V³Ì¤j¯Á¤Þ¦C¸¹¼Æ
     'PS:¥i¥H¬Ù²¤¬° Ym = UBound(Arr)
     Xm = UBound(Arr, 2)
     '¡ô¥OXm³oªø¾ã¼ÆÅܼƬOArr°}¦C¾î¦V³Ì¤j¯Á¤ÞÄ渹¼Æ
     Set xArea = .Resize(Ym, Xm + 1)
     '¡ô¥OxArea³oÀx¦s®æÅܼƬO ¥H³oWithµ{§ÇÀx¦s®æÂX®i¦V¤UYmÅܼƦC,
     '¦V¥k(XmÅÜ¼Æ + 1)Äæ
     '(PS:¼W¥[1»²§UÄæ)

     ReDim Brr(1 To Ym, 0): Brr(1, 0) = 0
     '¡ô«Å§iBrr³o°}¦CÅܼƬO¤Gºûªº,
     '¤j¤p:Áa¦V±q1¨ìYmÅܼƦC,¾î¦V1Äæ,¯Á¤Þ¸¹¬O0¨ì0
     '¡ô¥O²Ä1­ÓBrr°}¦C­È¬O 0

     For y = 2 To Ym
     '¡ô³]¶¶°j°é!y±q1¨ìYmÅܼÆ
         If CDate(Arr(y, 4)) > Da Then GoTo 101
         '¡ô¦pªGy°j°é¦C²Ä4ÄæArr°}¦C­ÈÂন¤é´Á«á¤j©ó DaÅܼÆ!´N¸õ¨ì101¦ì¸mÄ~Äò°õ¦æ
         N = N + 1: Brr(y, 0) = N
         '¡ô¥ON³oªø¾ã¼ÆÅܼƲ֥[ 1:¥OyÅܼƦC0¯Á¤Þ¸¹ÄæBrr°}¦C­È¬O NÅܼÆ
101: Next y
     If N = Ym - 1 Then Exit Sub
     '¡ô¦pªGNÅܼÆ=YmÅܼÆ-1!´Nµ²§ôµ{¦¡°õ¦æ(¥Nªí¨S¦³²Å¦X±ø¥óªº¦C)
     xArea.Columns(Xm + 1) = Brr
     '¡ô¥OxAreaÅܼƪº(XmÅܼÆ+1)Äæ½d³òÀx¦s®æ¥HBrr°}¦C­È±a¤J(PS:»²§UÄæ±a¤J»²§U¯Á¤Þ­È)
End With
With xArea
'¡ô¥H¤U¬OÃö©ó xAreaÅܼƪºµ{§Ç
     .Sort KEY1:=.Item(Xm + 1), Order1:=xlAscending, Header:=xlNo
     '¡ô¥OxArea(Àx¦s®æ)¥H(XmÅܼÆ+1)Äæ²Ä1¦CÀx¦s®æ©Ò¦bªºÄæ(ABÄæ)·í°ò·Ç,
     '°µ¨S¦³¼ÐÃD¦Cªº¶¶±Æ§Ç±Æ§Ç

     .Rows(N + 2 & ":" & Ym).Delete
     '¡ô¥OxAreaÅܼƽd³ò¸Ìªº²Ä (NÅÜ¼Æ + 2)¦C¨ì ½d³ò¸ÌªºYmÅܼƦC,
     '³o½d³òÀx¦s®æ¦C§R°£

     .Columns(Xm + 1).Delete
     '¡ô¥OxAreaÅܼƪº(XmÅܼÆ+1)Äæ½d³òÀx¦s®æÄæ§R°£ (PS:»²§UÄæ§R°£)
     .Sort _
     KEY1:=[B1], Order1:=xlAscending, _
     Key2:=[C1], Order2:=xlAscending, _
     key3:=[D1], Order3:=xlAscending, _
     Header:=xlYes, Orientation:=xlTopToBottom
     '¡ô¥O¸ê®Æ°µ3¼h¦¸±Æ§Ç
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 25# Andy2483
Andy¤j!
­Y­n±N¾lÃB©ú²ÓªíªºB1¤é´Á¦Ò¼{¶i¥h¡A°²³]»¡¾lÃB°ÏB1¤é´Á¬O2023/01/31(¹ÏA)¡A
«h¾lÃB©ú²Ó¥u§ì¨ì1¤ë©³(¹ÏB)¡A
½Ð°Ý³o¼Ë¸Ó¦p¦ó­×§ï¤~¦n?¦p¹Ï¡A¤S­n³Ò·Ð§A¤F...ÁÂÁÂ!!!

¹ÏA.png (29.17 KB)

¹ÏA.png

¹ÏB.png (41.5 KB)

¹ÏB.png

TOP

¦^´_ 25# Andy2483
Andy¤j!
   ¸g´ú¸Õ¥i¦æ¡A·P¿E¤£ºÉ!!

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-27 10:11 ½s¿è

¦^´_ 24# shuo1125


    ÁÂÁ«e½ú
«á¾ÇÂǦ¹©«µo²{³o¦r¨å¬O­Ó¸U¯àªºÅܼƲ£¥Í¾¹
1.¦]¬°ÅܼƤ£·|­«½Æ,©Ò¥Hkey¥i¥HÂo­«½Æ
2.¦]¬°key¹ïÀ³¤@­Óitem(¼Æ¦r.¦r¦ê.Àx¦s®æ.°}¦C....),©Ò¥Hkey¥i·í¦¨¬O¤@­ÓÅܼÆ


Option Explicit
Sub ¸ê®Æ°Ï¾lÃB_1()
Dim Y, Arr, T16&, T17&, T18&, i&, S&, T$, T2$, T3$, T20$, xR As Range
'¡ô«Å§iÅܼÆ:(Y,Arr)¬O³q¥Î«¬ÅܼÆ,(T16,T17,T18,i)¬Oªø¾ã¼Æ,
'(T,T2,T3,T20)¬O¦r¦êÅܼÆ,xR¬OÀx¦s®æÅܼÆ

Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OY³o³q¥Î«¬ÅܼƬO ¦r¨å
Set xR = Range([¸ê®Æ°Ï!T2], [¸ê®Æ°Ï!A1].Cells(Rows.Count, 1).End(3))
'¡ô¥OxR³oÀx¦s®æÅܼƬO ¸ê®Æ°Ï[T2]¨ì AÄæ³Ì«á¦³¤º®eÀx¦s®æ½d³òÀx¦s®æ
Arr = xR
'¡ô¥OArr³o³q¥Î«¬ÅܼƬO ¤Gºû°}¦C,¥H xRÀx¦s®æ­È±a¤J
For i = 1 To UBound(Arr)
'¡ô³]¶¶°j°é!i±q1¨ì Arr°}¦CÁa¦V³Ì¤j¯Á¤Þ¦C¸¹
   T2 = Arr(i, 2): T3 = Arr(i, 3): T16 = Arr(i, 16)
   T17 = Arr(i, 17): T18 = Arr(i, 18): T20 = Arr(i, 20)
   '¡ô¥OT2³o¦r¦êÅܼƬO i°j°é¦C²Ä2ÄæArr°}¦C­È,¨Ì¦¹Ãþ±À
   T18 = Abs(T16 - T17)
   '¡ô¥OT18³oªø¾ã¼ÆÅܼƬO T16ÅÜ¼Æ - T17Åܼƫ᪺µ´¹ï­È¼Æ­È
   T = T2 & "|" & T3
   '¡ô¥OT³o¦r¦êÅܼƬO T2ÅܼƳs±µ T3ÅܼƲզ¨ªº·s¦r¦ê
   If Y(T) = "" And T20 = "¨R±b" Then MsgBox "ÄY­«¿ù»~": Exit Sub
   '¡ô¦pªG¤@¶}©l´N¬O¨R±b!¬OÄY­«¿ù»~±o¸ê®Æ
   If T20 = "¥ß±b" Then
   '¡ô¦pªG T20ÅܼƬO "¥ß±b" ?
      Y(T) = Y(T) + T18
      '¡ô¥OTÅܼƦbY¦r¨åitem­È²Ö¥[ T18ÅܼÆ
      ElseIf T20 = "¨R±b" Then
         '¡ô§_«h¦pªG T20ÅܼƬO "¨R±b" ?
         Y(T) = Y(T) - T18
         '¡ô¥OTÅܼƦbY¦r¨åitem­È²Ö¦© T18ÅܼÆ
      Else
         MsgBox "µLªk¿ëÃÑ": Application.Goto xR(i, 20): Exit Sub
         '¡ô§_«h´N¸õ¥X´£¥Üµ¡,Àx¦s®æ´å¼Ð¸õ¨ìRÄæi°j°é¦C¦ì¸m:µ²§ôµ{¦¡
   End If
   Arr(i, 18) = Y(T)
   '¡ô¥Oi°j°é¦C²Ä18ÄæArr°}¦C­È¬OTÅܼƬdY¦r¨åªºitem­È
Next
[A2].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
'¡ô¥O[A2]ÂX®i¦V¤UArrÁa¦V³Ì¤j¯Á¤Þ¦C¸¹¼Æ,ÂX®i¦V¥k³Ì¤j¯Á¤ÞÄ渹¼Æ,
'³oÂX®i½d³òÀx¦s®æ­È¥HArr°}¦C­È±a¤J

Erase Arr: Set xR = Nothing: Set Y = Nothing
'¡ô¥OÄÀ©ñÅܼÆ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD