搜尋最後一列都有相同數字的組合。 - Excel程式區

c_c_lai

博士班 Rank: 6 Rank: 6

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

61^# 跳轉到 »

發表於 2017-1-29 18:47 | 只看該作者

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

62^#

發表於 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

Airman

中學生 Rank: 2

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

63^#

發表於 2017-1-29 21:29 | 只看該作者

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

64^#

發表於 2017-1-30 07:44 | 只看該作者

本帖最後由 c_c_lai 於 2017-1-30 08:06 編輯

回復 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，
      也可放置在 "模組" 內的。

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

65^#

發表於 2017-1-30 20:08 | 只看該作者

回復 64# c_c_lai

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

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

66^#

發表於 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

c_c_lai