c_c_lai

回復 40# ziv976688
"依據填入的期數執行即可"
那就無所謂之 A*B 之組合可言了？
換句話說
如為 "對等數" 就一定要有  A*B 組合了？

ziv976688

回復 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組合。

c_c_lai

回復 42# ziv976688
收到，程式撰寫難度愈來愈高了。
如果還有疑問到時後要再請教你了。

ziv976688

回復 43# c_c_lai
麻煩您了!敬候佳音。

c_c_lai

回復 44# ziv976688
早安！

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

下載次數: 13

2017-1-17 08:05

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

ziv976688

回復 45# c_c_lai
您好!
不才完全無法接手~~還是有勞您克竟全功。謝謝您^^

c_c_lai

回復 46# ziv976688
最近因家事繁忙，故只能抽空修正；
附上修正 (邏輯) 後之執行結果，麻煩檢查看看
是否正確？

下載 (97.31 KB)

2017-1-25 07:23

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. ----------------------------------

複製代碼

ziv976688

回復 47# c_c_lai
早安!
不好意思，這樣看不出結果是對還是不對^^"
可否請您直接做個可執行並產生效果檔案的主檔~以利測試。
謝謝您^^

c_c_lai

回復 48# ziv976688
快過年了，還是抽時間將它趕出來。
工作表單命名 '  Sheets(Sheets.Count).Name = ""
你來給吧！

下載 (68.78 KB)

2017-1-25 17:38

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

下載次數: 6

2017-1-25 17:37

ziv976688

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


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

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

下載 (168.13 KB)

2017-1-26 06:40

相同的指定號碼=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)

下載次數: 5

2017-1-26 06:48