麻辣家族討論版版 » Excel程式區 » 請教工作表間切換的問題

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 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多次，將會耗費許多時間，請問有什麼方法可以縮短產出報表時間??

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

複製代碼

收藏

大學生 Rank: 4

帖子: 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張，最好附檔看看

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

小學生 Rank: 1

帖子: 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次貼上表格，然後，再把資料放進去每張表格的欄內，工作表切換可以了，謝謝高手!!

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

4^#

發表於 2016-1-30 09:33 | 只看該作者

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

靜思自在 : 是非當教育，讚美作警惕。

返回列表下一主題上一主題