次の方法で共有


Worksheet.HPageBreaks プロパティ (Excel)

シートの水平方向の改ページを表す HPageBreaks コレクションを返します。 読み取り専用です。

構文

HPageBreaks

Worksheet オブジェクトを表す変数。

注釈

1 つのシートに使用できる水平な改ページの数は 1026 です。

次の使用例は、全画面表示および印刷領域での水平な改ページ数を表示します。

For Each pb in Worksheets(1).HPageBreaks 
    If pb.Extent = xlPageBreakFull Then 
        cFull = cFull + 1 
    Else 
        cPartial = cPartial + 1 
    End If 
Next 
MsgBox cFull & " full-screen page breaks, " & cPartial & _ 
    " print-area page breaks"

次の使用例では、列 A のセルの値が変更されたときに改ページを追加します。

Sub AddPageBreaks() 
    StartRow = 2 
    FinalRow = Range("A65536").End(xlUp).Row 
    LastVal = Cells(StartRow, 1).Value 
    For i = StartRow To FinalRow 
    ThisVal = Cells(i, 1).Value 
    If Not ThisVal = LastVal Then 
    ActiveSheet.HPageBreaks.Add before:=Cells(i, 1) 
    End If 
    LastVal = ThisVal 
    Next i 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。