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

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

16^#

發表於 2017-2-9 08:27 | 只看該作者

回復 15# Airman
不好意思，讓你空等。
近陣子老婆身體有狀況，剛剛才自己在臥室摔倒在地，
著實嚇了我一跳，這就是我無心情上網回復的因素。

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

15^#

發表於 2017-2-9 02:30 | 只看該作者

本帖最後由 Airman 於 2017-2-9 02:31 編輯

回復 14# c_c_lai
小弟之所以會提出這一題發問的初衷是覺得c大的語法特別~想研究學習^^
但遺憾的是空等多天~終究還是無此福緣^^"

交集_1389期_20_1386-4_2次_49,42

交集_1390期_20_1389-16_2次_16

謹附上小弟目前在使用中的交集執行檔供參~
http://www.FunP.Net/766845

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

14^#

發表於 2017-2-5 09:46 | 只看該作者

回復 13# Airman
感謝你那麼仔細地測試，我曾說過因為不懂這個遊戲的規則與玩法，
所以只能根據你等不斷的詮釋來瞭解及採摩，並加以程式客製化，
尤其它限定在指定的 Srange 與 Nrange 一定之範圍間遊走。
須知有些談談是道的論說對你等來講是理所當然的，
但未必每個人都能真正去領會的或知道它。
你只要仔細去體會本程式的撰寫邏輯應能迎刃而解的。
我提供的是大模子的建構，而非商業行為的客製化，
基於此來引導你們更能快速地上手進行修飾，希望你能明瞭。
等抽出時間後我再來仔細研究你的圖例及說明，
再次謝謝你那麼費心地提供寶貴的資訊。

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

13^#

發表於 2017-2-5 07:18 | 只看該作者

本帖最後由 Airman 於 2017-2-5 07:24 編輯

回復 12# c_c_lai

2017-0205.rar (61.16 KB)
測試報告︰
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 沒有標示紅色粗框線

      其餘工作表類推。

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期~沒有置放於同列比對。

      其餘工作表類推。

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#

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

12^#

發表於 2017-2-4 10:14 | 只看該作者

回復 11# Airman
單獨 A 組合 (示範)

BASE_T-1-R1(A組).rar (46.03 KB)
接下來要靠你自己了。

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

11^#

發表於 2017-2-3 22:39 | 只看該作者

本帖最後由 Airman 於 2017-2-3 22:41 編輯

回復 10# Airman
補充:
抱歉!效果檔案裡的"驗證組合的搜尋邏輯說明"工作表忘了移除，
主檔執行後~效果檔案裡只留Sheet1即可。
謝謝您

帖子: 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等的效果檔。
感恩

帖子: 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)

帖子: 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 間
自動去判斷組合其相對應的 "組合"。
請仔細研究所附程式便一目了然了。