工作

VBA統計組合數。 - 工作

Valerie avatarValerie · 2013-10-06

Table of Contents

參考附件︰http://www.funp.net/32502設立二個InputBoxnum=InputBox("請選擇號碼總個數","總個數7-49")Nrange=InputBox("請輸入組合號碼個數別","輸入個數2-6")當按執行件後，num填入10；Nrange填入2後；則產生一個新檔案︰新檔案的A1︰A45有1~10的10取2不重複的45個組合。即一個組合的數字間以,分隔且一個組合一個儲存格其餘類推。當組合數每超過65000組時，則換欄呈現。EX︰num填入38；Nrange填入6後；則產生一個新檔案︰新檔案的A1︰AQ30681有1~38的38取6��
工作

All Comments

Thomas avatarThomas2013-10-07
＜測試檔＞：http://www.funp.net/1726081．記憶體要夠大，超過百萬組，不保證可正常運作2．填入組合時，速度快不了只能這樣！2013-10-1115:26:16補充：＜測試檔＞：http://www.funp.net/9199521．加入執行時間2．延用bookadd，使用sheet.copy或move好像比較慢，　　add後，自動刪除其它工作表3．填入文字串的速度找不到改進方法2013-10-1217:40:36補充：49-6測過可正常執行完畢，但為節省時間，我只讓每欄寫入300列，以我的PC等級，3欄*65000列，就要40幾秒，根本無法完整測試！
Audriana avatarAudriana2013-10-10
版大必須考慮：1.運算49-6時的記憶體容量夠不夠?2.是否超過2003版的一個工作表最大字元容量的極限?