請問Hsieh版主 HPageBreaks(1).Location HpageBreak() 中的引數 1 的意義為何?

linshin1999

Hsieh版主,在自動分頁的討論中你有提到列分頁的方法:
Set ActiveSheet.HPageBreaks(1).Location = Range("A51")
HPageBreaks(1) 中的引數 1 是何意,我查不到說明,請指點為荷?
第(I)條線或工作表(I)或第(I)頁?

linshin1999

Hsieh版主,没有你的說明,不知道VBA的說明檔和Excel的說明檔是分開的,就是說Excel 活頁簿的說明檔和VBA是不同的平台,所以當我在Excel的活頁簿是找不到HPageBreaks物件的.
再回到我們的主題,分頁線的設定就像是跳頁符號一樣,可以經過運算然後給HpageBreaks當引數使用是嗎?
count 會傳回代表集合中物件數的 Long 值, 意思是如果要分頁的工作表要分50頁,那麼count的值 = 50 是嗎?說明中的物件是指每個分頁是嗎?
item傳回集合中的單一物件。是指單一分頁的Location嗎?

linshin1999

1).分頁:如以以前程式的觀點就是跳頁嗎?我要的就是跳頁控制.

2)1.EXCEL自動分頁時，會以你上邊界與下邊界之間所能容納的列數作為預設分頁.
版主Excel會在上下邊界裝滿後放上分頁線是嗎?如果這條分頁線不和使用者的意思,使用者是可以透程式定訂新的分頁如果是這樣就簡單了.(不要去理會Excel自己跑出來的分頁線就可以了)
如果Excel跳出來的分頁是(每53個Line),那我們控制的分頁小於53(例如:50),那麼我的報表檔就可以每50列跳一頁是嗎?

2)Location屬性代表是分頁線所在位置，並不是指分頁線本身
分頁線所在的位置不就是在那裡會跳一頁嗎?Location屬性代表是分頁線所在位置,在Excel的工作表不是會有一條虛線跑出來嗎?並不是指分頁線本身,他們不是一體的嗎?

linshin1999

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