2つのページ区切りの間の範囲を定義します。

Question

私は、複数のページ区切りで区切られたExcelシートを持っています - 列Cの各変更（列Cは特定のProjecIDを表します）。

テーブルの各行には、一定額が費やされています。この金額は列Qに格納されます（注 - プロジェクトごとに複数の行があります - 列Qの金額）。

1つのプロジェクト（列C）あたりの小計量（列Q）が< 0または> 0である場合、その範囲内で異なる操作を実行する必要があります。

質問 - （2つのページ区切りの間に）これらの範囲をループして小計の量を確認し、各範囲内の行に対して適切な操作を実行するにはどうすればよいですか？カウントされません、あなたが分割したい場所からセルを選択します。

は

Sub PageBreak()  
Dim CellRange As Range 
Dim TestCell As Range 

Set CellRange = Selection 
For Each TestCell In CellRange 
    ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakNone  
    If TestCell.Value <> TestCell.Offset(-1, 0).Value Then 
     ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakManual   
    End If  
Next TestCell 
End Sub 

NB、

Answer 1

次のコードは、あなたが範囲を設定することができ、以前のすべてのページ&を削除し、事前にありがとうCol見出しは、国名が2〜30行の列Dにある場合と同様に、D3〜D30の範囲を選択します。

Answer 2

これを試してください。すべてのシートから改ページを削除します。それが役に立てば幸い。

 Sub PageBreak() 

     Dim ws As Worksheet, tws As Worksheet 
      Set tws = ActiveSheet 
      For Each ws In Worksheets 
       ws.Activate 
       ActiveWindow.View = xlPageBreakNone 
       Next ws 
       tws.Activate 
     End Sub