匿名使用者
匿名使用者 發問時間: 電腦與網際網路軟體 · 7 年前

Excel函數 統計組數

附件下載網址︰http://www.funp.net/521912

B1︰K1=各欄號碼支數

N1︰V1= B︰K的各欄的排數組合別

M2︰M6=B︰K各欄內號碼的排(星)數組合別

N2︰V6= B1︰K1的各排號碼支數之星組總數

EX︰

N2=B$1*C$1=12組

O2 =B1*C1+B1*D1+C1*D1=47組

P2 =B1*C1+B1*D1+B1*E1+C1*D1+C1*E1+D1*E1=83組

其餘…以此類推

請問︰N2︰V6的函數公式?

N2的公式能一式到位最佳

如果一式到位函數無解,公式分開寫也可以

謝謝

已更新項目:

KATO大︰

您客氣了!

謝謝您的回應^^

2 個已更新項目:

冰淇淋大︰

謝謝您的解答^^

好像有的答案不大對

EX:

O2=47;貴答=39

O3=60;貴答=138

請檢視及請繼續賜教。

謝謝您^^

3 個已更新項目:

冰淇淋大︰

對不起!

以為是一式到位^^"

2星貴答N2=12和P2=83是正確的

其它的正確答案是O2=47;Q2=128;R2=200;S2=266;T2=341;

U2和V2我還沒有詳細計算,請見諒^^"

4 個已更新項目:

謝謝EXCEL迷大的修正^^

5 個已更新項目:

EXCEL迷大︰

高手學以致用的速度真快^^

其它星組請繼續賜教!謝謝您^^

6 個已更新項目:

准提部林大師︰

感謝您耗神為不才寫了二個程式解。

不才受教了!感恩^^

7 個已更新項目:

Worlon大師︰

太神奇了!

不才得慢慢芻嚼多日才能消化^^"

貴任一公式效能都很快^^

謝謝不吝賜教!敬請上答^^

6 個解答

評分
  • 匿名使用者
    7 年前
    最佳解答

    = B1*C1 嗎 ?

    2013-10-21 14:59:56 補充:

    006致歉,後來下檔就蟬了

    ^^

    2013-10-21 16:21:36 補充:

    這題可能有兩種做法,不過都不容易

    非常不建議一式到位 。。。

    2013-10-21 17:26:50 補充:

    蟬 = 知了

    只是知道題目在問啥了,可不是已經解出喔 ^ ^

    2013-10-21 18:20:52 補充:

    尚未寫,流程參考

    2^10=1024

    轉二進位

    符合各個位數和為5的,就是 C 10 取 5

    ﹏﹏﹏

    log(A*b*c) = log a + log b + log c

    2013-10-21 18:25:57 補充:

    如果圈數夠,一式到位便可以

    有興趣的也可以幫忙捉刀 ^^

    2013-10-22 10:03:11 補充:

    依貴檔格式,

    N2

    =SUM(--TEXT(10^MMULT((MMULT( MOD(INT(ROW($1:$1024)*(ROW($1:$1024)<2^N$1)/2^(COLUMN($A:$J)-1)),2),ROW($1:$10)^0)=$M2)* MOD(INT(ROW($1:$1024)*(ROW($1:$1024)<2^N$1)/2^(COLUMN($A:$J)-1)),2)*LOG($B$1:$K$1),ROW($1: $10)^0),"[=1]!0;0"))

    陣列

    還不算太慢 …

    2013-10-22 10:09:48 補充:

    回020 KATO大

    有手機後,家裡電腦少開了,週六日就幾乎沒上來了

    不過有趣題的話,會用手機追蹤 ^^

    2013-10-22 10:21:58 補充:

    回 准大 :

    我沒有專業,但說得一紙好兵 XD

    2013-10-22 10:34:30 補充:

    上式有一數學問題,便調整如下 :

    =SUM(IF(MMULT(MOD(INT(ROW($1:$1024)* (ROW($1:$1024)<2^N$1)/2^(COLUMN($A:$J)-1)),2),ROW($1:$10)^0)=$M2,10^MMULT(MOD(INT( ROW($1:$1024)*(ROW($1:$1024)<2^N$1)/2^(COLUMN($A:$J)-1)),2) *LOG($B$1:$K$1),ROW($1:$10)^0)))

    陣列

    2013-10-22 10:40:14 補充:

    改效率些

    =SUM(IF(MMULT(MOD(INT(ROW($1:$1024)* (ROW($1:$1024)<2^N$1)/2^(COLUMN($A:$J)-1)),2),ROW($1:$10)^0)=$M2,10^MMULT(MOD(INT( ROW($1:$1024)/2^(COLUMN($A:$J)-1)),2)*LOG($B$1:$K$1),ROW($1:$10)^0)))

    均一般公式即可

    2013-10-22 11:38:15 補充:

    025一點點小小意見供參

    xARR 只用在函數1, 最好不要寫在公共變數

    xNum 宜用函數傳遞, 而非放公共

    避免公共變數的使用, 對 寫函數 與 流程組織 會有幫助 …

    (一個階段一個階段; 一個程序一個程序; 段落分明)

    以我而言, 非不得已, 絕不使用公共變數 …

    這類題目最後還是可以考慮寫遞迴 。。。

    2013-10-22 13:27:32 補充:

    准大 若有興趣可以用遞迴方法寫個階乘函數

    另外,iif 相對於if來說極慢,需避免寫在非常大的迴圈中

    2013-10-22 13:30:47 補充:

    暫緩一二日便上答 ^^

    2013-10-22 14:51:46 補充:

    大體是挺好的,就寫程式習慣如果能有分層,不要統統從最左邊開始寫,不易閱讀,

    就更好了

    2013-10-23 17:51:33 補充:

    雖更為抽象, 但極有效率的 區域陣列

    =MMULT(TRANSPOSE((MMULT(MOD( INT(ROW(1:1024)/2^(COLUMN(A:J)-1)),2),ROW(1:10)^0)=TRANSPOSE(M2:M6))*10^MMULT( MOD(INT(ROW(1:1024)/2^(COLUMN(A:J)-1)),2)*LOG(B1:K1),ROW(1:10)^0)),1*(ROW(1:1024)<2^N1: V1))

    N2:V6 區域陣列

    2013-10-25 15:26:32 補充:

    浮點更可能是出現在

    N=10^(log(N))的過程

    2013-10-25 15:27:14 補充:

    取round可能較保險些

    2013-10-25 15:31:16 補充:

    =MMULT(TRANSPOSE((MMULT(MOD( IN T(ROW(1:1024)/2^(COLUMN(A:J)-1)),2),R OW(1:10)^0)=TRANSPOSE(M2:M6))*10^M MULT( MOD(INT(ROW(1:1024)/2^(COLUM N(A:J)-1)),2)*LOG(B1:K1),ROW(1:10)^0)),1 *(ROW(1:1024)<2^N1: V1))

    N2:V6 區域陣列

    餘解請參閱意見區,謝謝 ^^

  • 龍龍
    Lv 4
    7 年前

    Worlon大師︰

    哈~您太自謙了

    假如您蟬了,我們就都是要斃了^^"

    大家都知道您的功力深厚

    不嫌棄的話,敬請不吝賜教。

    謝謝您!^^

    2013-10-21 16:24:35 補充:

    准提部林大師︰

    當初是想此式有一個固定邏輯可循,所以應該可以以函數完成

    但連您都說難,那就不限定函數解

    不嫌棄的話,敬請不吝賜教

    謝謝您!^^

    2013-10-21 16:26:33 補充:

    Worlon大師︰

    願聞其詳

    謝謝您^^

    2013-10-21 17:45:45 補充:

    抱歉!我當作是指寒蟬

    所以我不就是該斃了=永遠不能再出聲^^

    2013-10-21 18:17:35 補充:

    准大:

    其實小弟就是看到這二題才引申發問的

    因為一般都是用聰明包牌或立柱組合,才有可能一次簽10支以上的號碼^^

    如果要以二題連碰作碁底,再以自訂函數改為立柱,小弟真的是莫法度^^"

    2013-10-21 18:47:31 補充:

    W大:

    捉刀不敢當^^"

    謹請不吝賜教!

    相信一式到位的公式,很多人都想學習^^

    2013-10-22 13:08:48 補充:

    准提部林大師︰

    感謝您耗神為不才寫了二個程式解。

    不才受教了!感恩^^

    2013-10-22 13:10:39 補充:

    Worlon大師︰

    太神奇了!

    不才得慢慢芻嚼多日才能消化^^"

    貴任一公式效能都很快^^

    謝謝不吝賜教!敬請上答^^

    2013-10-22 13:52:11 補充:

    W大:

    遵旨..^^

    2013-10-22 14:28:38 補充:

    准大:

    不才測試結果:C(35,5)=324632

    0.293

    組數迴圈完全正確

    C(49,6)

    不才的電腦警示:執行階段錯誤'7'

    記憶體不足^^"

    2013-10-22 14:57:45 補充:

    准大:

    C(49,6)=13983816

    9.2734

    組數迴圈完全正確

    ALL PASS.

    Great.^^

    2013-10-22 17:35:49 補充:

    KATO大︰

    謝謝您的建議^^

    不才原先就有如此的打算

    只是要先有初表後,才能再繼續想好最終的適當表格格式架構^^

    2013-10-23 23:27:08 補充:

    選取好區域範圍,貼上按3鍵即顯示答案,效率超級的高^^

    但不才「純金的」學不會^^"

  • 7 年前

    COMBIN(10排,5星) = 252 個陣列乘積和?

    要用到〔序列組合〕,公式難!VBA自訂函數應可行,但也不容易!

    2013-10-21 18:01:38 補充:

    2~10取2~6星各種組合....

    利用上兩題解j大的序列組合,再加入陣列乘積和自訂函數,應可達成,

    但若排數及星數太多種,效能會是卡卡:

    http://tw.knowledge.yahoo.com/question/question?qi...

    http://tw.knowledge.yahoo.com/question/question?qi...

    專業的Worlon大師,應有更好方案,等看看~~

    2013-10-22 10:37:48 補充:

    Worlon大師,公式太神了! 

    認真說,即使看現成公式,也很難學得來!

    昨晚寫的VBA自訂函數,寫了兩種,提供自認效率較好的,

    這種寫法也是第一次嚐試,就不知有否BUG:

    http://www.funp.net/224488

    以公式為主,參考即可!

    2013-10-22 13:07:19 補充:

    <參考檔>:

    http://www.funp.net/875000

    再嚐試併成一個程序!

    非正科,對〔遞迴〕完全沒概念,好像多走了遠路,

    前2題借用別人的程式,COMBIN(21,6),跑了40幾萬圈,

    還是習慣在限定條件下,以迴圈處理,可只跑54264圈,

    當然,適用性就受限制啦!^ ^

    EXCEL VBA好處是可個案處理,有時就不須考慮泛用性。

    2013-10-22 13:54:23 補充:

    覆 Worlon大師:

    剛測試 IIF 確是蠻費時,也發現已使用GOTO,可以省略IIF就快很多,

    若有空請診斷這檔案:4~49取2~6組合,這樣寫有否BUG??

    http://www.funp.net/841247

    也請其他大大幫忙測試其執行速度及有無錯誤!

    2013-10-22 14:39:48 補充:

    不是專業寫程式就會忽略重要東西,

    記憶體不足,請更改指定變數類型!

    Dim xBRR%(),

    2013-10-25 09:43:46 補充:

    042是神化級公式!^ ^

    測試下:

    783.540.3672.2160.47439 有浮點小數出現,最外層加入int就可以了!

    mod 何種狀況會出現浮點數,真難掌握!

  • ?
    Lv 7
    7 年前

    冰大 寫的真妙 一定懂得數學公式 SORRY! 幫冰大修改

    三個OFFSET(B1-->$B1

    =(SUM(N(OFFSET($B1,,COLUMN($A$1:B1)-1))*N(TRANSPOSE(OFFSET($B1,,COLUMN($A$1:B1)-1))))-SUM(N(OFFSET($B1,,COLUMN($A$1:B1)-1))^2))/2

    2013-10-21 10:29:02 補充:

    =(SUM($B1:C1*TRANSPOSE($B1:C1))-SUM($B1:C1^2))/2

    謝謝 冰大 提供數學公式 邏輯學至 冰大

  • 您覺得這個回答如何?您可以登入為回答投票。
  • 冰淇
    Lv 6
    7 年前

    2星 N2 陣列公式 右拉

    =(SUM(N(OFFSET(B1,,COLUMN($A$1:B1)-1))*N(TRANSPOSE(OFFSET(B1,,COLUMN($A$1:B1)-1))))-SUM(N(OFFSET(B1,,COLUMN($A$1:B1)-1))^2))/2

    3星含以上--^^"

    2013-10-23 18:00:05 補充:

    ~

    天書.....^^"

    ~

  • KATO
    Lv 5
    7 年前

    @~@~想了一個晚上,還是沒有寫出正確答案的公式

    沒幫上忙~Sorry^^"

    2013-10-21 18:55:16 補充:

    哈~哈~不要說是一式到位

    就連一個星組一個公式,小弟都寫不全^^"

    W大師就開課指導一下。感恩^^

    最近大師周末都沒有開課~

    頗有失落之感的^^

    2013-10-22 11:26:13 補充:

    對二位大師的精解~嘆為觀止^^

    2013-10-22 16:07:33 補充:

    最近半個月來,突然很多題(近10題)都是問各種彩券的組數或組合表列,

    但總覺得這樣的結果,沒有什麼實際效用~當然為研習高手們的語法之立意除外^^

    以龍大此題而言:

    既有幸蒙二位大師的關注和指導~

    小弟覺得應該再增加刪除6星已開號碼後的未開之6星組合表列~

    以符立柱推牌簽注的實際效用。

    純屬個人拙見~僅供參考^^

    PS:

    請龍大別誤會小弟是因偷懶提問而借題發揮~

    小弟已曾受准大賜解聰明包牌6星各指定項目刪除後的各種表列~

    足夠了^^

還有問題?馬上發問,尋求解答。