- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- win xp
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-1-28
- 最後登錄
- 2016-1-28
|
我的程式是列印大約需500張的表格，所以先在1.”用水資料”的sheet計算完畢後2.新增(mySheet")工作表3.設定各列欄寬4.切換回("水單列印表格")的工作表，將原本畫好的表格(Range("A1:H24")，複製5.再回(mySheet")貼上500張，可是現在問題是，第了第5個程序，書面及作用工作表還是停留在("水單列印表格")的工作表上，不知哪裡出問題，初學新手，請教高手們!!
:L
另外請問,表格以複製貼上500多次，將會耗費許多時間，請問有什麼方法可以縮短產出報表時間??- Sub 新增工作表()
- Dim StBase As String, myInc As Integer
- Dim mySheet As Worksheet
- Set mySheet = Worksheets.Add
- Total_People = Sheets("用水資料").Range("d7").Value
- StBase = "收費單"
- myInc = 1
- On Error Resume Next
- mySheet.Name = StBase & myInc
- Do Until Err.Number = 0
- Err.Clear
- myInc = myInc + 1
- mySheet.Name = StBase & myInc
- Loop
- Sheets("mySheet").Select
- <<設定各列欄寬>>
- ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
- Sheets("水單列印表格").Select 這裡的sheet可以呼叫出來
- Range("A1:H24").Select
- Selection.Copy
- Sheets("mySheet").Select 但這裡的sheet就叫不出來??
- o = 1
- For y = 1 To Total_People
- Cells(o, 1).Select
- ActiveSheet.Paste
- o = o + 24
- Next y
|
|
發表於 2016-1-28 11:10
| 
