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

[µo°Ý] ²³æ²Õ¦X°ÝÃD¡C

[µo°Ý] ²³æ²Õ¦X°ÝÃD¡C

¥»©«³Ì«á¥Ñ stephenlee ©ó 2021-6-2 11:44 ½s¿è

ªþ¥óªí,¦p¦ó¥Î FÄæ"Line"¤ÎQÄæ"CTN" ¨Ó¦Û°Ê¤ÀÃþ¥X¬O¥Ñ¨º­ÓLine ²Õ¦X¦¨, XÄæ "line group" ¬O±o¥XXÄ檺µ²ªG,
¦p¦ó°µ¹³XÄ樺¼Ëªºµ²ªG, X Äæ¬O§Ú­n¨D±o¥Xªºµ²ªG,FÄæ Line ¸ê®Æ¦³¦h¦³¤Ö, ­n®Ú¾ÚQÄæ¨Ó¤ÀLine ¬O¥Ñ¦h¤Ö²Õ¦¨¡C
ÁÂÁÂ

²Õ¦X.zip (7.33 KB)

¦^´_ 1# stephenlee


¤£¦n·N«ä¡A¤£¤Ó¯à²z¸ÑXÄ檺µ²ªG¦p¦ó²£¥X¡A¥i§_½Ð§A¦A¸Ô²Ó»¡©ú³W«h¡A·PÁ¡C

TOP

¦^´_  stephenlee


¤£¦n·N«ä¡A¤£¤Ó¯à²z¸ÑXÄ檺µ²ªG¦p¦ó²£¥X¡A¥i§_½Ð§A¦A¸Ô²Ó»¡©ú³W«h¡A·PÁ¡C
samwang µoªí©ó 2021-6-2 14:28



   ³Â·Ð§A, ¨ä¹êCTN ¬O½c ½s¸¹  1/8 ¥Nªí²Ä¤@½c,¦ÓXÄæ  1/8 ¥Nªí ¦³1-12 Line ¦s¦b, ©Ò¥H¦b²Ä¤@¦æ¥´¤W 1-12,
¨ä¥Lªº¤]¬O³o¼Ë¡C,§Ú·Q±N¸ê®Æ¶K¤W«á,¦Û°Ê·|±o¥XX Ä檺µ²ªG¡CÁÂÁÂ

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 3# stephenlee

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [Q65536].End(3))
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
    If Not xD.Exists(Arr(i, 12) & "") Then
        xD(Arr(i, 12) & "") = ""
        For i2 = i To UBound(Arr)
            If xD.Exists(Arr(i2, 12) & "") Then N = N + 1
        Next
        Cells(i, 24) = Arr(i, 1) & "~" & N: N = 0
    End If
Next
End Sub

TOP

¦^´_  stephenlee

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [ ...
samwang µoªí©ó 2021-6-2 16:08



«D±`·PÁ¤j¤j,¤S¬O»Õ¤U¦A¦¸À°¦£¡C
¤£¹L¦³¤@­Ó³¡¥÷ÁÙ®t¤@ÂI,±æ»Õ¤U¬Ý¬O§_¯àÀ°¦£¸Ñ¨M¡C
·PÁ§Aªá¤F¤Ó¦h®É¶¡À°§Ú¬ã¨s³o­Ó¡C

¨Ï¥Î¤FVBA «ü¥Ü«á,¨Ò¦p CTN  5/8  ¥¿½Tªº²Õ¦XÀ³¸Ó¬O 5-15, ¦ýÅã¥Ü¤F 5-11 ¡C²Ä 8/8 ¤]¬O ¥¿½TÀ³¸Ó¬O5-15 ¡C ¦ý¤]Åã¥Ü 5-11

¯à¤£¯à°µ¨ì®Ú¾ÚFÄæ©MQÄæ ªº¸ê®Æ¦h¤Ö¨Ó°µ¥X²Õ¦X±Æ¦C, ´N¬OFÄæ©MQÄæ³£¬O¦³¾÷·|¦h©M¤Ö,­n®Ú¾Ú±¡ªp±Æ¦C,°µªk¬O¤@¼Ëªº,ÁÂÁ¤F¡C

TOP

¦^´_ 6# stephenlee

¤£¦n·N«ä¨Sª`·N¨ì¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test2()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [Q65536].End(3))
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
    If Not xD.Exists(Arr(i, 12) & "") Then
        xD(Arr(i, 12) & "") = i
        For i2 = i To UBound(Arr)
            N = xD(Arr(i2, 12) & ""): If N = 0 Then Exit For
        Next
        Cells(i, 24) = Arr(i, 1) & "~" & Arr(i2 - 1, 1)
    End If
Next
End Sub

TOP

¦^´_  stephenlee

¤£¦n·N«ä¨Sª`·N¨ì¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test2()
Dim Arr, xD, i%, i2&, N% ...
samwang µoªí©ó 2021-6-3 15:56



    ³Â·Ð§A¤~¹ï,¥Î³Ì·s«ü¥Ü,µoı 1/8 ·|¥X²{µ²ªG,¦ý 2/8 ´N¨S¦³¥ô¦ó¸ê®Æ,  ·|¹j¤@­Ó¤~¥X²{µ²ªG,­n¦A³Â·Ð§A¬Ý¬Ý¡CÁÂÁÂ

TOP

¦^´_ 8# stephenlee

½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test3()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [Q65536].End(3))
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
    If Not xD.Exists(Arr(i, 12) & "") Then
        xD(Arr(i, 12) & "") = i
        For i2 = i To UBound(Arr)
           If Not xD.Exists(Arr(i2, 12) & "") Then Exit For
        Next
        Cells(i, 24) = Arr(i, 1) & "~" & Arr(i2 - 1, 1)
    End If
Next
End Sub

TOP

¦^´_  stephenlee

½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test3()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1] ...
samwang µoªí©ó 2021-6-4 18:04



    ¥H¤W«ü¥O§¹¥þ²Å¦X­n¨D,¤Ó·PÁ¤j¤jÀ°¤F§Ú³o»ò¦h¦£,¤£¦n·N«ä­n§Aªá®É¶¡À°§Ú¬ã¨s¡C«D±`·PÁ¡C  ¦b¦¹ÁÂÁ¤F¡C

¤£ª¾¹D¯à¤£¯àÀ°§Ú³Ì«á¤@­Ó°ÝÃD,³o­Ó²³æ¤@ÂI¡C

Àɮפº A Äæ¬O¸ê®Æ, BÄæ¬O ¹Bºâµ²ªG¡C

­n¨D¬O ·í AÄæÀx¦s®æ ¦b -  «e©M«á¬O¤@¼Ëªº¸Ü, ¥u«O¯d ²Ä¤@­Ó - «eªº¼Æ¦r

¦pªG¤£¤@¼Ë,¨º´N¤£¥ÎÅÜ¡C AÄ檺¸ê®Æ¦³¦h¦³¤Ö¡C

AÄ欰 ¸ê®Æ,B Ä欰­n¨D¿é¥X«áªºµ²ªG,¸÷Á¤F¡C

©â¼Æ¦r.zip (6.79 KB)

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD