12345678
返回列表 上一主題 發帖

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

ziv976688

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

是指22期到26期之間，21出現4次；11出現3次；02出現2次。
各期數與期數之間的某號碼共出現幾次，與本題的邏輯條件和需求無關。



至於
(一) 指定號碼的範圍
     是指 "A基準期數21期到24期" 的 第 24 期行中，有出現 "指定號碼"？

填入Number InputBox裡的號碼
是指各組合(即A組合,B組合,A*B組合)的最後一列必須同時出現任一個(含)以上的號碼。
EX:6#的Sheet1!列22
A組合和B組合和A組合*B組合的最後一列都有同時出現03,11,21,49的4個指定號碼。

(二) A基準期數*B基準期數比對的期數
     有21*18,21*19,21*20；
     22*18,22*19,22*20,22*21；23*18,23*19,23*20,23*21,23*22；
     24*18,24*19,24*20,24*21,24*22,24*23
     不太明白，21*18 ， . . . . .  等等是何義？

21*18 就是以第21期為A基準期數，另以第18期為B基準期數
EX:6#就是以第20期為A基準期數，另以第15期為B基準期數；則A基準期數*B基準期數=20*15
因為檔案名稱不能以符號"*"表示，只好以"+"替代。

TOP

ziv976688

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

EX:6#就是以第20期為A基準期數，另以第15期為B基準期數；則A基準期數*B基準期數=20*15
因為檔案名稱不能以符號"*"表示，只好以"+"替代。
修正筆誤~~~
EX:6#就是以第24期為A基準期數，另以第20期為B基準期數；則A基準期數*B基準期數=24*20
因為檔案名稱不能以符號"*"表示，只好以"+"替代。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
13#
發表於 2017-1-9 14:02 | 只看該作者
回復 12# ziv976688
  1.     Nrange = "28"
  2.     RrngA = "22-26"
  3.     CrngA = "1-2"   

  5.     RrngB = "20-24"
  6.     CrngB = "1-2"   
  7.     Number = "3,11,21-26,43,49"
複製代碼
這樣的程式碼與圖示的說明對稱嗎？
能否就以此圖示， 再將它詮釋一下 (A組合、B組合、基準列的訂定)？

TOP

ziv976688

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

回復 13# c_c_lai
不好意思。您可能誤解圖示的配置與說明了；
重新說明如下:  

    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"

能否就以此圖示， 再將它詮釋一下 (A組合、B組合、基準列的訂定)？
EX︰
當取RrngA=其中的第24期；CrngA=其中的1；RrngB=其中的第20期；CrngB=其中的1時；
則其
第24期之第3位(D欄)開21(=RrngA_CrngA=A基準組合)；往下4期=開獎期。
第20期之第5位(F欄)開30(=RrngB_CrngB=B基準組合)；往下8期=開獎期。
第24期之第3位(D欄)開21)且其往上4期的第20期之第5位(F欄)開30(=RrngA_CrngA +RrngB_CrngB=A基準組合*B基準組合)；往下4期=開獎期。

當由第24期(A基準組合)往上搜尋︰
第1次出現第3位(D欄)開21的期數為22期(第1個A組合驗證版)；往下4期=26期，開03,11,42,45,46,49,21
第2次出現第3位(D欄)開21的期數為20期(第2個A組合驗證版)；往下4期=24期，開11,17,21,26,43,49,03
請見圖示1

當由第20期(B基準組合)往上搜尋︰
第1次出現第5位(F欄)開30的期數為18期(第1個B組合驗證版)；往下8期=26期，開03,11,42,45,46,49,21
第2次出現第5位(F欄)開30的期數為16期(第2個B組合驗證版)；往下8期=24期，開03,11,42,45,46,49,21
請見圖示2

當由第24期(A基準組合)往上搜尋︰
第1次出現第3位(D欄)開21且其往上4期的第5位(F欄)開30的期數為22,18(第1個A組合*B組合驗證版)；往下4期=26期，開03,11,42,45,46,49,21
第2次出現第3位(D欄)開21且其往上4期的第5位(F欄)開30的期數為20,16(第2個A組合*B組合驗證版)；往下4期=24期，開11,17,21,26,43,49,03
請見圖示3

依據邏輯條件︰當各組合的第1個到第n個之各驗證版都有出現任1個(含)以上的相同指定號碼則成立~~
因為本例︰各組合的第1個和第2個之各驗證版都有出現03,11,21,49，所以符合n=2的邏輯條件︰本例成立。
請見開獎版&3個組合的驗證版拉平圖說


效果檔案的需求︰請詳見Sheet1

P.S.
A基準組合和B基準組合和A基準組合*B基準組合的各驗證版不是一定要同為一個組合~~~
本例A基準組合和B基準組合和A基準組合*B基準組合的各驗證版同為一個組合~~純屬巧合。

請重新檢視比對其他範例；如有不解的地方，尚請不吝告知。謝謝!

TOP

c_c_lai

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




以上 1 ~ 8 的
        StrRng =
        Nrange =
        num    =
        RrngA  =
        CrngA  =
        RrngB  =
        CrngB  =
        RrngC  =
        CrngC  =
        Order  =
        Number =
        Ncount =
能否一一告知？

TOP

ziv976688

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

回復 15# c_c_lai
1
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "24"
    CrngA = "1"
    RrngB = ""
    CrngB = ""
    Order = ""
    Number = "3,11,21,49"
    Ncount = "2"

2
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "21"
    CrngA = "2"
    RrngB = ""
    CrngB = ""
    Order = ""
    Number = "11,26,43"
    Ncount = "2"

3
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = ""
    CrngA = ""
    RrngB = "18"
    CrngB = "1"
    Order = ""
    Number = "3,11,21,49"
    Ncount = "2-3"

4
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "24"
    CrngA = "2"
    RrngB = "18"
    CrngB = "1"
    Order = ""
    Number = "11,26,43"
    Ncount = "2"

5
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "21"
    CrngA = "2"
    RrngB = ""
    CrngB = ""
    Order = ""
    Number = "11,26,43"
    Ncount = "3"

6
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = ""
    CrngA = ""
    RrngB = "18"
    CrngB = "1"
    Order = ""
    Number = "11"
    Ncount = "3"

7
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "21"
    CrngA = "2"
    RrngB = "18"
    CrngB = "1"
    Order = ""
    Number = "11,26"
    Ncount = "3"

8
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "23"
    CrngA = "1"
    RrngB = ""
    CrngB = ""
    Order = ""
    Number = "11,26,43"
    Ncount = "2"

以上1-8都包含在~~
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"

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
17#
發表於 2017-1-10 16:57 | 只看該作者
回復 16# ziv976688
謝謝你的說明，但是 5，6，7 三個圖示中
都含有 第 2 組、以及 第 3 組 呢！

TOP

ziv976688

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

回復 17# c_c_lai
5,6,7都含有 第 2 組、以及 第 3 組~~所以是第2組(Ncount=2)比對一次；第3組(Ncount=3)另外再比對一次^^"

或者改成這樣您比較清楚~~
5
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "21"
    CrngA = "2"
    RrngB = ""
    CrngB = ""
    Order = ""
    Number = "11,26,43"
    Ncount = "2-3"

6
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = ""
    CrngA = ""
    RrngB = "18"
    CrngB = "1"
    Order = ""
    Number = "11"
    Ncount = "2-3"

7
StrRng = "1"
    Nrange = "28"
    num = "15"
    RrngA = "21"
    CrngA = "2"
    RrngB = "18"
    CrngB = "1"
    Order = ""
    Number = "11,26"
    Ncount = "2-3"

TOP

c_c_lai

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

TOP

ziv976688

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

回復 19# c_c_lai
    StrRng = "1" ' InputBox("請輸入DATA!各搜尋比對的起始期數", "輸入期數")
    Nrange = "28" ' InputBox("請輸入DATA!各搜尋比對的迄止(開獎)期數", "輸入期數")
    num = "15" 'InputBox("請輸入效果檔A︰H複製範圍的期距數", "輸入距期數")
    RrngA = "21-24" 'InputBox("請輸入各"第一個"比對的"基準期數A", "輸入第一個期數")
    CrngA = "1-2" 'InputBox("請輸入各"第一個"比對的7欄取任1~6之欄位數", "輸入欄位數(1~6)")
    RrngB = "18-21" 'InputBox("請輸入各"第二個"比對的"基準期數B", "輸入第二個期數")
    CrngB = "1-2" 'InputBox("請輸入各"第二個"比對的7欄取任1~6之欄位數", "輸入欄位數(1~6))
    Order = "" 'InputBox("請輸入再篩選邏輯條件的起迄序號", "輸入序號(1~99)或不增加(按Enter)")
    Number = "3,11,21-26,43,49" 'InputBox("請輸入各指定的號碼", "輸入號碼(1~49)")
    Ncount = "2-3" ' InputBox("請輸入驗證版的連續次數", "輸入次數(2~10)")
綠字為各InputBox內，可填入的數字範圍和其填入的數字所代表意義~請參考。

NUM=15~~其作用如下:
將DATA!的(Nrange-NUM)到Nrange的A︰H開獎版期數複製貼上Sheet1!A7

第21期= RrngA    ；01,02= CrngA=2(欄)
第18期= RrngB    ；30= CrngB=1(欄)
所以~A基準組合*B基準組合=當期(21期)第一位(B欄)出01,第二位(C欄)出02；其上3期(18期)第五位(F欄)出30=21-12*18-5=21-12+18-5(檔案名稱不能包含*字元，以+代替)
P.S.RrngA到Nrange=21期到28期=Nrange-RrngA=7

當期(17期)第一位(B欄)出01,第二位(C欄)出02；其上3期(14期)第五位(F欄)出30=A*B基準組合第1個驗證版=17-12+14-5
P.S.17+7=24期；有開11,26

當期(14期)第一位(B欄)出01,第二位(C欄)出02；其上3期(11期)第五位(F欄)出30=A*B基準組合第2個驗證版=14-12+11-5
P.S.14+7=21期；有開11,26

當期(5期)第一位(B欄)出01,第二位(C欄)出02；其上3期(2期)第五位(F欄)出30=A*B基準組合第3個驗證版=5-12+2-5
P.S.5+7=12期；有開11,26

因此 :A基準組合*B基準組合成立。

19#是"圖示3"
請比對"開獎版&3個 組合的驗證版拉平圖說"
A︰H & BE︰CB  就很清楚了

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
12345678
返回列表 上一主題