請教陣列比對超過3個

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

12^#

發表於 2023-3-7 10:51 | 只看該作者

回復 10# hcm19522

謝謝前輩,公式很難學,摸索中

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

13^#

發表於 2023-3-7 14:39 | 只看該作者

回復 10# hcm19522

感謝大大..先來研究一下.. 謝謝

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

14^#

發表於 2023-3-7 15:00 | 只看該作者

回復 10# hcm19522

報告大大: 成功出來了. 哈哈. 這句話有點哈哈:) 怎麼成功的.我也不知道..萬分感謝

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

15^#

發表於 2023-3-7 18:25 | 只看該作者

回復 10# hcm19522

雖然函式出來了..不出現#VALUE! .. 但驗證結果還是有錯..

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

16^#

發表於 2023-3-7 18:27 | 只看該作者

回復 12# Andy2483

謝謝大大解說..我慢慢研究中..可否請大大驗證?

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-22

17^#

發表於 2023-3-7 22:39 | 只看該作者

本帖最後由准提部林於 2023-3-7 22:40 編輯

一樓附檔//只適用純數值
=IF(OR(MMULT(1-ISERROR(RANK(B4:J12,B20:F20)),ROW(B4:B12)^0)>2),"X","")

Xl0000587.rar (4.17 KB)

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

18^#

發表於 2023-3-8 09:46 | 只看該作者

回復 duck_simon

#5樓範例與#1範例相同,是不是傳錯檔??無法更了解前輩的瓶頸在哪裡!
建議上傳更 ...
Andy2483 發表於 2023-3-7 10:40

是的..一個範例檔(壓縮)..一個是實際應用檔

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

19^#

發表於 2023-3-8 10:03 | 只看該作者

一樓附檔//只適用純數值
=IF(OR(MMULT(1-ISERROR(RANK(B4:J12,B20:F20)),ROW(B4:B12)^0)>2),"X","")
准提部林發表於 2023-3-7 22:39

感謝提部林先進..代入後產生#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) 也驗證成功
真是怪異..辛苦三位先進..

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

20^#

發表於 2023-3-8 11:37 | 只看該作者

回復 18# duck_simon

謝謝前輩回復
後學繼續學習VBA方案的心得如下,請前輩參考

陣列比對A_20230308_3.zip (18.92 KB)

執行結果:

Option Explicit
Sub TEST_2()
Call 亂數重置

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 亂數重置()
With [B4:J12]
.Value = "=INT(MOD(RAND()*1000,49))+1"
.Value = .Value
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流