1. 程式人生 > 其它 >Excel 插入分頁符

Excel 插入分頁符

Sub 巨集1()
'
' 巨集1 巨集
'

'
    Rows("98:98").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SmallScroll Down:=-9
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 1
    ActiveWindow.SmallScroll Down:=63
    Rows("98:98
").Select End Sub Sub 巨集2() ' ' 巨集2 巨集 ' ' ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SmallScroll Down:=87 Rows("195:195").Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell Application.Goto Reference:="巨集1" Range("H195").Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:
=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell Rows("195:195").Select ActiveWindow.View = xlPageBreakPreview ActiveWindow.SmallScroll Down:
=0 Range("M204").Select ActiveWindow.SmallScroll Down:=12 Range("E226:E227").Select ActiveWindow.SmallScroll Down:=-42 Range("E171:E172").Select ActiveWindow.View = xlNormalView Application.Goto Reference:="巨集2" End Sub