[發問] 搜尋有交集數字的組合。

Airman

比對基準欄位=1時，其B欄,C欄,D欄,E欄,F欄,G欄,H欄~檔案名稱以1,2,3,4,5,6,7替代。
比對基準欄位=2時，其B,C二欄,B,D二欄,B,E二欄,B,F二欄,B,G二欄,B,H二欄~檔案名稱以12,13,14,15,16,17替代。
其C,D二欄,C,E二欄,C,F二欄,C,G二欄,C,H二欄~檔案名稱以23,24,25,26,27替代。
︰
︰
比對基準欄位=3時，其B,C,D三欄,B,D二欄,B,C,E三欄,B,C,F三欄,B,C,G三欄,B,C,H三欄~檔案名稱以123,124,125,126,127替代。
︰
︰
比對基準欄位=6時，
其B,C,D,E,F,G六欄,B,C,D,E,F,H六欄,B,C,D,E,G,H六欄, B,C,D,F,G,H六欄, B,C,E,F,G,H六欄, B,D,E,F,G,H六欄, C,D,E,F,G,H六欄~
檔案名稱以123456,123457,123467,123567,124567,134567,234567替代。

總資料夾名稱= " I_" & Nrange &"期_" & rnum & "_" & Rrng &"_"& Crng &"星_" & Ncount & "次_" & Number
EX︰I_28期_15_21-24_1-2星_2-3次_3,11,21-26,43,49
分資料夾名稱= " I_" & Nrange &"期_" & rnum & "_" & Rrng &"_"& Crng &"星_" & Ncount & "次_" & Number
EX︰I_28期_15_21_2星_3次_3,11,21-26,43,49
檔案名稱= " I_" & Nrange &"期_" & rnum & "_" & Rrng &"_"& Crng &"星_" & Ncount & "次_" & Number(=驗證組合相同的指定號碼=交集)
EX︰檔案名稱= I_28期_15_21-12_3次_11,26,43
工作表名稱= Sheet1

P.S.
1.沒有產生任一個檔案的分資料夾移除(即不產生)。
2.沒有產生任一個分資料夾的總資料夾移除(即不產生)。

Sheet1的需求︰請詳見附檔。
2017-0129-Q-1 -.rar (107.25 KB)

下載次數: 10

2017-1-29 20:07

以上  懇請各位先進不吝惠予指導!謝謝!

Airman

回復 1# Airman

重新整理:

下載 (188.95 KB)

2017-1-30 01:13

下載 (194.41 KB)

2017-1-30 01:15

下載 (188.04 KB)
I_28期_15_23-2_2次_11,26,43

2017-1-30 01:16

2017-0130-Q-1 -.rar (38.03 KB)

下載次數: 3

2017-1-30 01:18

c_c_lai

回復 2# Airman

下載 (23.76 KB)

2017-1-30 09:55

請將各個組別 標示的字型顏色、欄位底色
的 顏色代碼 一一標示出來，謝謝。
例如： 紅色  =  255
            ， 以此類推。
j我視力不佳，難以仔細辨別。

Airman

回復 3# c_c_lai
因為色彩識別碼因各人的習慣不同
EX:紅色您是以255識別，我是以3識別
所以字體顏色和儲存格底色，就不拘泥了，只要您覺得相近即可。
謝謝您

c_c_lai

回復 4# Airman
搜尋相同數字的組合程式過程解說.rar (238.5 KB)

下載次數: 3

2017-2-3 18:16

請參閱 "搜尋相同數字的組合程式過程解說.pdf "
這應該是可以滿足你的需求。

Airman

回復 5# c_c_lai
呵~呵~小弟只需要A組合的程式碼就好(請見2#的範例圖片)，其他的不需要~太複雜了^^"
可不可以請您做一個執行主檔~可將效果資料夾和其內的效果檔個別顯示出來；因為複製PDF的內容貼上2#的主檔，沒有分段~混成一團。
謝謝您:lol

PS:比對基準期(開獎版)  和第1個驗證版重複了~等於少1個驗證版，沒有交集號碼出現 (驗證版一定要有2個以上，才能依據邏輯找出有相同的指定交集號碼之組合)。

c_c_lai

回復 6# Airman
搜尋最後一列都有相同數字的組合SRC.rar (8.6 KB)

下載次數: 3

2017-2-3 19:21

你可以試著自行去修正。

c_c_lai

回復 6# Airman
你只需要A組合的程式碼就好？
無所謂之 A組合 的程式段，
它是依據 For ct2 = 1 To 3  ~ Next ct2 間
自動去判斷組合其相對應的 "組合"。
請仔細研究所附程式便一目了然了。

Airman

回復 8# c_c_lai
謝謝您的回應和解答。

貴程式碼貼到模組1按執行~沒結果。
貼到DATA的編輯器~先刪除原先的程式碼~卡在列37 刪除工作表

請做一個能執行主檔，
如果是   
    StrRng = "1"
    Nrange = "28" '
    num = "15"
    RrngA = "21-24"
    CrngA = "1-2"
   Order = ""
   Number = "3,11,21-26,43,49"
   Ncount = "2-3"
則會產生
I_28期_15_21-24_1-2星_2-3次_3,11,21-26,43,49(總資料夾)
總資料夾內有如:I_28期_15_21_2星_2次_3,11,21-26,43,49等的分資料夾
分資料夾內有如:I_28期_15_21-12_2次_11,26,43等的效果檔。
感恩
最後單列指定交集(主檔)_c_c_lai.rar (65.81 KB)

下載次數: 0

2017-2-3 21:09

Airman

回復 8# c_c_lai
Sorry~9#作廢^^"


謝謝您的回應和解答。

可否請您只擷取符合本題需求的貴解程式碼~將其貼上執行主檔的DATA的編輯器中~
如是以 下的InputBox內容執行  
    StrRng = "1"
    Nrange = "28" '
    num = "15"
    RrngA = "21-24"
    CrngA = "1-2"
   Order = ""
   Number = "3,11,21-26,43,49"
   Ncount = "2-3"
則按主檔執行鍵後，能產生如~
總資料夾︰I_28期_15_21-24_1-2星_2-3次_3,11,21-26,43,49()
總資料夾內有︰I_28期_15_21_2星_2次_3,11,21-26,43,49等的分資料夾
分資料夾內有︰I_28期_15_21-12_2次_11,26,43等的效果檔。
感恩