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

½Ð±Ð°}¦C¤ñ¹ï¶W¹L3­Ó

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-7 10:52 ½s¿è

¦^´_ 9# duck_simon


    #5¼Ó½d¨Ò»P#1½d¨Ò¬Û¦P,¬O¤£¬O¶Ç¿ùÀÉ??µLªk§ó¤F¸Ñ«e½úªº²~ÀV¦b­þ¸Ì!
«Øij¤W¶Ç§ó¶Kªñ»Ý¨Dªº½d¨Ò
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 10# hcm19522


    ÁÂÁ«e½ú,¤½¦¡«ÜÃø¾Ç,ºN¯Á¤¤

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 10# hcm19522

·PÁ¤j¤j..¥ý¨Ó¬ã¨s¤@¤U.. ÁÂÁÂ

TOP

¦^´_ 10# hcm19522


  ³ø§i¤j¤j:  ¦¨¥\¥X¨Ó¤F.  «¢«¢. ³o¥y¸Ü¦³ÂI   «¢«¢:) «ç»ò¦¨¥\ªº.§Ú¤]¤£ª¾¹D..¸U¤À·PÁÂ

TOP

¦^´_ 10# hcm19522


ÁöµM¨ç¦¡¥X¨Ó¤F..¤£¥X²{#VALUE!  .. ¦ýÅçÃÒµ²ªGÁÙ¬O¦³¿ù..

TOP

¦^´_ 12# Andy2483


ÁÂÁ¤j¤j¸Ñ»¡..§ÚºCºC¬ã¨s¤¤..¥i§_½Ð¤j¤jÅçÃÒ?

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2023-3-7 22:40 ½s¿è

¤@¼ÓªþÀÉ//¥u¾A¥Î¯Â¼Æ­È
=IF(OR(MMULT(1-ISERROR(RANK(B4:J12,B20:F20)),ROW(B4:B12)^0)>2),"X","")

Xl0000587.rar (4.17 KB)

TOP

¦^´_  duck_simon


    #5¼Ó½d¨Ò»P#1½d¨Ò¬Û¦P,¬O¤£¬O¶Ç¿ùÀÉ??µLªk§ó¤F¸Ñ«e½úªº²~ÀV¦b­þ¸Ì!
«Øij¤W¶Ç§ó ...
Andy2483 µoªí©ó 2023-3-7 10:40



   ¬Oªº..¤@­Ó½d¨ÒÀÉ(À£ÁY)..¤@­Ó¬O¹ê»ÚÀ³¥ÎÀÉ

TOP

¤@¼ÓªþÀÉ//¥u¾A¥Î¯Â¼Æ­È
=IF(OR(MMULT(1-ISERROR(RANK(B4:J12,B20:F20)),ROW(B4:B12)^0)>2),"X","")
­ã´£³¡ªL µoªí©ó 2023-3-7 22:39



   ·PÁ´£³¡ªL ¥ý¶i..¥N¤J«á²£¥Í#VALUE...
IF(OR(MMULT(1-ISERROR(RANK($BH$1:$BR$13,N18:S18)),ROW($2:$12)^0)>2),"X","")
«á§ï¦¨ ROW(B4:B12)=ROW(B2:B12)    ¤]ÅçÃÒ¦¨¥\
¯u¬O©Ç²§..¨¯­W¤T¦ì¥ý¶i..

TOP

¦^´_ 18# duck_simon


    ÁÂÁ«e½ú¦^´_
«á¾ÇÄ~Äò¾Ç²ßVBA¤è®×ªº¤ß±o¦p¤U,½Ð«e½ú°Ñ¦Ò
°}¦C¤ñ¹ïA_20230308_3.zip (18.92 KB)

°õ¦æµ²ªG:


Option Explicit
Sub TEST_2()
Call ¶Ã¼Æ­«¸m

Dim Brr, xR As Range, i&, j&, A, B, V, Y
Set Y = CreateObject("Scripting.Dictionary")
Brr = [A1:J12]: [A1:J12].Interior.ColorIndex = xlNone: [K20] = ""
For Each xR In [B20:F20]
   Y(xR & "/") = xR.Interior.ColorIndex: V = V & "/" & xR
Next
For i = 4 To UBound(Brr)
i01:
   For j = 2 To UBound(Brr, 2)
      If B = 1 Then
         Cells(i, j).Interior.ColorIndex = Y(Cells(i, j) & "/")
         ElseIf InStr(V & "/", "/" & Brr(i, j) & "/") Then
            If Y("|") < 2 Then
               Y("|") = Y("|") + 1
               Else
                  B = 1: [K20] = "X": GoTo i01
            End If
      End If
   Next
   Y("|") = 0: B = 0
Next
Set Y = Nothing: Set Brr = Nothing
End Sub

Sub ¶Ã¼Æ­«¸m()
With [B4:J12]
   .Value = "=INT(MOD(RAND()*1000,49))+1"
   .Value = .Value
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD