12345678
返回列表 上一主題 發帖

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

ziv976688

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


核對如下:

TOP

c_c_lai

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

ziv976688

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

回復 51# c_c_lai
看懂您的誤解是在那裡了?

請以設定的DATA!比對之A&B基準列(=開獎版)~~往上搜尋的第1次相同欄位且相同的號碼為第1個驗證組合；第2次相同欄位且相同的號碼為第2個驗證組合；....以此類推。

TOP

ziv976688

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

回復 51# c_c_lai
請檢視您的上傳壓縮檔圖檔~~~~
這個圖表是不才再整理的~~與您的49#原圖表及上傳壓縮檔圖檔不同^^

TOP

c_c_lai

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

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

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 
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 
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 
46#
發表於 2017-1-17 09:47 | 只看該作者
回復 45# c_c_lai
您好!
不才完全無法接手~~還是有勞您克竟全功。謝謝您^^

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
12345678
返回列表 上一主題