返回列表 上一主題 發帖

[發問] 請教工作表間切換的問題

cmark3300

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win xp 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2016-1-28 
最後登錄
2016-1-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-1-28 11:10 | 只看該作者

[發問] 請教工作表間切換的問題

[版主管理留言]
  • GBKEE(2016/1/30 15:13): 檔案須用壓縮檔上傳

我的程式是列印大約需500張的表格，所以先在1.”用水資料”的sheet計算完畢後2.新增(mySheet")工作表3.設定各列欄寬4.切換回("水單列印表格")的工作表，將原本畫好的表格(Range("A1:H24")，複製5.再回(mySheet")貼上500張，可是現在問題是，第了第5個程序，書面及作用工作表還是停留在("水單列印表格")的工作表上，不知哪裡出問題，初學新手，請教高手們!!
:L
另外請問,表格以複製貼上500多次，將會耗費許多時間，請問有什麼方法可以縮短產出報表時間??
  1. Sub 新增工作表()
  2. Dim StBase As String, myInc As Integer
  3. Dim mySheet As Worksheet
  4. Set mySheet = Worksheets.Add
  5. Total_People = Sheets("用水資料").Range("d7").Value
  6. StBase = "收費單"
  7. myInc = 1
  8. On Error Resume Next
  9. mySheet.Name = StBase & myInc
  10. Do Until Err.Number = 0
  11. Err.Clear
  12. myInc = myInc + 1
  13. mySheet.Name = StBase & myInc
  14. Loop
  15. Sheets("mySheet").Select
  16. <<設定各列欄寬>>
  17. ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
  18. Sheets("水單列印表格").Select  這裡的sheet可以呼叫出來
  19. Range("A1:H24").Select
  20. Selection.Copy
  21. Sheets("mySheet").Select 但這裡的sheet就叫不出來??
  22. o = 1
  23. For y = 1 To Total_People
  24. Cells(o, 1).Select
  25. ActiveSheet.Paste
  26. o = o + 24
  27. Next y
複製代碼
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-1-28 11:34 | 只看該作者
回復 1# cmark3300
不是 Sheets("mySheet").Select
雙引號內是指 收費單1 , 收費單2.... 這些名稱
應該是用 mySheet.Select

另外程式看不到複製500張，最好附檔看看
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

cmark3300

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win xp 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2016-1-28 
最後登錄
2016-1-28 
3#
發表於 2016-1-28 12:11 | 只看該作者
抱歉，說的不是很清楚，上面Total_People的值每次跑出來，都會在500上下，所以迴圈會跑了500次貼上表格，然後，再把資料放進去每張表格的欄內，工作表切換可以了，謝謝高手!!

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-17 
4#
發表於 2016-1-30 09:33 | 只看該作者
若是純分開列印需求，只要一張〔資料來源表〕及一張〔列印套表〕即可，
沒有檔案，沒有詳細說明，啥也辦不了！！！

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題