c_c_lai

回復 60# ziv976688
到此你應該自己可以上手接續了！
我視力不佳無法仔細閱覽之故。

ziv976688

回復 61# c_c_lai
哈~哈~您太抬舉不材了。要是這樣不才就能接手，就不會一再作範例說明了。

說實在的~~您的語法不才尚在研究中~~只是連為什麼程式碼要寫在This Workbook的用意，不材都還沒搞懂?
有把DATA原來的程式碼移除，只留
Private Sub CommandButton1_Click()
    ThisWorkbook.extractBaseData
End Sub
以
StrRng = "1"
      Nrange = "28" '
      num = "15"
      RrngA = "21-24"
      CrngA = "1-2"
      RrngB = "18-21"
      CrngB = "1-2"
      Order = ""
      Number = "3,11,21-26,43,49"
      Ncount = "2-3"
執行測試結果是26個工作表(1個工作表=1個檔案)
不才以人工製作的檔案應該是有73個檔案。
差距甚大~~不才抓不出來^^"

Airman

回復 59# c_c_lai
回復 60# ziv976688
不好意思，恕容小弟引(借)用二位大德的範例。謝謝!

c_c_lai

回復 62# ziv976688
那就以本樓為範例，前後各舉出你想要的三個具有
代表性且是正確位置的圖表   (共六張圖示範例)；
(即 73 個檔案中前半部與後半部個舉三個實例圖型)

     StrRng = "1"
      Nrange = "28" '
      num = "15"
      RrngA = "21-24"
      CrngA = "1-2"
      RrngB = "18-21"
      CrngB = "1-2"
      Order = ""
      Number = "3,11,21-26,43,49"
      Ncount = "2-3"

如此才能得知明瞭你的真正表達與需求，
圖型中亦請稍加詮釋要注意事項，與需求原因。
不然光有圖表與所謂 (拉平)， 就不知何意？

P,S,   不要用我程式內所產生的工作表內容作為範例；
          而是以你人工模式製出的需求工作表單為依據。

          程式碼並非一定要寫在This Workbook，
          也可放置在 "模組" 內的。

ziv976688

回復 64# c_c_lai

60#的圖解和說明~~
如果連"比對期數沒有拉齊(平)"，都無法讓您理解，那不才就無言了^^"

我再想想看:要怎麼說明，才能讓您容易理解?
畢竟製作圖表+文字說明很費時耗神，這樣下去二個人都累^^

ziv976688

回復 64# c_c_lai

檢視&說明.rar (53.89 KB)

下載次數: 5

2017-1-31 21:14

仔細思考後~~還是以貴解答工作表來說明不符合需求的地方，再另作正確答案的工作表~以利您修正程式碼。

以檢視59#貴解答工作表1~10；整理後的不符合需求的地方~~
1︰各比對基準期數(開獎版)和各驗證版的期數~~沒有同列齊平比對。
EX︰工作表1~10
2︰B組合的比對基準(開獎版)期數和第 1 個 B 驗證版期數重複(20=20)。
EX︰工作表5 & 6
3︰C(=A*B)組合的驗證版比對期數錯誤(19-18=1<>23-20；16-16=0<>23-20=3 )。
EX︰工作表1 & 3  
4. A或B或C(=A*B)組合的比對基準期數標的和指定的A或B或C(=A*B)組合的期數不符合。
EX︰工作表1~10

以上供參!倘尚有問題煩請告知。謝謝您!

c_c_lai

回復 66# ziv976688
回復 63# Airman
再試試看吧！
BASE_T-1-R1(MF).rar (45.92 KB)

下載次數: 6

2017-2-3 18:15

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

下載次數: 4

2017-2-3 18:15

starbox520

回復 67# c_c_lai


    來學習了~~

ziv976688

回復 67# c_c_lai
R1(MF)_T-1.rar (33.85 KB)

下載次數: 6

2017-2-4 01:26

只剩下一個誤差~~
開獎版和各組的第1個驗證組合重複，
EX:R1(MF)_T-1。
請將開獎版當為比對的母段落；各驗證組合當為比對的子段落。
謝謝您^^

c_c_lai

回復 69# ziv976688
BASE_T-1-R1(MF).rar (51.4 KB)

下載次數: 6

2017-2-4 08:20

下載 (75.5 KB)

2017-2-4 08:23

下載 (73.65 KB)

2017-2-4 08:24

下載 (67.98 KB)

2017-2-4 08:24