samwang

¦^´_ 10# ÅÚ½³ªd


¤£¦n·N«ä¡A¥i¯à»Ý­n»¡©ú¤@¤U±zªº»Ý¨D¡A¤£µM¥ú¬Ý±zªºµ{¦¡½X´N...¡A
¥t¥~¡A¦pªGµ{¦¡½XµL°ÝÃD¥B¥i¥\¯à¥¿±`¡A«á¾Ç»{¬°³o¼Ë´N¦n¡A²¦³º±z¦Û¤v¼gªº­n­×§ï©Î·s¼W³£®e©ö
§O¤H¼gªº­n­×§ï©Î·s¼W´N­nªá®É¶¡¬ã¨s¥B¤£¤@©wª¾¹D¦p¦ó¤U¤â
ÁÂÁÂ

samwang

¦^´_ 10# ÅÚ½³ªd

¥u¦³§@¤@¨ÇÀu¤Æ­×§ï¦Ó¤w¡A³W«h±ø¥ó³£¨SÅܧó¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub »s§@ñ¨ìªí1()
Dim a%, sht, i%, j%
Set sht = Worksheets("µn¿ý(2)")
With Sheets("list")
    For i = 13 To 27
        For j = 1 To 7
            R = .Range("d1").End(xlDown).Row + 1
            If sht.Cells(i, j) <> "" Then
                .Range("d" & R) = sht.Cells(i, j)
                .Range("e" & R) = sht.Range("b7")
                .Range("f" & R) = sht.Range("h7")
                .Range("g" & R) = sht.Range("d7")
                .Range("h" & R) = sht.Range("c7")
                .Range("i" & R) = sht.Range("g8")
                .Range("j" & R) = sht.Range("f10")
                .Range("k" & R) = sht.Range("e8")
                .Range("l" & R) = sht.Range("b8")
                .Range("n" & R) = "¦X®æ"
               If WorksheetFunction.CountIf(Sheets("¤H­û¦W³æ").Range("a:a"), .Range("d" & R)) > 0 Then '¤j©ó0ªí¥Ü¦³§ä¨ì³o¦W­û¤u
                    .Range("b" & R) = WorksheetFunction.VLookup(.Range("d" & R), Sheets("¤H­û¦W³æ").Range("a:i"), 9, 0)
                    .Range("c" & R) = WorksheetFunction.VLookup(.Range("d" & R), Sheets("¤H­û¦W³æ").Range("a:i"), 2, 0)
                Else                    
                    .Range("b" & R) = "¯Ê"
                    .Range("c" & R) = "¯Ê"
                End If
                .Range("a" & R) = .Range("c" & R) & .Range("e" & R) & .Range("l" & R)
                If WorksheetFunction.CountIf(.Range("a:a"), .Range("a" & R)) > 1 Then
                   .Range("p" & R) = "­«½Æ"
                End If
                R = R + 1
            End If
        Next
    Next
End With


a = sht.Range("I9")
Select Case a
     Case Is > 50
         With Sheets("ñ¨ì°O¿ýªí (3±i)")
            .Range("A11:h48").ClearContents
            .Range("b3") = sht.Range("d7")
            .Range("b4") = sht.Range("b8")
            .Range("h4") = sht.Range("f9")
            .Range("b6") = sht.Range("e8")
            .Range("b7") = sht.Range("b9")
            .Range("a11:a24") = sht.Range("k13:k26").Value
            .Range("h11:h24") = sht.Range("k27:k40").Value
            .Range("a25:a38") = sht.Range("k41:k54").Value
            .Range("h25:h38") = sht.Range("k55:k68").Value
            .Range("a39:a48") = sht.Range("k69:k78").Value
            .Range("h39:h48") = sht.Range("k79:k88").Value
        End With
     Case Is > 24
        With Sheets("ñ¨ì°O¿ýªí (2±i)")
            .Range("A11:h35").ClearContents
            .Range("b3") = sht.Range("d7")
            .Range("b4") = sht.Range("b8")
            .Range("h4") = sht.Range("f9")
            .Range("b6") = sht.Range("e8")
            .Range("b7") = sht.Range("b9")
            .Range("a11:a24") = sht.Range("k13:k26").Value
            .Range("h11:h24") = sht.Range("k27:k40").Value
            .Range("a25:a35") = sht.Range("k41:k51").Value
            .Range("h25:h35") = sht.Range("k52:k62").Value
         End With
     Case Is >= 0
        With Sheets("ñ¨ì°O¿ýªí (1±i)")
            .Range("A11:h22").ClearContents
            .Range("b3") = sht.Range("d7")
            .Range("b4") = sht.Range("b8")
            .Range("h4") = sht.Range("f9")
            .Range("b6") = sht.Range("e8")
            .Range("b7") = sht.Range("b9")
            .Range("a11:a22") = sht.Range("k13:k24").Value
            .Range("h11:h22") = sht.Range("k25:k36").Value
        End With
End Select
End Sub

­ã´£³¡ªL

µn¿ýªí¬O"XXX-111", ¤H­û¦W³æ¬O"111", «ç¹ï±o¤W???

ÅÚ½³ªd

¦^´_ 11# samwang

¤£¦n·N«ä§Ú¦b¼g¸Ô²Ó¤@ÂI¡A³Â·Ð±z¡AÁÂÁ¡C
¥Ø«e§@·~¬yµ{¬O¤@¡B¤H­û³ø¦Wor«ü©w¤H­û"µn¿ý(2)">>¤G¡Bñ¨ìªí»s§@"ñ¨ì°O¿ýªí (1±i)orñ¨ì°O¿ýªí (2±i)orñ¨ì°O¿ýªí (3±i)">>¤T¡Bµn°O¤H­û¤W½Ò¬ö¿ý"list"
²{¦b¥¨¶°¼gªº¤è¦¡:
¥ý±Nµn¿ý(2)¨BÆJ1Âà´«¦¨¨BÆJ2¦AÂà´«¦¨¨BÆJ3>>>µM«á¨Ì·Óµn¿ý(2)¨BÆJ3ªº¤H¼Æ¬D¿ï­n¶K¤WªºÃ±¨ìªí>>>¦A±Nµn¿ý(2)¨BÆJ2ªº¦W³æ¶K¨ìlist¸Ì>>>±N¦W¦r¶K¨ìlist¸Ì«á¦³¤@­Ó¥¨¶°·|¥h¤H­û¦W³æ§ì³o­Ó¤Hªº¤u¸¹»P³¡ªù

°ÝÃD¤@¡B¥i¥H±N¦A±Nµn¿ý(2)¨BÆJ2ªº¦W³æ¶K¨ìlist¸Ì§ï¦¨¥Ñ¦A±Nµn¿ý(2)¨BÆJ3ªº¦W³æ¶K¨ìlist¸Ì¶Ü¡H
¥ý±Nµn¿ý(2)¨BÆJ1Âà´«¦¨¨BÆJ2¦AÂà´«¦¨¨BÆJ3>>>µM«á¨Ì·Óµn¿ý(2)¨BÆJ3ªº¤H¼Æ¬D¿ï­n¶K¤WªºÃ±¨ìªí>>>¦A±Nµn¿ý(2)¨BÆJ3ªº¦W³æ¶K¨ìlist¸Ì

°ÝÃD¤G¡B¦pªG±N¦³³¡ªùªº©m¦Wª½±µ¶K¤Wlist¨º«á­±¨º­Ó¥¨¶°´NµLªk§ì³o­Ó¤Hªº¤u¸¹»P³¡ªù
Á|¨ÒXXX³¡ªù-³¯00¥i¥H¥u§ì³¯00¶K¤W´N¦n¶Ü¡H

°ÝÃD¤T¡B¦blistªº³¡¤À·|¨Ì·Ó§ì¹L¥hªº©m¦W¥h§ì¨ú¤H­û¤u¸¹»P³¡ªù¡A¥Ø«e¦b¥¨¶°¸Ì¥Îªº¬Ovlookup³o­Ó¨ç¼Æ¡A¦ý´N­n¦b¤H­û¦W³æ¥ªÃä­«·s¶K¤@¦¸©m¦W¤~¯à§ì¨ú¥kÃä¸ê®Æ¡A
¬O§_¦³¨ä¥L¨ç¼Æ¯à«ü©w§ì¥kÃä©Î¥ªÃä­þ¤@Ä檺¸ê®Æ©O¡H

ÅÚ½³ªd

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

  ´N¬O³o­Ó¦³ÂI§xÂZ¡A¦]¬°¦pªG¬O¤£¦P³¡ªù¤@°_°Ñ¥[¡A¥DºÞ·|§Æ±æ¥[¤W³¡ªù
  ¦ý§ì¹L¥h«á´NµLªk¤ñ¹ï¥¿½T¡A©Ò¥H¤~·Q»¡¦³¨S¦³¿ìªk¥i¥H¦b¶K¤Wlist®É¥u§ì¨ú"-"¤§«áªº¦W¤l
  ¥Ø«e³£¬Oµ¥¶K¤W«á¦A¥h¤â°Ê­×§ï»P§ì¨ú¸ê®Æ

­ã´£³¡ªL

~~ñ¨ì°O¿ýªí (2±i)~~
¥´¦L­¶¬O¥Ñ¤W¦Ó¤U, ¥ý¥ª«á¥k,
­Y­è¦n­Ó¼Æ¦b25~28­Ó¤§¶¡,
²Ä1­¶14¦æ: ¥ª1~14, ¥k15~28,
²Ä2­¶12¦æ, ¬OªÅ¥Õªº!!!

­ã´£³¡ªL

¥ý¤£ºÞñ¨ì­¶¼Æ¦]¼W­¶¦Ó¦³ªÅ¥Õ­¶ªº°ÝÃD
Xl0000798.rar (34.65 KB)

¤U¸ü¦¸¼Æ: 4

2021-11-6 10:39

1)¶×¤Jlist¤Î¸ü¤Jñ¨ìªí, ¤À¶}³B²z, ­Y­n¤@¦¸¨ì¦ì, ¦Û¤v¦A§Ë­Óµ{§Ç+call
2)list¤ñ¹ï­«ÂÐ, À³¬O"­û½s+¤é´Á"¤~¹ï§a!  ­Y¦³°ÝÃD¦Û¦æ½Õ¾ã
3)ñ¨ìªí¥u¥Î¤@±i¤u§@ªí, ¦Û°Ê¨Ì­Ó¼Æ¼W¥[­¶¼Æ

ÅÚ½³ªd

¦^´_ 3# samwang


±z¦n¡A½Ð°Ý¦pªG­n¸õ¹L¨BÆJ1ª½±µ±N¦W³æ¶K¦b¨BÆJ2¶K¤W¡A
¦A¥Ñ¨BÆJ2ªº¶K¨ì¨BÆJ3§Ú¸Ó¦p¦ó­×§ï©O¡H

Sub test2()
Dim Arr, Brr(1 To 1000, 1 To 3), Crr()
Dim i&, j&, n%, s%, m%, R%

Arr = [n13].CurrentRegion  '¨Ó·½¸ê®Æ1
If Arr <> "" Then
For j = 1 To UBound(Arr, 2): For i = 1 To UBound(Arr)
    If Arr(i, j) <> "" Then
        If n < 7 Then n = n + 1 Else n = 1
        s = s + 1: Brr(s, 1) = n
        Brr(s, 2) = Arr(i, j): Brr(s, 3) = s
    End If
Next i: Next j
[j13].Resize(s, 3) = Brr   'Âà¶K¨ì2
R = Int(s / 7) + 1: ReDim Crr(1 To R, 1 To 7): k = 1
For i = 1 To s
    For j = 1 To 7
        m = m + 1: If m > s Then GoTo 99
        Crr(i, j) = Brr(m, 2)
    Next
99: Next i
Range("a13").Resize(R, 7) = Crr  'Âà¶K¨ì3


Else

Range("a13").Resize(R, 7) = Crr  'Âà¶K¨ì3

End If
End Sub

samwang

¦^´_  samwang


±z¦n¡A½Ð°Ý¦pªG­n¸õ¹L¨BÆJ1ª½±µ±N¦W³æ¶K¦b¨BÆJ2¶K¤W¡A
¦A¥Ñ¨BÆJ2ªº¶K¨ì¨BÆJ3§Ú¸Ó¦p¦ó ...
ÅÚ½³ªd µoªí©ó 2021-11-17 10:54

¤£¦n·N«ä¡A¤£¤Ó¯à²z¸Ñ¡A½Ðªþ¤WÀÉ»¡©ú¡AÁÂÁ¡C

ÅÚ½³ªd

¦^´_ 19# samwang


    ¤W¦¸¼gªº¬O±N¸ê®Æ¶K¤W¨BÆJ1>¨BÆJ2>¨BÆJ3
    ­Y¸ê®Æ¬Oª½±µ¶K¤W¨BÆJ2¡A¦A¥Ñ¨BÆJ2Âন¨BÆJ3©O¡H