1234
返回列表 上一主題 發帖

[發問] 搜尋最後一列都有相同數字的組合。

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
31# 跳轉到 »
發表於 2017-1-26 13:37 | 顯示全部帖子
回復  ziv976688
在 #50  的例子，你是用
      StrRng = "1"
      Nrange = "28" '
      num = "15 ...
c_c_lai 發表於 2017-1-26 12:37


核對如下:

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
32#
發表於 2017-1-26 21:08 | 顯示全部帖子
回復 56# c_c_lai
不是只要有指定號碼就 OK 了嗎？
不才從頭至尾沒有這樣說過。
請再回覽22#,24#,25#

只有這個問題嗎？   
工作表3的C驗證組合不符合邏輯條件和工作表4的B,C驗證組合不符合邏輯條件。

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
33#
發表於 2017-1-29 14:07 | 顯示全部帖子
本帖最後由 ziv976688 於 2017-1-29 14:10 編輯

回復 59# c_c_lai
有將A&B&A*B組合取得驗證組合的邏輯再重述一遍~~謹請參考~~
工作表1


工作表1_Ans.


工作表36&Ans


I_28期_15_23-2+20-5_2次_11



詳如附件: Sample_I_28期_15_23-2+20-5_2次_11.rar (13.81 KB)

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
34#
發表於 2017-1-29 21:23 | 顯示全部帖子
回復 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個檔案。
差距甚大~~不才抓不出來^^"

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
35#
發表於 2017-1-30 20:08 | 顯示全部帖子
回復 64# c_c_lai

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

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

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
36#
發表於 2017-1-31 21:15 | 顯示全部帖子
本帖最後由 ziv976688 於 2017-1-31 21:16 編輯

回復 64# c_c_lai

檢視&說明.rar (53.89 KB)

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

以檢視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

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

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
37#
發表於 2017-2-4 01:27 | 顯示全部帖子
回復 67# c_c_lai
R1(MF)_T-1.rar (33.85 KB)
只剩下一個誤差~~
開獎版和各組的第1個驗證組合重複，
EX:R1(MF)_T-1。
請將開獎版當為比對的母段落；各驗證組合當為比對的子段落。
謝謝您^^

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
38#
發表於 2017-2-4 12:00 | 顯示全部帖子
本帖最後由 ziv976688 於 2017-2-4 12:12 編輯

回復 70# c_c_lai
貴解答雖然不符合不才所需；
但還是謝謝您的熱心協助和不吝賜教

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
39#
發表於 2017-2-4 18:05 | 顯示全部帖子
本帖最後由 ziv976688 於 2017-2-4 18:11 編輯

回復 72# c_c_lai
基本架構的期數還是沒有對齊，
不才再看看~~~
謝謝您^^"

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
40#
發表於 2017-2-4 19:48 | 顯示全部帖子
本帖最後由 ziv976688 於 2017-2-4 20:01 編輯

回復 72# c_c_lai
基本架構嚴格說只完成~~開獎版的A比對基準列期數欄位和B比對基準列期數欄位的底色標示~~
其餘的不是不完整不然就是錯誤(包括70#的範例檔)，因此，不才完全無法以此類推進行修正。

但最重要的是您雖然將需求說明附註在程式內，但卻總是不依據發問題的需求作解，雖經不才的一再解說，您還是總以自己的觀點來解題~~
EX:以最簡單的工作表名稱，明明是Sheet1即可，且加句Sheets("Sheet1").Move就可將效果檔案完成，可是您卻一直堅持己意作解。

雖然簡單的語法，不才可以自行修正，但總也要有個完成檔來做標準；但您總是不時的提醒要不才自行接下去完成~~
不才最後的感覺是"心願難以達成"，所以只能對耽誤您許多的寶貴時間感到抱歉!
再次謝謝您的熱心協助~~感恩

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
1234
返回列表 上一主題