標題:
[發問]
搜尋有交集數字的組合。
[打印本頁]
作者:
Airman
時間:
2017-1-29 20:08
標題:
搜尋有交集數字的組合。
本帖最後由 Airman 於 2017-1-29 20:09 編輯
比對基準欄位=
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的
需求︰
請詳見附檔。
[attach]26504[/attach]
以上 懇請各位先進不吝惠予指導!謝謝!
作者:
Airman
時間:
2017-1-30 01:19
回復
1#
Airman
重新整理:
[attach]26505[/attach]
[attach]26506[/attach]
[attach]26507[/attach]
[attach]26508[/attach]
作者:
c_c_lai
時間:
2017-1-30 10:02
回復
2#
Airman
[attach]26510[/attach]
請將各個組別 標示的字型顏色、欄位底色
的 顏色代碼 一一標示出來，謝謝。
例如： 紅色 = 255
， 以此類推。
j我視力不佳，難以仔細辨別。
作者:
Airman
時間:
2017-1-30 12:10
回復
3#
c_c_lai
因為色彩識別碼因各人的習慣不同
EX:紅色您是以255識別，我是以3識別
所以字體顏色和儲存格底色，就不拘泥了，只要您覺得相近即可。
謝謝您
作者:
c_c_lai
時間:
2017-2-3 18:24
回復
4#
Airman
[attach]26518[/attach]
請參閱 "搜尋相同數字的組合程式過程解說.pdf "
這應該是可以滿足你的需求。
作者:
Airman
時間:
2017-2-3 19:04
本帖最後由 Airman 於 2017-2-3 19:17 編輯
回復
5#
c_c_lai
呵~呵~小弟
只需要A組合的程式碼
就好
(請見2#的範例圖片)
，其他的不需要~太複雜了^^"
可不可以請您做一個執行主檔~可將效果資料夾和其內的效果檔個別顯示出來；因為複製PDF的內容貼上2#的主檔，沒有分段~混成一團。
謝謝您:lol
PS:比對基準期(開獎版) 和第1個驗證版
重複
了~等於少1個驗證版，沒有交集號碼出現 (驗證版一定要有2個以上，才能依據邏輯找出有相同的指定交集號碼之組合)。
作者:
c_c_lai
時間:
2017-2-3 19:23
回復
6#
Airman
[attach]26519[/attach]
你可以試著自行去修正。
作者:
c_c_lai
時間:
2017-2-3 19:38
本帖最後由 c_c_lai 於 2017-2-3 19:41 編輯
回復
6#
Airman
你只需要A組合的程式碼就好？
無所謂之 A組合 的程式段，
它是依據 For ct2 = 1 To 3 ~ Next ct2 間
自動去判斷組合其相對應的 "組合"。
請仔細研究所附程式便一目了然了。
作者:
Airman
時間:
2017-2-3 21:11
回復
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等的效果檔。
感恩
[attach]26521[/attach]
作者:
Airman
時間:
2017-2-3 22:17
回復
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等的效果檔。
感恩
作者:
Airman
時間:
2017-2-3 22:39
本帖最後由 Airman 於 2017-2-3 22:41 編輯
回復
10#
Airman
補充:
抱歉!效果檔案裡的"
驗證組合的搜尋邏輯說明
"工作表
忘了移除
，
主檔執行後~效果檔案裡
只留Sheet1
即可。
謝謝您
作者:
c_c_lai
時間:
2017-2-4 10:14
回復
11#
Airman
單獨 A 組合 (示範)
[attach]26528[/attach]
接下來要靠你自己了。
作者:
Airman
時間:
2017-2-5 07:18
本帖最後由 Airman 於 2017-2-5 07:24 編輯
回復
12#
c_c_lai
[attach]26535[/attach]
測試報告︰
1.
各
驗證組合
之最末列
相同的
指定號碼
應為各驗證組合之
最末列都有顯示
的
指定號碼
~
EX︰ I_28期_15_17-1+_2次_11_21_26_43_的工作表，其最末列
相同的
指定號碼
=
[colorMagenta]=11,26,43
I_28期_15_17-4+_3次_11_21_26_43_的工作表，其最末列
相同的
指定號碼=21
其餘工作表類推。
2.
當各
驗證組合
之
某任一個相同的
指定號碼
也
有顯示在開獎期
時，
沒有
將各該相同的指定號碼之儲存格標示
紅色粗框線
。
EX︰ I_28期_15_17-1+_2次_11_21_26_43_的工作表，其D22,G22,M22,N22,U22,W22
沒有標示紅色粗框線
I_28期_15_21-12+_2次_26_43的工作表，其D22,G22,L22,O22,U22,V22
沒有標示紅色粗框線
[attach]26533[/attach]
其餘工作表類推。
3.
基準列
和
驗證組合
的
期數
沒有
置放於
同列比對
。
EX︰I_28期_15_20-3+_2次_24_25_26_11的工作表之基準列=22期和驗證組合=20期,18期~
沒有
置放於
同列比對
。
I_28期_15_19-1+_2次_11_49_21的工作表之基準列=23期和驗證組合=19期,16期~
沒有
置放於
同列比對
。
[attach]26534[/attach]
其餘工作表類推。
4.
請
以DATA
工作表的控制項目
為基準
~
EX︰如果將貴程式碼的
列35
改為
rnum = "20"
時，DATA工作表的A︰H(開獎版)的
期距數會是=20
；但目前DATA工作表的A︰H(開獎版)的
期距
還是
=15
其餘控制項目類推。
5.
請將貴主檔
完成為
可執行出總資料夾和分資料夾和效果檔案之
符合本題需求
的程式檔。
以本次StrRng = "1" Nrange = "28" ' rnum = "15" RrngA = "21-24" CrngA = "1-2" SOrder = "" CNum = "3,11,21-26,43,49" Ncount = "2-3"為例，則︰
總資料夾名稱
= I_28期_15_21-24_1-2星_2-3次_3,11,43,49,21-26
分資料夾以RrngA =21；CrngA = "1-2"；Ncount = "2-3"為例︰
名稱
=
I_28期_15_21-1星_2次_3,11,21-26,43,49 其內有
檔案名稱=
=I_28期_15_21-1_2次_11,26,43等
4個
檔案；
各工作表名稱=Sheet1
名稱=
I_28期_15_21-1星_3次_3,11,21-26,43,49 其內有
檔案名稱=I
_28期_15_21-1_3次_11,26,43等
2個
檔案；
各工作表名稱=Sheet1
名稱=
I_28期_15_21-2星_2次_3,11,21-26,43,49 其內有
檔案名稱=
I_28期_15_21-12_2次_11,26,43等
1個
檔案；
各工作表名稱=Sheet1
名稱=
I_28期_15_21-2星_3次_3,11,21-26,43,49 其內有
檔案名稱=
I_28期_15_21-12_3次_11,26,43等
1個
檔案；
各工作表名稱=Sheet1
6.
工作表頁面內容
不需要
任何文字註解。
7.
沒有
產生任一個檔案的分資料夾移除(即
不產生
)。
8.
沒有
產生任一個分資料夾的總資料夾移除(即
不產生
)。
9.
請將
非
屬於本題之需求
的程式碼
完全移除
。
上述各項敬請賜正。謝謝您
P.S.
請再詳見
1#
作者:
c_c_lai
時間:
2017-2-5 09:46
回復
13#
Airman
感謝你那麼仔細地測試，我曾說過因為不懂這個遊戲的規則與玩法，
所以只能根據你等不斷的詮釋來瞭解及採摩，並加以程式客製化，
尤其它限定在指定的 Srange 與 Nrange 一定之範圍間遊走。
須知有些談談是道的論說對你等來講是理所當然的，
但未必每個人都能真正去領會的或知道它。
你只要仔細去體會本程式的撰寫邏輯應能迎刃而解的。
我提供的是大模子的建構，而非商業行為的客製化，
基於此來引導你們更能快速地上手進行修飾，希望你能明瞭。
等抽出時間後我再來仔細研究你的圖例及說明，
再次謝謝你那麼費心地提供寶貴的資訊。
作者:
Airman
時間:
2017-2-9 02:30
本帖最後由 Airman 於 2017-2-9 02:31 編輯
回復
14#
c_c_lai
小弟之所以會提出這一題發問的初衷是覺得c大的語法特別~想研究學習^^
但遺憾的是空等多天~終究還是無此福緣^^"
[attach]26570[/attach]
交集_1389期_20_1386-4_2次_
49,42
[attach]26571[/attach]
交集_1390期_20_1389-16_2次_
16
謹附上小弟目前在使用中的交集執行檔供參~
http://www.FunP.Net/766845
作者:
c_c_lai
時間:
2017-2-9 08:27
回復
15#
Airman
不好意思，讓你空等。
近陣子老婆身體有狀況，剛剛才自己在臥室摔倒在地，
著實嚇了我一跳，這就是我無心情上網回復的因素。
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
