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

¸ó¤u§@ªí¤ñ¹ï«e20²Õ

¸ó¤u§@ªí¤ñ¹ï«e20²Õ

½Ð±Ð  ¸ó¤u§@ªí¤ñ¹ï«e20²Õ
»¡©ú¦pªþ¥ó¤º  ·PÁ¤j¤j°ª©ú «e20¤ñ¹ï(3).rar (14.88 KB)

¦^´_ 4# samwang

ÁÂÁ¤j¤jÃö·Ó..§Ú´ú¸Õ¬Ý¬Ý..·P¿E

TOP

¦^´_  samwang

¤u§@¢±¡@     9 16 17 35
¤ñ¹ï¡@¤u§@¢°¡@®Ú¾Ú¢ÓÄ檺¢°¡@¤W±À¢±¢¯²Õ¡×¢Õ¢µ¡G¢Ø¢±¢´
¦p¦³ ...
duck_simon µoªí©ó 2022-5-4 18:31


¤£¦n·N«ä¨ç¼Æ¤£·|¡AVBA¦p¤U½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, T$, n%, n1%, i%, j%
Set xD = CreateObject("Scripting.Dictionary")
With Sheets(2)
    Arr = .[c27:f27]
    For j = 1 To 4: T = Arr(1, j): xD(T) = 1: Next
End With
With Sheets(1)
    Arr = .Range("g25").CurrentRegion
    For i = UBound(Arr) To 1 Step -1
        n = n + 1: If n > 20 Then GoTo 99
        For j = 1 To 4
            T = Arr(i, j): If xD(T) = 1 Then n1 = n1 + 1
            If n1 >= 3 Then Sheets(2).[g27] = "X": Exit Sub
        Next
        n1 = 0
99: Next
End With
End Sub

TOP

¥»©«³Ì«á¥Ñ duck_simon ©ó 2022-5-4 18:38 ½s¿è

¦^´_ 2# samwang

¤u§@¢±¡@     9 16 17 35
¤ñ¹ï¡@¤u§@¢°¡@®Ú¾Ú¢ÓÄ檺¢°¡@¤W±À¢±¢¯²Õ¡×¢Õ¢µ¡G¢Ø¢±¢´
¦p¦³¬Û¦P­Ó¼Æ¢²­Ó¥H¤W¡DÈТæÈС@§_«h¡@ÈÐÈС@§_«h¡@ÈÐÈС@

©êºp!ªí¹F¯à¤O¤£¦n..½Ð­ì½Ì..
§ï¤F¤º¤å»¡©ú...¦pÀ£ÁYÀÉ
«e20¤ñ¹ï(3).rar (14.92 KB)

TOP

½Ð±Ð  ¸ó¤u§@ªí¤ñ¹ï«e20²Õ
»¡©ú¦pªþ¥ó¤º  ·PÁ¤j¤j°ª©ú
duck_simon µoªí©ó 2022-5-4 13:24


¦n²`¶ø¬Ý¤£À´»Ý¨D¡A¤è«K¦A»¡©ú¸Ô²Ó¤@ÂI§a?ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD