Airman
Lv 4
Airman 發問時間: 電腦與網際網路軟體 · 8 年前

VBA~增加一個機率檔案(2個工作表)的語法。

參考附件︰http://www.funp.net/370880

★格式和流程可依解答者所需做任何變更。

需求︰

各資料夾內增加一個機率檔案~內有2個工作表。

檔案名稱︰TEST_mthcount期_P

說明︰

以mthcount=933為例~

機率檔案名稱︰TEST_933期_P

2個工作表內容︰

Sheet 1

A10= Select 1

A11:A59=為各效果檔案之單工作表的F12的號碼~

~即推測號碼~最多為49個~01~49(由小而大往下排列且不重複)

A1=中獎號碼

A2:A8=當A11:A59之值=各同個工作表的"B"& mthcount + 3 - strrng的值~

最多7個(由小而大往下排列且不重複)

B1=中獎比率

B2=SUM(A2:A8)/SUM(A11:A59)

B10=期數&工作表

將A11值顯示在各工作表的起始期及工作表名稱之組合,顯示在B11;

並以每個儲格30組為限;續格橫列~

EX︰假設顯示A11值的組合共有72組(起始期數_工作表名稱),

就由B11橫列到B13~即B11有30組,C11有30組,D11有12組。

EX︰假設顯示A12值的組合共有50組(起始期數_工作表名稱),

就由B12橫列到C12~即B12有30組,C12有20組。

…以此類推。

Sheet 2

A10=Select 1

A11:A59=為各效果檔案之單工作表的F13的號碼~

~即推測號碼~最多為49個~01~49(由小而大往下排列且不重複)

A1=中獎號碼

A2:A8=當A11:A59之值=各同個工作表的"B"& mthcount + 3 - strrng的值~

最多7個(由小而大往下排列且不重複)

B1=中獎比率

B2=SUM(A2:A8)/SUM(A11:A59)

B10=期數&工作表

A11:Bn邏輯和Sheet1的邏輯相同。

請詳見附件︰TEST_933_P(A11:Bn)

以上 敬請各位前輩不吝賜教! 謝謝!

已更新項目:

機率檔案名稱︰TEST_933期_P

http://www.funp.net/695312

4 個解答

評分
  • 顯栓
    Lv 7
    8 年前
    最佳解答

    詳細參考:http://tco.cseintltd.com.tw/applerot/VBA/Air_Man/M... 7個(由小而大往下排列且不重複)3. B2=SUM(A2:A8)/SUM(A11:A59)尚未處理,請視需要自行處理.

  • KATO
    Lv 5
    8 年前

    這一題看似需求很簡單~但實際不然~

    光是讀取各效果檔案之單工作表的F12和F13的號碼~

    小弟研究了老半天,還是不得其門而入。

    ^^"

    已經是專家級的知識者~竟然會有如此〔無名〕的舉措~

    實令人訝異和遺憾!

    但對此類人也無須多費口舌~因為他不會回頭(檢討)看的。

    2013-01-05 19:41:31 補充:

    Air大人:

    您的B2=SUM(A2:A8)/SUM(A11:A59)的比率需求~

    有點怪怪的?總感覺是有哪裡不對勁?

    ^^

    2013-01-05 20:12:47 補充:

    Air大人:

    瞭解!

    但只能說小弟是一個又土又直的人^^"

    有好版路~請記得不吝分享~加油囉~

    祝好運^^

  • Airman
    Lv 4
    8 年前

    准大:

    性情中人也~讚..........b^_^d

    支持「實際看過」解答且「真正瞭解」答案之所言為何?

    再給予自認為適當的正確評價~這樣無論是給予正,普,負之評價~

    方能給予回答者真正的鼓勵或激勵。

    ^^

    2013-01-05 20:03:02 補充:

    K兄︰

    呵~呵~見笑了~小弟公式寫錯了^^"

    應該是B2=IF(A11<>"",COUNT(A2:A8)/COUNT(A11:A59),"")

    只是知識長和您都有涵養且客氣~沒點破~

    而委婉的以「尚未處理,請視需要自行處理.」或您的「有點怪怪的」來提醒告知。

    ^^

  • 8 年前

    ˊ_>ˋ ( 專家 4 級 ) 大大:

    大大如果認為回答不夠好,請提出專業看法,

    或者也寫一段來嘉惠提問者及見聞者,則必致上感恩之意!

    不要學那些不公開知識檔案,專門亂評價的人,壞了自己風格!

    躲貓貓嗎?~~

    ~~光天化日羞羞隱,夜來牆腳疾疾行

    也許大大根本不看回答內容及意見,

    但還是奉上一句〔請以善為本,善以為之〕!

    如上,謹為認真奉獻知識的大大們打打氣!

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