請問Hsieh版主 HPageBreaks(1).Location HpageBreak() 中的引數 1 的意義為何?
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
 
|
請問Hsieh版主 HPageBreaks(1).Location HpageBreak() 中的引數 1 的意義為何?
Hsieh版主,在自動分頁的討論中你有提到列分頁的方法:
Set ActiveSheet.HPageBreaks(1).Location = Range("A51")
HPageBreaks(1) 中的引數 1 是何意,我查不到說明,請指點為荷?
第(I)條線或工作表(I)或第(I)頁? |
|
|
V98
|
|
|
|
|
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
|
Hsieh版主,没有你的說明,不知道VBA的說明檔和Excel的說明檔是分開的,就是說Excel 活頁簿的說明檔和VBA是不同的平台,所以當我在Excel的活頁簿是找不到HPageBreaks物件的.
再回到我們的主題,分頁線的設定就像是跳頁符號一樣,可以經過運算然後給HpageBreaks當引數使用是嗎?
count 會傳回代表集合中物件數的 Long 值, 意思是如果要分頁的工作表要分50頁,那麼count的值 = 50 是嗎?說明中的物件是指每個分頁是嗎?
item傳回集合中的單一物件。是指單一分頁的Location嗎? |
|
|
V98
|
|
|
|
|
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
|
1).分頁:如以以前程式的觀點就是跳頁嗎?我要的就是跳頁控制.
2)1.EXCEL自動分頁時，會以你上邊界與下邊界之間所能容納的列數作為預設分頁.
版主Excel會在上下邊界裝滿後放上分頁線是嗎?如果這條分頁線不和使用者的意思,使用者是可以透程式定訂新的分頁如果是這樣就簡單了.(不要去理會Excel自己跑出來的分頁線就可以了)
如果Excel跳出來的分頁是(每53個Line),那我們控制的分頁小於53(例如:50),那麼我的報表檔就可以每50列跳一頁是嗎?
2)Location屬性代表是分頁線所在位置，並不是指分頁線本身
分頁線所在的位置不就是在那裡會跳一頁嗎?Location屬性代表是分頁線所在位置,在Excel的工作表不是會有一條虛線跑出來嗎?並不是指分頁線本身,他們不是一體的嗎? |
|
|
V98
|
|
|
|
|
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
|
Hsieh版主謝謝,我找到了解決方案了:
Sub 自動分頁
Dim rows_count As Long
Dim page_count As Long
Dim i As Long
Dim row_index 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 |
|
|
V98
|
|
|
|
|
發表於 2011-1-1 02:09
| 
