返回列表 上一主題 發帖

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

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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的需求︰請詳見附檔。
2017-0129-Q-1 -.rar (107.25 KB)

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

Airman

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

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
3#
發表於 2017-1-30 12:10 | 顯示全部帖子
回復 3# c_c_lai
因為色彩識別碼因各人的習慣不同
EX:紅色您是以255識別，我是以3識別
所以字體顏色和儲存格底色，就不拘泥了，只要您覺得相近即可。
謝謝您

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
4#
發表於 2017-2-3 19:04 | 顯示全部帖子
本帖最後由 Airman 於 2017-2-3 19:17 編輯

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

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

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
5#
發表於 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)

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
6#
發表於 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等的效果檔。
感恩

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
7#
發表於 2017-2-3 22:39 | 顯示全部帖子
本帖最後由 Airman 於 2017-2-3 22:41 編輯

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

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
8#
發表於 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#

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
9#
發表於 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

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題