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

[µo°Ý] ¦C¥X§ó¦hªº¹ïÀ³¸ê®Æ

³oºØ¤å¦r¤ñ¹ï¤Ó¶O©P§é,
¬Ý¬Ý¬O§_¦p¤U³W«h, ­Y¦³¨ä¥¦, ¦A¸É¥R
©î½X­ì«h.rar (2.37 KB)

¥i¯à¨SªÅÀ°¦£¼g~~

TOP

¦^´_ °a¤ªºµ §Aªºµ{¦¡¤£ª¾¬O¹q¸£¤ÓºCÁÙ¬O...? ·í±¼¤F

¦^´_n7822123
µ{¦¡¯uªº¬O²LÅã©öÀ´¶W¯Å¤Jªù

©w¸q»P­×§ï¯uªº«Ü¤è«K¡A¤]Åý§Ú¤F¸Ñ¨ì­ì¨Ó¥i¥H©w¸q¥i¥H¨ì¦p¦¹²Ó¿°Â²³æ

µ{¦¡¤w¹F¨ì»Ý¨D¡C

¦^´_­ã´£³¡ªL
½s½X­ì«h¥¿½T¡AªüÀsªºµ{¦¡¤w²Å¦X»Ý¨D¡A¦p»Ý¨ä¥¦©w¸q¡A¤]¯à¦Û¦æ­×§ï¥[¤J·sªº½s½X­ì«h

¸ê®Æ³B²z¤]¤£¬O·Q­n¤@¨Bµn¤Ñ¡A¯à¤j¤j´î¤Ö¤ÏÂЪº°Ê§@¡AÁYµu®É¶¡´N«Ü´Î¤F¡Aı±o¦³¾Ç¨ìªF¦è

TOP

¦^´_ 12# ikboy

·PÁÂikboy¦^´_

¨Ò
6219-1¥¼±N6219¦C¥X
8011«h¦C¥X¿ù»~ªºA8011

¨S¤°»ò¤j¿ù»~¡A¥u¦]½s½X­ì«h½ÆÂø¡Aµ{¦¡®ÄªG¥i¥H±µ¨ü

¬ã¨sµ{¦¡¤¤

ªüÀsµ{¦¡¤w¹F¨ì»Ý¨D·PÁÂÀ°¦£¡C

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-22 12:31 ½s¿è

¦^´_ 23# qaqa3296
§Ú¥Î¥¿±`£« ¥u¬O³o³t«×¤ñ¸ûºC ¨S¦³¹³¤j¤j­Ì¬O¦b°O¾ÐÅé¸Ì­±°õ¦æªº§Ö  ÁÙ¬O ³o¤£¬O§A­nªº?  


javascript:;


javascript:;

javascript:;

javascript:;

javascript:;
2.png
3png.png
4.png
1.png

¦C¥X§ó¦h¸ê®Æ.rar (19.82 KB)

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-8-22 15:05 ½s¿è

´ú¸Õ¸ê®Æ¤Ó¤Ö, µLªk¦h°µÅçÃÒ:
Sub TEST_V1()
Dim Arr, A, xD, i&, j%, N&, T$, V%
[¦¨ªG!A2:D6000].ClearContents
Set xD = CreateObject("scripting.dictionary")
Arr = Range([¥Ø¼Ð!C1], [¥Ø¼Ð!A65536].End(xlUp))
For i = 2 To UBound(Arr)
    T = Trim(Arr(i, 1)): If T <> "" Then xD(T) = 1
    T = ©î¸Ñ½s¸¹(Trim(Arr(i, 3))): If T = "" Then GoTo 101
    For Each A In Split(T, "/"): xD(A & "") = 1: Next
101: Next i
Arr = Range([®w¦s!D1], [®w¦s!A65536].End(xlUp))
For i = 2 To UBound(Arr)
    If xD("|" & i) > 0 Then GoTo 102 '¦pªG¸Ó¦æ¤w³Q´£¨ú¹L, ²¤¹L, ÁקK­«Âд£¨ú
    T = Trim(Arr(i, 1)): If xD(T) > 0 Then V = 1: GoTo 999 '[«~¸¹]¬Û²Å§Yª½±µ´£¨ú
    T = Trim(Arr(i, 3)): If T = "" Then GoTo 102
    T = ©î¸Ñ½s¸¹(T) '©î¸Ñ[³W®æ]
    For Each A In Split(T, "/")
        If xD(A & "") > 0 Then V = 1: Exit For
    Next
999:
   If V = 0 Then GoTo 102
   N = N + 1: V = 0
   For j = 1 To 4: Arr(N, j) = Trim(Arr(i, j)): Next
   xD("|" & i) = 1 '¤w´£¨ú¦æ¸¹¦ì¸m,°O¿ý¤J¦r¨å
102: Next i
If N > 0 Then [¦¨ªG!A2:D2].Resize(N) = Arr
End Sub

'==========================================
Function ©î¸Ñ½s¸¹(xS$) As String
Dim TT$, j%, ST$
If xS = "" Then Exit Function
If xS & "-" Like "####[-.]*" Then TT = Left(xS, 4)
If xS & "A" Like "####[A-Z]*" Then TT = Left(xS, 4)
If xS & "-" Like "?????[-.]*" Then TT = Left(xS, 5)
If xS & "-" Like "???-????[-.]*" Then TT = Left(xS, 8)
xS = xS & "-"
For j = Len(TT) + 2 To Len(xS)
    If Mid(xS, j, 1) Like "[-.]" Then TT = Left(xS, j - 1) & "/" & TT
Next j
©î¸Ñ½s¸¹ = TT
End Function


'¥þ³¡¶K¤J¼Ò²Õ===============================================

TOP

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

µ{¦¡°õ¦æ¹L«á¡A¥Ø¼Ð³W®æ¤º¥²¶·ÄY®æ¿í·Ó½s½X­ì«h¡A¥u­n¦³¤£²Å¦X´N·|¦C¥X¤j¶q¤£²Å¦X½s½X­ì«hªº¸ê®Æ? ¤ÓÄY­V¤F!?

ªþ¤W´ú¸ÕÀÉ®×

¦^´_°a¤ªºµ

´£¨Ñªº¼ÒÀÀÀÉ¥u¥Î©ó´ú¸Õ´M§ä¡C
¹ê»Ú³W®æ¤º¦³¤j¶qªº¸ê°T»P¶µ¥Ø(¨S¦³³W«ßªº«¬¸¹¤å¦r»¡©úµ¥µ¥...§â³W®æ·í³Æµù¥´!?)

§Q¥Î½s½X­ì«h±q¤¤´£¨ú§Ú­nªº°T®§¶µ¥Ø¡C©Ò¥H§Ú¤]¤£ª¾­þ¸Ì¥X¿ù?

¦C¥X§ó¦h¸ê®ÆV6.zip (25.97 KB)

TOP

Sub TEST_V1()
Dim Arr, A, xD, i&, j%, N&, T$, V%
[¦¨ªG!A2:D6000].ClearContents
Set xD = CreateObject("scripting.dictionary")
Arr = Range([¥Ø¼Ð!C1], [¥Ø¼Ð!A65536].End(xlUp))
For i = 2 To UBound(Arr)
    T = Trim(Arr(i, 1)): If T <> "" Then xD(T) = 1
    T = ©î¸Ñ½s¸¹(Trim(Arr(i, 3))): If T = "" Then GoTo 101
    For Each A In Split(T, "/"): xD(A & "") = 1: Next
101: Next i
Arr = Range([®w¦s!D1], [®w¦s!A65536].End(xlUp))
For i = 2 To UBound(Arr)
    If xD("|" & i) > 0 Then GoTo 102 '¦pªG¸Ó¦æ¤w³Q´£¨ú¹L, ²¤¹L, ÁקK­«Âд£¨ú
    T = Trim(Arr(i, 1)): If Val(xD(T)) > 0 Then V = 1: GoTo 999 '[«~¸¹]¬Û²Å§Yª½±µ´£¨ú
    T = Trim(Arr(i, 3)): If T = "" Then GoTo 102
    T = ©î¸Ñ½s¸¹(T) '©î¸Ñ[³W®æ]
    For Each A In Split(T, "/")
        If A <> "" And Val(xD(A & "")) > 0 Then V = 1: Exit For
    Next
999:
   If V = 0 Then GoTo 102
   N = N + 1: V = 0
   For j = 1 To 4: Arr(N, j) = Trim(Arr(i, j)): Next
   xD("|" & i) = 1 '¤w´£¨ú¦æ¸¹¦ì¸m,°O¿ý¤J¦r¨å
102: Next i
If N > 0 Then [¦¨ªG!A2:D2].Resize(N) = Arr
End Sub

'==========================================
Function ©î¸Ñ½s¸¹(xS$) As String
Dim TT$, j%, ST$
If xS = "" Then Exit Function
If Left(xS, 4) Like "####" Then TT = Left(xS, 4)
If Left(xS, 5) Like "####[A-Z]" Then TT = Left(xS, 5) & "/" & TT
If Left(xS, 5) Like "[A-Z]####" Then TT = Left(xS, 5) & "/" & TT
If Left(xS, 8) Like "???-????" Then TT = Left(xS, 8) & "/" & TT
xS = xS & "-"
For j = Len(TT) + 2 To Len(xS)
    If Mid(xS, j, 1) Like "[-.(]" Then TT = Left(xS, j - 1) & "/" & TT
Next j
©î¸Ñ½s¸¹ = TT
End Function

¼Ò½k¤¤¤S¤£¯à¶Ã§ì, Ãø~~~

TOP

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

µ{¦¡¦C¥Xªº¸ê®Æ«D±`§¹¾ã¡A·PÁ­㴣³¡ªL´£¨Ñ¥t¥~ªº¼gªk¨Ñ¤j®a¾Ç²ß

TOP

¦^´_ 26# qaqa3296

§Ú¬O¥ÎÁä¦r¿z¿ïªº¤è¦¡  ¬Ý°_¨Óµ²ªG¬O¤@¼Ëªº  ¦ý§Ú¤£ª¾¹D¬O¤£¬O§A­n¨Dªº  
¤£¹L·Ç¤j¤w¸g¹F¨ì§Aªº¥Øªº  ¤]µ¹¤F§Ú¾Ç²ßªº¾÷·|
  


javascript:;

¦C¥X§ó¦h¸ê®ÆV6001.rar (31.01 KB)

TOP

¦^´_ 29# °a¤ªºµ

1.¬Ý§A¦C¥Xªº¸ê®Æ§A¸Ó¤£·|...

¥Ø¼Ð«~¦W¥´¿ù¦r´N·|¦C¥X¸ê®Æ¯Ê¤Ö¡C®w¦s¤º«~¦W¦³­«½Æ´N·|¦h¦C¸ê®Æ? ³o...

¤W­±¦³¸É¥R»¡©ú¡G¤£­n¥H«~¦W¬°°ò·Ç¬d¸ß¡A­«½Æ»P¦h©ó¸ê®Æ¤Ó¦h¨S¦³°Ñ¦Ò»ù­È

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD