[發問] 群組設定版面

本帖最後由 PJChen 於 2020-2-4 19:44 編輯

Dear,
我在Workbooks("Macro_T.xlsm").Worksheets("VBA").Range("P1")指定一個工作表名稱
用來設定這個檔案的所有Sheet,使版面一致
但設定都不成功,請問是哪個語法錯誤?

Sub 群組設定版面()
Dim Wb As Workbook, xActSheet As Worksheet, j As String, xi As String, x As Double, i As Long
Dim k1 As String, k2 As String, k3 As String, k4 As String, k5 As String, k6 As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False '在程序執行過程中使出現的警告框不顯示
Application.Calculation = xlManual '手動計算
Set Wb = Workbooks(Workbooks("Macro.xlsm").Worksheets("VB").Range("P1").Value) '儲存格的值為檔案名稱
j = Workbooks("Macro.xlsm").Worksheets("VB").Range("P2").Value
k1 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P3").Value
k2 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P4").Value
k3 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P5").Value
k4 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P6").Value
k5 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P7").Value
k6 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P8").Value
x1 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P9").Value
x2 = Workbooks("Macro.xlsm").Worksheets("VB").Range("P10").Value
x = Workbooks("Macro.xlsm").Worksheets("VB").Range("P11").Value
With Wb.ActiveSheet.PageSetup
For i = 2 To ActiveWorkbook.Sheets.Count '在工作表中循環
ActiveWorkbook.Sheets(i).Activate
ActiveSheet.PageSetup.PrintArea = j
.TopMargin = Application.InchesToPoints(k1) '上邊界
.BottomMargin = Application.InchesToPoints(k2) '下邊界
.LeftMargin = Application.InchesToPoints(k3) '左邊界
.RightMargin = Application.InchesToPoints(k4) '右邊界
.HeaderMargin = Application.InchesToPoints(k5) '頁首
.FooterMargin = Application.InchesToPoints(k6) '頁尾
.Zoom = x '列印縮放
.Orientation = xlLandscape '橫向列印
Next
End With
Application.ScreenUpdating = True '打開屏幕更新
Application.Calculation = xlAutomatic '自動計算
End Sub

複製代碼

群組版面A.rar (260.99 KB)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2020-2-8 21:15 | 顯示全部帖子

回復 2# jcchiang

感謝您,
測試OK了,
請問
1) 以下包起來的這個要怎麼區分, For/With的順序?我分不清楚....
2) 我有另外一個問題http://forum.twbts.com/viewthrea ... a=pageD1&page=2
關於 "刪除大於月底日的工作表"一直困擾著我,能否也幫忙看下語法,那個程式只有這個部份不成功,其他都沒問題
拜託了....

For i = 2 To Wb.Sheets.Count '在工作表中循環
Wb.Sheets(i).Activate
With Wb.ActiveSheet.PageSetup
省略....
End With
Next

複製代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2020-2-10 16:24 | 顯示全部帖子

回復 4# 准提部林

請問准大,

.TopMargin = Application.CentimetersToPoints(???)
邊界以"公分"為單位

所以這個部份不能指定在儲存格中執行是嗎? 還是要不同的語法?
k1 = Workbooks("Macro_T.xlsm").Worksheets("VBA").Range("P3").Value
k2 = Workbooks("Macro_T.xlsm").Worksheets("VBA").Range("P4").Value
k3 = Workbooks("Macro_T.xlsm").Worksheets("VBA").Range("P5").Value
k4 = Workbooks("Macro_T.xlsm").Worksheets("VBA").Range("P6").Value

TOP

PJChen