shuo1125

¦^´_ 19# ­ã´£³¡ªL

­ã¤j¦n¡I

ªþ¤W¹Ï

¤U¸ü (154.24 KB)

2021-12-9 21:40

¤£¦n·N«ä¦A½Ð±Ð­Ó°ÝÃD...¦pªG¦³¸ê®Æªº³¡¤ÀJÄæ·Q¼W¥["¤f¤H­û ¤f¦aÂI ¤f¥\¯à"³o¨Ç¤å¦r
½Ð°Ý¸Ó¦p¦ó­×§ï¦n¡A¥i·Ð½Ð¦A«ü¾É¤@¤U¶Ü?

³Ò·Ð±z©âªÅ¸Ñµª¤F¡AÁÂÁ¡C

­ã´£³¡ªL

¦^´_ 21# shuo1125

    For i = 1 To R
        V = vD(K).keys()(i - 1)
        Brr(i + 1, 5) = "¤p­p¡G": Brr(i + 1, 8) = Brr(i, 8) + Arr(V, 12)
        For j = 1 To 8:  Brr(i, j) = Arr(V, Cr(j - 1)): Next
        Brr(i, 10) = "¤f¤H­û ¤f¦aÂI ¤f¥\¯à"
    Next i

shuo1125

¦^´_ 22# ­ã´£³¡ªL
­ã¤j¦n¡I
¤£¦n·N«ä...¦n¹³¦³ÂI©Ç©Çªº
For i = 1 To R
        V = vD(K).keys()(i - 1)
        Brr(i + 1, 5) = "¤p­p¡G": Brr(i + 1, 8) = Brr(i, 8) + Arr(V, 12)
        For j = 1 To 8:  Brr(i, j) = Arr(V, Cr(j - 1)): Next
'¦n¹³¨S¦³¤W­z³o¤@¬q...
----------------------------------------------------------------------------------------------------------------
    Set xA = [½LÂIªí³æ!A1]
For i = 1 To N
    If i > 1 Then [½LÂIªí³æ!A1:K3].Copy xA
    T1 = xD(i): R = xD(T1): Crr = xD(T1 & "/c")
    xA(2, 2) = T1: xA(2, 11) = "¶µ¦¸¡G" & i & "/" & N
    With xA(4).Resize(R, 11)
         [½LÂIªí³æ!A4:K4].Copy .Cells
         .Value = Crr
    End With
    xA(R + 4, 2) = "·|½L¤H¡G": xA(R + 4, 4) = "½LÂI¤H¡G": xA(R + 4, 5) = "¤p­p": xA(R + 4, 9) = xD(T1 & "/s")
    Set xA = xA(R + 5)
    xA.PageBreak = xlPageBreakManual '³]©w¤À­¶½u
'¬O¤W­±³o¬q
----------------------------------------------------------------------------------------------------------------
ÁÙ¬O§Ú©ñªº¦ì¸m¦³¿ù...³Â·Ð¦b«ü¥¿¤@¤U
³Ò·Ð§A¤F¡AÁÂÁ¡C

­ã´£³¡ªL

¦^´_ 23# shuo1125

Sub TEST_A4()
Dim Arr, Brr, Cr, xD, vD, i&, j%, R&, K, T1$, T2$, TT$, N&, V%, xA As Range
tm = Timer
Call ²M°£
Set xD = CreateObject("Scripting.Dictionary")
Set vD = CreateObject("Scripting.Dictionary")
Arr = Range([DATA!at1], [DATA!a65536].End(xlUp))
For i = 2 To UBound(Arr)
    If Arr(i, 46) <> "" Then GoTo i01
    T1 = Arr(i, 11): T2 = Arr(i, 6): TT = T1 & T2
    If T1 = "" Or T2 = "" Or xD(TT) > 0 Then GoTo i01
    If xD(T1) = 0 Then Set vD(T1) = CreateObject("Scripting.Dictionary")
    xD(T1) = 1: xD(TT) = 1: vD(T1)(i) = ""
i01: Next i
'--------------------------------
Application.ScreenUpdating = False
Set xA = [½LÂIªí!A1]: Cr = Array(1, 3, 6, 8, 10, 14, 13, 12)
For Each K In vD.keys
    R = vD(K).Count: N = N + 1
    ReDim Brr(1 To R + 1, 1 To 10)
    For i = 1 To R
        V = vD(K).keys()(i - 1)
        Brr(i + 1, 5) = "¤p­p¡G": Brr(i + 1, 8) = Brr(i, 8) + Arr(V, 12)
        For j = 1 To 8:  Brr(i, j) = Arr(V, Cr(j - 1)): Next
        Brr(i, 10) = "¤f¤H­û ¤f¦aÂI ¤f¥\¯à"
    Next i
    [½LÂIªí!A1:j3].Copy xA
    xA(2, 2) = K: xA(2, 10) = "­¶¦¸¡G" & N & "/" & vD.Count
    [½LÂIªí!a4:j4].Copy xA(4).Resize(R, 10)
    xA(4).Resize(R + 1, 10).Value = Brr
    Set xA = xA(R + 5): xA.PageBreak = xlPageBreakManual '³]©w¤À­¶½u
Next
MsgBox Timer - tm
End Sub

­ã´£³¡ªL

¦^´_ 23# shuo1125


Sub TEST_A1()
Dim Arr, Brr(1 To 999, 1 To 10), Crr, xD, i&, j%, T1$, T2$, TT$, R&, N&, xA As Range
tm = Timer
Call ²M°£
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([DATA!at1], [DATA!a65536].End(xlUp))
For i = 2 To UBound(Arr)
    If Arr(i, 46) <> "" Then GoTo i01
    T1 = Arr(i, 11): T2 = Arr(i, 6): TT = T1 & "|" & T2
    If T1 = "" Or T2 = "" Or xD(TT) > 0 Then GoTo i01
    Crr = xD(T1 & "/c"): xD(TT) = 1: xD(T1) = xD(T1) + 1
    If Not IsArray(Crr) Then Crr = Brr: N = N + 1: xD(N) = T1
    For j = 1 To 8
        Crr(xD(T1), j) = Arr(i, Array(1, 3, 6, 8, 10, 14, 13, 12)(j - 1))
    Next j
    Crr(xD(T1), 10) = "¤f¤H­û ¤f¦aÂI ¤f¥\¯à"
    xD(T1 & "/s") = xD(T1 & "/s") + Arr(i, 12) '¼Æ¶q¤p­p
    xD(T1 & "/c") = Crr
i01: Next i
'--------------------------------
Application.ScreenUpdating = False
Set xA = [½LÂIªí!A1]
For i = 1 To N
    If i > 1 Then [½LÂIªí!A1:j3].Copy xA
    T1 = xD(i): R = xD(T1): Crr = xD(T1 & "/c")
    xA(2, 2) = T1: xA(2, 10) = "­¶¦¸¡G" & i & "/" & N
    With xA(4).Resize(R, 10)
         [½LÂIªí!a4:j4].Copy .Cells
         .Value = Crr
    End With
    xA(R + 4, 5) = "¤p­p": xA(R + 4, 8) = xD(T1 & "/s")
    Set xA = xA(R + 5)
    xA.PageBreak = xlPageBreakManual '³]©w¤À­¶½u
Next i
Set xD = Nothing: Erase Arr, Brr, Crr
MsgBox Timer - tm
End Sub

shuo1125

¦^´_ 25# ­ã´£³¡ªL
­ã¤j¦n¡I

¥i¥H¤F¡AÁÂÁ§A¹ð¦¸¤£§[ªº§¹¾ã¦^µª..

·P¿E¤£ºÉ¡A¯¬±z¶¶¤ß~

shuo1125

¦^´_ 25# ­ã´£³¡ªL

­ã¤j¦n¡I
©êºp¦A°l°Ý...
½Ð°Ý­Y§Ú§Æ±æ§e²{µ²ªG¬°¨C­¶³£¦³©ïÀY¤Î¼ÐÃD¡A
µ{¦¡½X¸Ó¦p¦ó­×¥¿¡H
ªþ¤WªþÀɤιϤù(¦]¦³¾÷±K¸ê®Æ¬GªþÀɬ°½d¨Ò)
³Â·Ð¦b©âªÅ¨ó§U¤F¡A·P¿E¤£ºÉ¡I

­ã´£³¡ªL

¦^´_ 27# shuo1125

³oºØ¦C¦L¤èªk, «D±`³Â·Ð, ¥u¥H¥Ø«eªº¦C¦L³]©w¬°·Ç, ªí­º3¦æ+ªí¨­27¦æ--¬°¤@­¶,
­Y¦³ÅÜ°Ê, ¦Û¦æ¥h½Õ¾ã(¥ý½Õ¾ã¦C¦L³]©w, ¦A¥h§ìªí¨­¦æ¼Æ)
Xl0000261-1.rar (678.25 KB)

¤U¸ü¦¸¼Æ: 9

2022-2-13 14:49

¦C¦L³]©w¦pªG©ñ¦bµ{¦¡¤¤, ³t«×·|Åܱo«Ü¤[, ¦³®É¤[¨ì¹³·í¾÷, ³Ì¦nÁקK, À³¤â°Ê¨Æ¥ý³]¦n³]º¡~~Åýµ{¦¡¥u³B²z¼Æ¾Ú´N¦n
µ{¦¡¼W¥[¤TÄ滲§U(°õ¦æ«á¦Û°Ê²M°£)--§@¬°±Æ§Ç¤Îªí­º+­¶¦¸ªº³B²z, §_«h°õ¦æ¤ÓºC~~

shuo1125

¦^´_ 28# ­ã´£³¡ªL

­ã¤j¦n¡I
¨ä¹ê¬O«á¨Ó·Q¨ì¦b¹ê»Ú¦C¦L¯È¥»²MÂI®É¡A
¨S¦³©ïÀY¯uªº·|¤£¤Ó¦n¬Ý...¦ý¤S·Q¤£¥X¦p¦ó½Õ¾ã...
¨S·Q¨ì±zÀ°¦£¤§¾lÁÙ¯à·Q¨ìµ{¦¡¹B¦æ³t«×¤Î½Õ¾ã¤º®e¡A
¯u¬O¤Ó±M·~¤F¡A¦ýµ{¦¡½X§ÚÁٻݪá®É¶¡¬ã¨s¤@¤U...
­Y¦³°ÝÃD©¡®É¦A³Ò·Ð§A¤£§[«ü¾É¤F¡A
ÁÂÁ¡I

shuo1125

¦^´_ 28# ­ã´£³¡ªL
­ã¤j¦n¡I
¸g«e¬q±z«ü¾Éªºµ{¦¡½X¡A§Ú­×§ï¦¨²Å¦X¨Ï¥Î«á¹J¨ì¥H¤U°ÝÃD¡A¥i§_·Ð½Ð©âªÅ¨ó§U«ü¾É¦p¦ó­×¥¿...
°ÝÃDA¡÷B2=¹wºâÁ`ÃB-½ÐÁÊÁ`ÃB¡C
°ÝÃDB¡÷¤p­p³¡¤Àªº½ÐÁÊÁ`ÃB¤Î¥¼µ¹¥IÁ`ÃB¦³¿ìªk±o¥X¶Ü?(¦]½ÐÁʳæ·|¦³­«½Æ¤§ª¬ªp¡C)
©Î¬O¦³¨ä¥L«e½ú¥i©âªÅ«ü¾É¡K
¥H¤W¡A³Â·Ð¤j®a¤F¡I
­Y¤å¦r±Ô­z¤£²M¡A¥i¬ÝªþÀɤιÏÀÉ¡C

¤U¸ü (105.21 KB)

2022-9-20 11:05

Beta20220916.zip (53.89 KB)

¤U¸ü¦¸¼Æ: 2

2022-9-20 11:13