Excel函數統計組數

Question

附件下載網址︰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的公式能一式到位最佳
如果一式到位函數無解，公式分開寫也可以
謝謝

匿名使用者 · Accepted Answer

= B1*C1 嗎 ？

2013-10-21 14:59:56 補充：
００６致歉，後來下檔就蟬了
^^

2013-10-21 16:21:36 補充：
這題可能有兩種做法，不過都不容易

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

2013-10-21 17:26:50 補充：
蟬 = 知了

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

2013-10-21 18:20:52 補充：
尚未寫，流程參考

２^10=1024

轉二進位

符合各個位數和為５的，就是 C 10 取 ５

﹏﹏﹏

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 補充：
回０２０ 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 補充：
０２５一點點小小意見供參

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 區域陣列

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

龍龍 · Answer

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鍵即顯示答案，效率超級的高^^
但不才「純金的」學不會^^"

准提部林 · Answer

COMBIN(10排,5星) = 252 個陣列乘積和？
要用到〔序列組合〕，公式難！VBA自訂函數應可行，但也不容易！

2013-10-21 18:01:38 補充：
２～１０取２～６星各種組合．．．．
利用上兩題解ｊ大的序列組合，再加入陣列乘積和自訂函數，應可達成，
但若排數及星數太多種，效能會是卡卡：
http://tw.knowledge.yahoo.com/question/question?qid=1013100604959
http://tw.knowledge.yahoo.com/question/question?qid=1013100603252

專業的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
再嚐試併成一個程序！

非正科，對〔遞迴〕完全沒概念，好像多走了遠路，
前２題借用別人的程式，COMBIN(21,6)，跑了４０幾萬圈，
還是習慣在限定條件下，以迴圈處理，可只跑54264圈，
當然，適用性就受限制啦！^ ^
EXCEL VBA好處是可個案處理，有時就不須考慮泛用性。

2013-10-22 13:54:23 補充：
覆 Worlon大師：
剛測試 IIF 確是蠻費時，也發現已使用GOTO，可以省略IIF就快很多，
若有空請診斷這檔案：４～４９取２～６組合，這樣寫有否BUG？？
http://www.funp.net/841247

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

2013-10-22 14:39:48 補充：
不是專業寫程式就會忽略重要東西,
記憶體不足,請更改指定變數類型!
Dim xBRR%(),

2013-10-25 09:43:46 補充：
０４２是神化級公式！^ ^

測試下：
783.540.3672.2160.47439 有浮點小數出現，最外層加入int就可以了！
mod 何種狀況會出現浮點數，真難掌握！

? · Answer

冰大 寫的真妙  一定懂得數學公式 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
謝謝 冰大  提供數學公式 邏輯學至 冰大

冰淇 · Answer

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 · Answer

@~@~想了一個晚上，還是沒有寫出正確答案的公式
沒幫上忙~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星各指定項目刪除後的各種表列~
足夠了^^

Excel函數 統計組數

6 個解答

Excel函數統計組數