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

[µo°Ý] ½Ð±Ð ¥H¦r¨å§ì¨ú²Å¦X±ø¥ó¸ê®Æ«á¿é¥X

¥»©«³Ì«á¥Ñ samwang ©ó 2021-11-25 10:25 ½s¿è

¦^´_ 8# shuo1125

¥t¥~¦³´X­Ó°ÝÃD·Q½Ð°Ý
¤@¡BT1 = T & "|" & Arr(i, 6)
      >³o¤@¬q¬O§PÂ_¬O§_¦³²Å¦X°]²£½s¸¹¶Ü? >> ­Y¹J¨ì°]²£½s¸¹¬Û¦PªÌ¡A¥u¦C¥XÀY¤@µ§¡C
        "|"³o­Óªº¥Î·N¬O..? >> ¦êÁp2­Ó­È¤¤¶¡ªº²Å¸¹¡A¥i´«¦¨¨ä¥¦²Å¸¹¬Ò¥i
¤G¡BxD1(T1) = 1: xD1(T & "/1") = xD1(T & "/1") + Arr(i, 14)
      >³o¬q¥Îªk¤Ó°ª²`..¯à°÷¸ÑÄÀ¤@¤U¶Ü?  >> ¤p°O¼Æ¶q
¤T¡B±N¸ê®Æ¦s¤JArr°}¦C¤¤®É¡A¦¹®ÉArr¬Oµø¬°ª«¥ó¶Ü?¦r¨åxD¤]¬Oª«¥ó¶Ü?¦³ÂIµLªk²z¸Ñ...
       >>¤£¦n·N«ä¡A¤£¤Óª¾¹D¨º¨Ç©w¸q¥Îµü¡A«á¾Ç¬O¥b¸ô¥X®aªº¡A¬Ý¤Fºô¤W«e½ú¼gªk¡A´N¤@¼Ëµe¸¬Äª

TOP

¦^´_ 11# samwang

·PÁÂsamwang¤j¤jÀ°¦£¸Ñµª

¯à²z¸Ñ¨Ã¥Î©ó¹ê¨Ò¤w¬O§Ú©Ò¤£¤Î⋯
¦A¦¸·PÁ±zªºÀ°¦£¡I¡I

TOP

­Y¸ê®Æ¦h, ¥B¨C©Ò¦b¦aªº¶µ¥Ø¤£¶W¹L999ºØ, ¥i°Ñ¦Ò¦¹¤èªk:
©ñ¦b¦P¤@­¶, ¨C©Ò¦b¦a©³¤U¥["¤À­¶½u", ¨Ï¥Î¹wÄý§Y¥i©ú¥Õ:
Xl0000031-1.rar (50.32 KB)

TOP

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

­ã¤j¦n¡I
¦]¬Y¨Ç¦]¯À¼È®ÉµLªk°µ´ú¸Õ⋯
¤]·PÁ±zªá¶Oºë¤O¤Î®É¶¡À°¦£
·P¿E¤£ºÉ¡I

TOP

¦Aµo¤@ª©--¯Â¿z¿ï½Æ»s¦Ü¦U¤Àªí:
Xl0000031-2.rar (55.71 KB)

TOP

¤Öºâ¤@¦æ:
.Rows(1).Resize(.Rows.Count ).Copy xS.[a4]
§ï¦¨
.Rows(2).Resize(.Rows.Count - 1).Copy xS.[a4]

TOP

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

­ã¤j¦n¡I
¸g´ú¸Õ«á¨âºØ¤è¦¡³£µL»~¡A
ÁÙ¯S¦aªá®É¶¡´£¨Ñ¤£¦P¤èªk¡A
¤Ó·PÁ§A¤F¡C

TOP

¥»©«³Ì«á¥Ñ shuo1125 ©ó 2021-12-2 22:23 ½s¿è

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

­ã¤j¦n¡I
¤£¦n·N«ä¡A¬ðµM·Q¨ì­Ó°ÝÃD¡A¦pªG§ÚATÄæ¥u·Q§ìªÅ¥Õ¸ê®Æ¡A³o¼Ë­n¦p¦ó¦h¼g±ø¥ó¶i¥h...
(¦]¸ÓÄæ·|¦³S=¾P°â R=³ø¼o O=¨ä¥Lµ¥¦r½X¡A¦ý³o³¡¤À­n±Æ°£)

ªþ¤W¹Ï

¥i¥H¦A³Â·Ð©âªÅÀ°¦£¸Ñµª¶Ü?

ÁÂÁ¡C

TOP

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

TOP

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

­ã¤j¦n¡I

·PÁ±zªº¸Ñµª»PµªÂСA
´ú¸Õ¤wOK¡C

¯¬±z¶¶¤ß~

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD