12345678
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
41# 跳轉到 »
發表於 2017-1-15 17:06 | 只看該作者
回復 40# ziv976688
"依據填入的期數執行即可"
那就無所謂之 A*B 之組合可言了？
換句話說
如為 "對等數" 就一定要有  A*B 組合了？

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
42#
發表於 2017-1-15 17:41 | 只看該作者
回復 41# c_c_lai

還是有A*B組合
EX:RrngA = "100-200" ；RrngB = "10-12"
則有
100*10；100*11；100*12
101*10；101*11；101*12
102*10；102*11；102*12
:
:
:
200*10；200*11；200*12
共303個A*B組合。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
43#
發表於 2017-1-15 18:35 | 只看該作者
回復 42# ziv976688
收到，程式撰寫難度愈來愈高了。
如果還有疑問到時後要再請教你了。

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
44#
發表於 2017-1-15 19:11 | 只看該作者
回復 43# c_c_lai
麻煩您了!敬候佳音。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
45#
發表於 2017-1-17 08:09 | 只看該作者
回復 44# ziv976688
早安！

目前只差尚未寫入到工作表單內；
先將 Beta 版附上，提供參考；
如果後續表單的製作你能接手的話，
那我就可以下課休息了！
BASE_T-1-Beta(MF).rar (30.11 KB)

P.S.  我特意將Debug 過程中的註解 (Remark)
        內容保留，是要讓你明瞭它的演算過程。

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
46#
發表於 2017-1-17 09:47 | 只看該作者
回復 45# c_c_lai
您好!
不才完全無法接手~~還是有勞您克竟全功。謝謝您^^

TOP

c_c_lai

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

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
48#
發表於 2017-1-25 08:14 | 只看該作者
回復 47# c_c_lai
早安!
不好意思，這樣看不出結果是對還是不對^^"
可否請您直接做個可執行並產生效果檔案的主檔~以利測試。
謝謝您^^

TOP

c_c_lai

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

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

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
50#
發表於 2017-1-26 06:49 | 只看該作者
本帖最後由 ziv976688 於 2017-1-26 06:58 編輯

回復 49# c_c_lai
早安!
感謝您於春節前百忙中~尚熱心相助。
藉此先向您拜個早年~~
敬祝:
財源廣進!
闔家平安!


還是要有實例，較容易瞭解相互的認知有何不同^^

您把開獎版(比對的基準版)和第1個驗證組合重複了。

相同的指定號碼=11

============================================================================
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.雖有重複檢視多次，但畢竟是手工製作~倘有錯誤，尚請您不吝指正。謝謝!

BASE_T-1-B2a(MF).rar (180.34 KB)

TOP

        靜思自在 : 君子立恆志，小人恆立志。
12345678
返回列表 上一主題