帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-1-1 02:09 | 只看該作者

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

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

樓主熱帖

V98

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 259
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-1-1 11:42 | 只看該作者

第一條分頁線
請參閱VBA說明，此處的1就是item的值

HPageBreaks 物件成員
列印範圍內所有水平分頁符號的集合。
方法
  名稱描述
Add 會新增水平分頁符號。
屬性
  名稱描述
Application 在不搭配物件識別符號使用的情況下，這個屬性會傳回代表 Microsoft Excel 應用程式的 Application 物件。當搭配物件識別符號使用時，這個屬性會傳回 Application 物件，代表所指定物件的建立者 (這個屬性可以搭配 OLE Automation 物件一起使用，來傳回該物件的應用程式)。唯讀的。
Count 會傳回代表集合中物件數的 Long 值。
Creator 會傳回 32 位元整數，指出用以建立這個物件的應用程式。唯讀的 Long。
Item 傳回集合中的單一物件。
Parent 會傳回所指定物件的父物件。唯讀的。
其中  count是分頁線數量
   item是指定第幾條分頁線

學海無涯_不恥下問

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

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

3^#

發表於 2011-1-1 14:24 | 只看該作者

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

V98

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 259
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-1-1 23:28 | 只看該作者

回復 3# linshin1999

或許你這樣思考會好一點
分頁線是指你要分頁列印的頁與頁之間的分隔符號
當EXCEL自動分頁時，會以你上邊界與下邊界之間所能容納的列數作為預設分頁
所以，當你的內容不超過這個範圍時(一頁便能容納所有內容)
那麼並不會有分頁線的產生，所以count屬性值為0，但總頁數是1
若是你要手動加入分頁線(原本一頁的內容分成2頁)
那麼可使用ADD方法加入分頁線
加入後就會有一條分頁線
count屬性值為1，但總頁數是2
若要取得這一條分頁線，就可使用期item屬性
HPageBreaks(1)的代表意義跟 HPageBreaks.item(1)是一樣的
而Location屬性代表是分頁線所在位置，並不是指分頁線本身
HPageBreaks(1).Location 這句的解釋就是
第一條水平分頁線所在的儲存格位置

學海無涯_不恥下問

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

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

5^#

發表於 2011-1-3 00:08 | 只看該作者

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

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

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

V98

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

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

6^#

發表於 2011-1-3 13:14 | 只看該作者

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

TOP