入
close
分享真正的重要議題，在網路上激發起更多的正反面討論"
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
會員登入
新使用者？立即註冊
服務首頁|服務說明|Yahoo!奇摩
知識+ 首頁 知識分類 電腦網路 科學常識 醫療保健 煩惱心事 生活資訊 手機通訊 休閒嗜好 視聽娛樂 運動體育 社會人文 商業金融 教育學習 如何做 煩惱 主題知識 我要發問 發表 我要發問 熱門： NBA MLB 東北季風 黑心食用油 選舉 主題 夜空中的眾星！
知識搜尋 知識+ 首頁> 電腦網路> 軟體> 商務應用
加入追蹤 轉寄朋友 友善列印 看另一則問題
知識問題| VBA 統計組合數。 發問者： 匿名
發問時間： 2013-10-06 11:20:27
解決時間： 2013-10-13 13:24:18
解答贈點： 32 ( 共有 6 人贊助 )
回答： 1 評論： 0 意見： 6
[ 檢舉 ]
網友正面評價
100%
共有 24 人評價
不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]
參考附件︰http://www.FunP.Net/32502
設立二個InputBox
num = 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不重複的2760681個組合。
其餘類推。
產生的新檔案名稱︰"統計組合數_"& num & "-" & Nrange & ".xls"
且產生的新檔案覆蓋有相同名稱的舊有檔案。
以上需求，敬請各位VBA高手不吝賜教。謝謝!
2013-10-10 19:38:30 補充
感謝准提部林大師不吝再次賜教! 感恩^O^
測試之後，效果檔都會呈現50個Sheets︰
Sheet1=如需求的組合列表； Sheet2~ Sheet 50=空白
因為就算是以最多49-6的組合= 13983816=215欄又8816列
效果檔案也只要一個Sheet1就足夠了
所以請問︰
要消除多餘的Sheet2~ Sheet 50
貴程式碼要修改哪裡?謝謝您!
另外︰
主檔!E8=執行時間計時(00︰00︰00)
請問︰要把計時器程式碼把在哪一段?謝謝您!
在記憶體足夠的情況下
組合多的時候，執行時間當然也是會成正比
貴程式碼的執行效能已經是屬上上乘了^^
感恩^O^
2013-10-10 20:01:14 補充
准提部林大師︰
抱歉!發現會有50個Sheets的原因是出在
我常用的工作表數不定，所以新活頁簿內的工作表(S)的填入數︰50
因此貴程式碼的效果檔要如何改成Add Sheet1，然後Move?
貴語法我尚在努力研究中^^"
煩瑣之處，敬請見諒!
2013-10-12 13:16:23 補充
准提部林大師︰
新檔測試費了一點時間，回應稍遲，尚請見諒^^"
測試報告︰
39-5=8 欄又55,757 列=A1︰I55757
38-6=42 欄又30681 列=A1︰AQ30681
都沒有問題。
49-6=215 欄又8816 列
執行到BO54559=03,16,18,21,22,39會產生
執行階段錯誤'1004'︰
應用程式或物件定義上的錯誤
偵錯列35
uSht.Cells(1, x).Resize(65000) = Brr
自覺列35程式碼沒錯啊!
但49-6測試了二次，執行都是中断在同一處，實不知是何原因?
謹請再指導!感謝您!
2013-10-12 13:16:31 補充
◆49-6測試要很久，由我來測試後，再向您報告即可^^
2013-10-12 18:34:19 補充
准提部林大師︰
瞭解了^^
敬請上答!感恩^O^
2013-10-12 23:41:56 補充
TO︰KATO大大
本題主要是想研究語法
所以在下也曾流覽您在http://tw.knowledge.yahoo.com/question/question?qid=1613100302225的解答
但將程式碼39取5稍微修正為49取6，執行後卻出現警示400
看該警示說明卻一頭霧水，所以也就放棄了^^
言歸正傳︰
1.執行49-6時，有啟動工作管理員檢視效能>>CPU使用率及記憶體容量都OK
2013-10-12 23:42:04 補充
2.剛剛看了2003版的工作表的限制說明︰
Excel 的規格及限制
工作表大小︰65,536 列 * 256 欄
欄寬︰255 個字元
儲存格內容的長度 (文字)︰在一個儲存格中僅能顯示1,024 個字元；
在資料編輯列顯示全部 32,767 個字元。
所以49-6的每個儲存格僅為17個字元，應該不會超過字元容量限制。
倒是如准提部林大師所言︰單一EXCEL檔能否容納得下這些資料？
我沒有找到EXCEL 2003單一檔案的字元容量或總容量限制，
所以有可能問題是出在這裡。
還是很感謝您的提醒和回應^^
最佳解答發問者自選 回答者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
回答時間： 2013-10-13 11:19:35
[ 檢舉 ]
不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]EXCEL VBA．從１～４９數字取出２～６全部組合 (測試版)
＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■程式碼：
Public Arr%(), YY#, N1%, N2%
Sub 組合列表()
Dim PP, x%, y#, z%, Brr$(), Crr$(), TM
Dim uBook As Workbook, uSht As Worksheet
ReTry:
PP = Application.InputBox("請輸入 7~49 數字及 2~6 組合個數，並以""-""分隔，" & _
Chr(10) & Chr(10) & "例如：16-5，表示 從1~16 以 5 個號碼為組合。")
If PP = "" Or CStr(PP) = "False" Then Exit Sub
N1 = Val(Split(PP & "-", "-")(0))
N2 = Val(Split(PP & "-", "-")(1))
If N1 49 Or N2 6 Then MsgBox "輸入錯誤！": GoTo ReTry
[C4] = N1: [D4] = N2: [I4] = 0: TM = Time
YY = Application.Combin(N1, N2)
ReDim Arr(1 To YY, 1 To N2)
Call 組合序列
Application.DisplayAlerts = False
Set uBook = Workbooks.Add
For i = uBook.Sheets.Count To 2 Step -1
uBook.Sheets(i).Delete
Next i
Set uSht = uBook.Sheets(1)
ReDim Crr(1 To N2)
PP = Int((YY - 1) / 65000) + 1
For x = 1 To PP
ReDim Brr(1 To 65000, 0)
For y = (x - 1) * 65000 + 1 To x * 65000
For z = 1 To N2
Crr(z) = Format(Arr(y, z), "00")
Next z
Brr(y - (x - 1) * 65000, 0) = Join(Crr, ",")
If y >= Val(YY) Then Exit For
Next y
uSht.Cells(1, x).Resize(65000) = Brr
uSht.Columns(x).AutoFit
Next x
uBook.SaveAs ThisWorkbook.Path & "\統計組合數_" & N1 & "-" & N2 & ".xls", CreateBackup:=False
uBook.Close
[I4] = Time - TM
Erase Arr, Brr, Crr
End Sub
■說明：
１．取得〔組合序列〕子程式，請參考：
http://tw.knowledge.yahoo.com/question/question?qid=1013100604959
２．記憶體要夠大，超過百萬組，不保證可正常運作。
３．若要列出全部 13,983,816 組，須考慮單一EXCEL檔能否容納的問題？
４．每欄一次填入 65,000 組合字串，速度並不快，
本檔僅可當測試用，實用價值不高，參考即可。
５．從１～３９取出２～５組合，亦可使用測試。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：_49取N組合(分欄版).rar
下載連結：http://www.funp.net/919952
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
[ 快速連結 ] 其它回答( 0 ) | 意見( 6 ) | 評論( 0 )
發問者評價 准提部林大師︰
謝謝您再次的耐心指導! 感恩^O^
也謝謝KATO大大的建議^^ 發表你的評價
你的評價
發表評價： 正面 普通 負面
評價內容：
發表
取消
加入追蹤 轉寄朋友 友善列印 看另一則問題
馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
其他回答(0) 意見(6)
相關評論(0)
目前沒有資料
001
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-10 17:56:45
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]＜測試檔＞：
http://www.funp.net/172608
１．記憶體要夠大，超過百萬組，不保證可正常運作
２．填入組合時，速度快不了
只能這樣！
002
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-11 15:26:16
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]＜測試檔＞：
http://www.funp.net/919952
１．加入執行時間
２．延用book add，使用sheet.copy或move好像比較慢，
add後，自動刪除其它工作表
３．填入文字串的速度找不到改進方法
003
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-12 17:40:36
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]49-6 測過可正常執行完畢，但為節省時間，我只讓每欄寫入３００列，
以我的ＰＣ等級，３欄*65000列，就要４０幾秒，根本無法完整測試！
004
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-12 17:46:43
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]這種題目應由專業者來寫，才能達到最佳效果，
只是對他們來說，毫無意義，列出全部13,983,816組，又能做什麼呢？
或許要考慮：單一EXCEL檔能否容納得下這些資料？
005
意見者： KATO ( 研究生 1 級 )
擅長領域： 商務應用 | 公益彩券
發表時間： 2013-10-12 22:33:27
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]版大必須考慮：
1.運算49-6時的記憶體容量夠不夠?
2.是否超過2003版的一個工作表最大字元容量的極限?
008
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-13 11:23:48
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]49-6 取出全部 13,983,816 組合（不寫入工作表），大約１分４０秒！
＿CPU 1.5G RAM 512 + 128 MB
1
發表意見
發表意見
很抱歉，您輸入的字數已達上限，建議改寫評論
發表 取消
目前沒有資料
我要評論
最新商務應用
發問中 已解決
EXCEL公式
Word尋找/取代不規則文章(小說)標題
跪求spv檔轉xls~~~~(急)
Access2007庫存管理 問題
同系列的編號設公式
更多
WORD 2007達人您好~【全選】?這功能.在哪裡?
excel 篩選每月月底資料 20點
田口方法的直交表
EXCEL．比對不同作表〔欄位資料〕取得其中〔欄同〕資料存入
VBA~計算範圍變更後的相關程式碼修正。
更多 註冊 會員登入
公告： 新推出「知識板主功能」
10大熱搜關鍵字
1
冬天也會中暑
2
交換禮物送什麼
3
聖誕老人由來
4
鼻孔越挖越大
5
顯瘦拍照角度
6
手腳冰冷怎辦
7
保暖三層穿法
8
南半球聖誕節
9
如何練翹臀
10
小腿變細運動
刊登贊助網站正版軟體才安全 BSA全台抓盜
www.bsa.tw
BSA抓盜不手軟，員工抓公司盜版軟體享最高300萬元檢舉獎金，立即鎖定蒐證！
www.bsa.tw
2015全民電腦繪圖軟體課程
www.lccnet.com.tw
6000堂免費電腦職訓，隨身帶著走！25種熱門軟體線上輕鬆學到飽，限時申請！
www.lccnet.com.tw
AutoCAD認證只要14天!
www.pcschool-campaign3.com.tw
考取AutoCAD國際認證面試有保障，免基礎只要14天!報名就送線上免費課程
www.pcschool-campaign3.com.tw
AutoCAD電腦繪圖軟體課程
www.lccnetcad.com.tw
最新AutoCAD電腦繪圖認證培訓！填表下載免費原廠軟體，登記再送線上課程！
www.lccnetcad.com.tw
高品質客製化軟體設計-湧佳科技
www.vinca.com.tw
滿足企業營運管理所需！客製專屬企業軟體，全方位管理操作，符合實際需求高效率。
www.vinca.com.tw
EIE美語 台北專業商英課程
www.eie.com.tw
知名外商內訓課程口碑推薦！完整規劃商英外訓課程，專業培養英語專才！
www.eie.com.tw
全站發燒問題 [ 股票 ] 我想買力晶已經下市股票~有...
[ 生活法律 ] 請問 前夫過世 夫家的爸...
[ 保險 ] 適合新生兒保險
[ 保險 ] 富邦人壽理賠進度慢.......
[ 保險 ] 不知保險公司會保嗎?
[ 東北亞 ] 2015年去要帶韓國多少錢
精選關鍵字
金融 簡報 Project 文書處理 試算表 vba Visio Excel 方程式 庫存管理 Office OpenOffice Spss 符號 進銷存 Pdf PowerPoint 資料庫 專案管理 財務 Word 傳真 Access 客戶管理 會計軟體 庫存表 進銷存軟體 Outlook 知識搜尋 「本服務設有管理員」 服務條款 隱私權
知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
http://toye4441.pixnet.net/blog
http://mypaper.pchome.com.tw/mis968
http://blog.roodo.com/mis968
http://blog.sina.com.tw/mis968/
http://toye4441.pixnet.net/blog/post/108562430
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
Access Denied
--------------------------------------------------------------------------------
Description: You are not allowed to access the document you requested.
--------------------------------------------------------------------------------
會員登入
新使用者？立即註冊
服務首頁|服務說明|Yahoo!奇摩
知識+ 首頁 知識分類 電腦網路 科學常識 醫療保健 煩惱心事 生活資訊 手機通訊 休閒嗜好 視聽娛樂 運動體育 社會人文 商業金融 教育學習 如何做 煩惱 主題知識 我要發問 發表 我要發問 熱門： NBA MLB 東北季風 黑心食用油 選舉 主題 夜空中的眾星！
知識搜尋 知識+ 首頁> 電腦網路> 軟體> 商務應用
加入追蹤 轉寄朋友 友善列印 看另一則問題
知識問題| VBA 統計組合數。 發問者： 匿名
發問時間： 2013-10-06 11:20:27
解決時間： 2013-10-13 13:24:18
解答贈點： 32 ( 共有 6 人贊助 )
回答： 1 評論： 0 意見： 6
[ 檢舉 ]
網友正面評價
100%
共有 24 人評價
不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]
參考附件︰http://www.FunP.Net/32502
設立二個InputBox
num = 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不重複的2760681個組合。
其餘類推。
產生的新檔案名稱︰"統計組合數_"& num & "-" & Nrange & ".xls"
且產生的新檔案覆蓋有相同名稱的舊有檔案。
以上需求，敬請各位VBA高手不吝賜教。謝謝!
2013-10-10 19:38:30 補充
感謝准提部林大師不吝再次賜教! 感恩^O^
測試之後，效果檔都會呈現50個Sheets︰
Sheet1=如需求的組合列表； Sheet2~ Sheet 50=空白
因為就算是以最多49-6的組合= 13983816=215欄又8816列
效果檔案也只要一個Sheet1就足夠了
所以請問︰
要消除多餘的Sheet2~ Sheet 50
貴程式碼要修改哪裡?謝謝您!
另外︰
主檔!E8=執行時間計時(00︰00︰00)
請問︰要把計時器程式碼把在哪一段?謝謝您!
在記憶體足夠的情況下
組合多的時候，執行時間當然也是會成正比
貴程式碼的執行效能已經是屬上上乘了^^
感恩^O^
2013-10-10 20:01:14 補充
准提部林大師︰
抱歉!發現會有50個Sheets的原因是出在
我常用的工作表數不定，所以新活頁簿內的工作表(S)的填入數︰50
因此貴程式碼的效果檔要如何改成Add Sheet1，然後Move?
貴語法我尚在努力研究中^^"
煩瑣之處，敬請見諒!
2013-10-12 13:16:23 補充
准提部林大師︰
新檔測試費了一點時間，回應稍遲，尚請見諒^^"
測試報告︰
39-5=8 欄又55,757 列=A1︰I55757
38-6=42 欄又30681 列=A1︰AQ30681
都沒有問題。
49-6=215 欄又8816 列
執行到BO54559=03,16,18,21,22,39會產生
執行階段錯誤'1004'︰
應用程式或物件定義上的錯誤
偵錯列35
uSht.Cells(1, x).Resize(65000) = Brr
自覺列35程式碼沒錯啊!
但49-6測試了二次，執行都是中断在同一處，實不知是何原因?
謹請再指導!感謝您!
2013-10-12 13:16:31 補充
◆49-6測試要很久，由我來測試後，再向您報告即可^^
2013-10-12 18:34:19 補充
准提部林大師︰
瞭解了^^
敬請上答!感恩^O^
2013-10-12 23:41:56 補充
TO︰KATO大大
本題主要是想研究語法
所以在下也曾流覽您在http://tw.knowledge.yahoo.com/question/question?qid=1613100302225的解答
但將程式碼39取5稍微修正為49取6，執行後卻出現警示400
看該警示說明卻一頭霧水，所以也就放棄了^^
言歸正傳︰
1.執行49-6時，有啟動工作管理員檢視效能>>CPU使用率及記憶體容量都OK
2013-10-12 23:42:04 補充
2.剛剛看了2003版的工作表的限制說明︰
Excel 的規格及限制
工作表大小︰65,536 列 * 256 欄
欄寬︰255 個字元
儲存格內容的長度 (文字)︰在一個儲存格中僅能顯示1,024 個字元；
在資料編輯列顯示全部 32,767 個字元。
所以49-6的每個儲存格僅為17個字元，應該不會超過字元容量限制。
倒是如准提部林大師所言︰單一EXCEL檔能否容納得下這些資料？
我沒有找到EXCEL 2003單一檔案的字元容量或總容量限制，
所以有可能問題是出在這裡。
還是很感謝您的提醒和回應^^
最佳解答發問者自選 回答者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
回答時間： 2013-10-13 11:19:35
[ 檢舉 ]
不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]EXCEL VBA．從１～４９數字取出２～６全部組合 (測試版)
＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■程式碼：
Public Arr%(), YY#, N1%, N2%
Sub 組合列表()
Dim PP, x%, y#, z%, Brr$(), Crr$(), TM
Dim uBook As Workbook, uSht As Worksheet
ReTry:
PP = Application.InputBox("請輸入 7~49 數字及 2~6 組合個數，並以""-""分隔，" & _
Chr(10) & Chr(10) & "例如：16-5，表示 從1~16 以 5 個號碼為組合。")
If PP = "" Or CStr(PP) = "False" Then Exit Sub
N1 = Val(Split(PP & "-", "-")(0))
N2 = Val(Split(PP & "-", "-")(1))
If N1 49 Or N2 6 Then MsgBox "輸入錯誤！": GoTo ReTry
[C4] = N1: [D4] = N2: [I4] = 0: TM = Time
YY = Application.Combin(N1, N2)
ReDim Arr(1 To YY, 1 To N2)
Call 組合序列
Application.DisplayAlerts = False
Set uBook = Workbooks.Add
For i = uBook.Sheets.Count To 2 Step -1
uBook.Sheets(i).Delete
Next i
Set uSht = uBook.Sheets(1)
ReDim Crr(1 To N2)
PP = Int((YY - 1) / 65000) + 1
For x = 1 To PP
ReDim Brr(1 To 65000, 0)
For y = (x - 1) * 65000 + 1 To x * 65000
For z = 1 To N2
Crr(z) = Format(Arr(y, z), "00")
Next z
Brr(y - (x - 1) * 65000, 0) = Join(Crr, ",")
If y >= Val(YY) Then Exit For
Next y
uSht.Cells(1, x).Resize(65000) = Brr
uSht.Columns(x).AutoFit
Next x
uBook.SaveAs ThisWorkbook.Path & "\統計組合數_" & N1 & "-" & N2 & ".xls", CreateBackup:=False
uBook.Close
[I4] = Time - TM
Erase Arr, Brr, Crr
End Sub
■說明：
１．取得〔組合序列〕子程式，請參考：
http://tw.knowledge.yahoo.com/question/question?qid=1013100604959
２．記憶體要夠大，超過百萬組，不保證可正常運作。
３．若要列出全部 13,983,816 組，須考慮單一EXCEL檔能否容納的問題？
４．每欄一次填入 65,000 組合字串，速度並不快，
本檔僅可當測試用，實用價值不高，參考即可。
５．從１～３９取出２～５組合，亦可使用測試。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：_49取N組合(分欄版).rar
下載連結：http://www.funp.net/919952
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
[ 快速連結 ] 其它回答( 0 ) | 意見( 6 ) | 評論( 0 )
發問者評價 准提部林大師︰
謝謝您再次的耐心指導! 感恩^O^
也謝謝KATO大大的建議^^ 發表你的評價
你的評價
發表評價： 正面 普通 負面
評價內容：
發表
取消
加入追蹤 轉寄朋友 友善列印 看另一則問題
馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
其他回答(0) 意見(6)
相關評論(0)
目前沒有資料
001
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-10 17:56:45
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]＜測試檔＞：
http://www.funp.net/172608
１．記憶體要夠大，超過百萬組，不保證可正常運作
２．填入組合時，速度快不了
只能這樣！
002
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-11 15:26:16
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]＜測試檔＞：
http://www.funp.net/919952
１．加入執行時間
２．延用book add，使用sheet.copy或move好像比較慢，
add後，自動刪除其它工作表
３．填入文字串的速度找不到改進方法
003
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-12 17:40:36
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]49-6 測過可正常執行完畢，但為節省時間，我只讓每欄寫入３００列，
以我的ＰＣ等級，３欄*65000列，就要４０幾秒，根本無法完整測試！
004
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-12 17:46:43
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]這種題目應由專業者來寫，才能達到最佳效果，
只是對他們來說，毫無意義，列出全部13,983,816組，又能做什麼呢？
或許要考慮：單一EXCEL檔能否容納得下這些資料？
005
意見者： KATO ( 研究生 1 級 )
擅長領域： 商務應用 | 公益彩券
發表時間： 2013-10-12 22:33:27
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]版大必須考慮：
1.運算49-6時的記憶體容量夠不夠?
2.是否超過2003版的一個工作表最大字元容量的極限?
008
意見者： 准提部林 ( 大師 3 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-10-13 11:23:48
[ 檢舉 ] 不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]49-6 取出全部 13,983,816 組合（不寫入工作表），大約１分４０秒！
＿CPU 1.5G RAM 512 + 128 MB
1
發表意見
發表意見
很抱歉，您輸入的字數已達上限，建議改寫評論
發表 取消
目前沒有資料
我要評論
最新商務應用
發問中 已解決
EXCEL公式
Word尋找/取代不規則文章(小說)標題
跪求spv檔轉xls~~~~(急)
Access2007庫存管理 問題
同系列的編號設公式
更多
WORD 2007達人您好~【全選】?這功能.在哪裡?
excel 篩選每月月底資料 20點
田口方法的直交表
EXCEL．比對不同作表〔欄位資料〕取得其中〔欄同〕資料存入
VBA~計算範圍變更後的相關程式碼修正。
更多 註冊 會員登入
公告： 新推出「知識板主功能」
10大熱搜關鍵字
1
冬天也會中暑
2
交換禮物送什麼
3
聖誕老人由來
4
鼻孔越挖越大
5
顯瘦拍照角度
6
手腳冰冷怎辦
7
保暖三層穿法
8
南半球聖誕節
9
如何練翹臀
10
小腿變細運動
刊登贊助網站正版軟體才安全 BSA全台抓盜
www.bsa.tw
BSA抓盜不手軟，員工抓公司盜版軟體享最高300萬元檢舉獎金，立即鎖定蒐證！
www.bsa.tw
2015全民電腦繪圖軟體課程
www.lccnet.com.tw
6000堂免費電腦職訓，隨身帶著走！25種熱門軟體線上輕鬆學到飽，限時申請！
www.lccnet.com.tw
AutoCAD認證只要14天!
www.pcschool-campaign3.com.tw
考取AutoCAD國際認證面試有保障，免基礎只要14天!報名就送線上免費課程
www.pcschool-campaign3.com.tw
AutoCAD電腦繪圖軟體課程
www.lccnetcad.com.tw
最新AutoCAD電腦繪圖認證培訓！填表下載免費原廠軟體，登記再送線上課程！
www.lccnetcad.com.tw
高品質客製化軟體設計-湧佳科技
www.vinca.com.tw
滿足企業營運管理所需！客製專屬企業軟體，全方位管理操作，符合實際需求高效率。
www.vinca.com.tw
EIE美語 台北專業商英課程
www.eie.com.tw
知名外商內訓課程口碑推薦！完整規劃商英外訓課程，專業培養英語專才！
www.eie.com.tw
全站發燒問題 [ 股票 ] 我想買力晶已經下市股票~有...
[ 生活法律 ] 請問 前夫過世 夫家的爸...
[ 保險 ] 適合新生兒保險
[ 保險 ] 富邦人壽理賠進度慢.......
[ 保險 ] 不知保險公司會保嗎?
[ 東北亞 ] 2015年去要帶韓國多少錢
精選關鍵字
金融 簡報 Project 文書處理 試算表 vba Visio Excel 方程式 庫存管理 Office OpenOffice Spss 符號 進銷存 Pdf PowerPoint 資料庫 專案管理 財務 Word 傳真 Access 客戶管理 會計軟體 庫存表 進銷存軟體 Outlook 知識搜尋 「本服務設有管理員」 服務條款 隱私權
知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
全站熱搜
留言列表