標題: [發問] 請教工作表間切換的問題 [打印本頁]

---

作者: cmark3300    時間: 2016-1-28 11:10     標題: 請教工作表間切換的問題

我的程式是列印大約需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    時間: 2016-1-28 11:34

回復 1# cmark3300
不是 Sheets("mySheet").Select
雙引號內是指 收費單1 , 收費單2.... 這些名稱
應該是用 mySheet.Select

另外程式看不到複製500張，最好附檔看看

---

作者: cmark3300    時間: 2016-1-28 12:11

抱歉，說的不是很清楚，上面Total_People的值每次跑出來，都會在500上下，所以迴圈會跑了500次貼上表格，然後，再把資料放進去每張表格的欄內，工作表切換可以了，謝謝高手!!

---

作者: 准提部林    時間: 2016-1-30 09:33

若是純分開列印需求，只要一張〔資料來源表〕及一張〔列印套表〕即可，
沒有檔案，沒有詳細說明，啥也辦不了！！！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)