1234
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
21# 跳轉到 »
發表於 2017-1-25 07:03 | 顯示全部帖子
本帖最後由 c_c_lai 於 2017-1-25 07:23 編輯

回復 46# ziv976688
最近因家事繁忙，故只能抽空修正；
附上修正 (邏輯) 後之執行結果，麻煩檢查看看
是否正確？
  1. -------------------------------------------
  2. DGroup(1) :  : Variant(1 to 4)
  3. DGroup(1,1) = "22" : Variant/String
  4. DGroup(1,2) = "20" : Variant/String
  5. DGroup(1,3) = "2" : Variant/String
  6. DGroup(1,4) = "1" : Variant/String
  7. -------------------------------------------
  8. NCnt :  : Variant/String(0 to 1)
  9. NCnt(0) = "2" : String
  10. NCnt(1) = "3" : String
  11. ----------------------------------
  12. 第 1 個 Ncount = 2 組合次數
  13. ----------------------------------
  14. 第 1 個 A 組合
  15. 起始列 = 12
  16. 終止列 = 27
  17. 期  距 = 6
  18. 期  數 = 21
  19. 第一組 = 01
  20. 第二組 = 02
  21. ----------------------------------
  22. 第 2 個 A 組合
  23. 起始列 = 8
  24. 終止列 = 23
  25. 期  距 = 6
  26. 期  數 = 17
  27. 第一組 = 01
  28. 第二組 = 02
  29. ----------------------------------
  30. 第 1 個 B 組合
  31. 起始列 = 11
  32. 終止列 = 26
  33. 期  距 = 8
  34. 期  數 = 18
  35. 第五組 = 30
  36. ----------------------------------
  37. 第 2 個 B 組合
  38. 起始列 = 9
  39. 終止列 = 24
  40. 期  距 = 8
  41. 期  數 = 16
  42. 第五組 = 30
  43. ----------------------------------
  44. 第 1 個 C 組合
  45. 起始列 = 12
  46. 終止列 = 27
  47. 期  距 = 6
  48. 期  數 = 21
  49. 第一組 = 01
  50. 第二組 = 02
  51. 期  數 = 18
  52. 第五組 = 30
  53. ----------------------------------
  54. 第 2 個 C 組合
  55. 起始列 = 8
  56. 終止列 = 23
  57. 期  距 = 6
  58. 期  數 = 17
  59. 第一組 = 01
  60. 第二組 = 02
  61. 期  數 = 16
  62. 第五組 = 30
  63. ----------------------------------
  64. 第 1 個 Ncount = 3 組合次數
  65. ----------------------------------
  66. 第 1 個 A 組合
  67. 起始列 = 12
  68. 終止列 = 27
  69. 期  距 = 6
  70. 期  數 = 21
  71. 第一組 = 01
  72. 第二組 = 02
  73. ----------------------------------
  74. 第 2 個 A 組合
  75. 起始列 = 8
  76. 終止列 = 23
  77. 期  距 = 6
  78. 期  數 = 17
  79. 第一組 = 01
  80. 第二組 = 02
  81. ----------------------------------
  82. 第 3 個 A 組合
  83. 起始列 = 5
  84. 終止列 = 20
  85. 期  距 = 6
  86. 期  數 = 14
  87. 第一組 = 01
  88. 第二組 = 02
  89. ----------------------------------
  90. 第 1 個 B 組合
  91. 起始列 = 12
  92. 終止列 = 27
  93. 期  距 = 8
  94. 期  數 = 19
  95. 第三組 = 17
  96. ----------------------------------
  97. 第 2 個 B 組合
  98. 起始列 = 9
  99. 終止列 = 24
  100. 期  距 = 8
  101. 期  數 = 16
  102. 第三組 = 17
  103. ----------------------------------
  104. 第 3 個 B 組合
  105. 起始列 = 8
  106. 終止列 = 23
  107. 期  距 = 8
  108. 期  數 = 15
  109. 第三組 = 17
  110. ----------------------------------
  111. 第 1 個 C 組合
  112. 起始列 = 12
  113. 終止列 = 27
  114. 期  距 = 6
  115. 期  數 = 21
  116. 第一組 = 01
  117. 第二組 = 02
  118. 期  數 = 19
  119. 第三組 = 17
  120. ----------------------------------
  121. 第 2 個 C 組合
  122. 起始列 = 8
  123. 終止列 = 23
  124. 期  距 = 6
  125. 期  數 = 17
  126. 第一組 = 01
  127. 第二組 = 02
  128. 期  數 = 16
  129. 第三組 = 17
  130. ----------------------------------
  131. 第 3 個 C 組合
  132. 起始列 = 5
  133. 終止列 = 20
  134. 期  距 = 6
  135. 期  數 = 14
  136. 第一組 = 01
  137. 第二組 = 02
  138. 期  數 = 15
  139. 第三組 = 17
  140. ----------------------------------
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
22#
發表於 2017-1-25 17:38 | 顯示全部帖子
回復 48# ziv976688
快過年了，還是抽時間將它趕出來。
工作表單命名 '  Sheets(Sheets.Count).Name = ""
你來給吧！

BASE_T-1-B2(MF).rar (37.89 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
23#
發表於 2017-1-26 08:11 | 顯示全部帖子
回復 50# ziv976688
開獎版(比對的基準版)和第1個驗證組合重複了？
說真格的，不太懂你說的 "組合重複" 是在哪裡？
如下圖，對我這外行人來說實在看不出所以然。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
24#
發表於 2017-1-26 12:37 | 顯示全部帖子
回復 53# ziv976688
在 #50  的例子，你是用
      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"
做解說。

而我的 #49 程式內，是以
      StrRng = "1"
      Nrange = "28" '
      num = "15"
      RrngA = "22"
      CrngA = "2"
      RrngB = "20"
      CrngB = "1"
      Order = ""
      Number = "3,11,21-26,43,49"
      Ncount = "2-3"
來執行測試的。請再次確實核對。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
25#
發表於 2017-1-26 16:19 | 顯示全部帖子
回復 55# ziv976688
各驗證組合之最末列沒有相同的指定號碼，
不是只要有指定號碼就 OK 了嗎？
你是說所有的各驗證組合指定號碼要有一組
相同的指定號碼？只有這個問題嗎？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
26#
發表於 2017-1-29 08:56 | 顯示全部帖子
回復 57# ziv976688
我視力不好 (動過開刀手術)，
你再試試看是否吻合需求？
BASE_T-1-B3(MF).rar (52.47 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
27#
發表於 2017-1-29 09:49 | 顯示全部帖子
本帖最後由 c_c_lai 於 2017-1-29 09:54 編輯

回復 55# ziv976688


BASE_T-1-B3(MF).rar (57.99 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
28#
發表於 2017-1-29 18:47 | 顯示全部帖子
回復 60# ziv976688
到此你應該自己可以上手接續了！
我視力不佳無法仔細閱覽之故。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
29#
發表於 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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
30#
發表於 2017-2-3 18:15 | 顯示全部帖子
回復 66# ziv976688
回復 63# Airman
再試試看吧！
BASE_T-1-R1(MF).rar (45.92 KB)
搜尋相同數字的組合程式過程解說.rar (238.5 KB)

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
1234
返回列表 上一主題