- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
 
|
這是 vba 的做法
Sub 自動分頁
Dim rows_count As Long
Dim page_count As Long
Dim i As Long
Dim str_row_index As String
Dim first_row As Long
ActiveWindow.View = xlPageBreakPreview
rows_count = Range("A1").CurrentRegion.Rows.Count
first_row = 50
For i = first_row To rows_count Step 50
page_count = page_count + 1
str_row_index = "A" + Trim(Str(i + 1))
Set ActiveSheet.HPageBreaks(page_count).Location = Range(str_row_index)
Next i
ActiveWindow.View = xlNormalView
End Sub |
|
發表於 2011-1-4 16:00
| 