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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

2^#

發表於 2017-1-30 01:19 | 只看該作者

回復 1# Airman

重新整理:

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

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2017-1-30 10:02 | 只看該作者

回復 2# Airman

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

4^#

發表於 2017-1-30 12:10 | 只看該作者

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

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2017-2-3 18:24 | 只看該作者

回復 4# Airman

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

6^#

發表於 2017-2-3 19:04 | 只看該作者

本帖最後由 Airman 於 2017-2-3 19:17 編輯

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

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

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2017-2-3 19:23 | 只看該作者

回復 6# Airman

搜尋最後一列都有相同數字的組合SRC.rar (8.6 KB)
你可以試著自行去修正。

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2017-2-3 19:38 | 只看該作者

本帖最後由 c_c_lai 於 2017-2-3 19:41 編輯

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

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

9^#

發表於 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等的效果檔。
感恩

最後單列指定交集(主檔)_c_c_lai.rar (65.81 KB)

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

10^#

發表於 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等的效果檔。
感恩