« ループ処理 | トップページ | 自動非表示 »

2006年3月 5日 (日)

自動改頁

「kaipage.xls」をダウンロード 
Sub 改頁()

Dim i As Integer

For i = 11 To 22

If Cells(i, 6).Value <> Cells(i + 1, 6).Value Then

    Rows(i + 1).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

End If

Next i


End Sub

これがループ処理を使った自動改頁マクロです。

サンプルの表で、一番左端の列のうち、項目の値が変わる行で改頁が入ります。

顧客リストを作成し、営業拠点別、活動月別などに改頁して印刷したい場合に重宝しています。実務では何百ページにわたることもあるのですが、手作業なんかではやってられないですよね。

|

« ループ処理 | トップページ | 自動非表示 »

コメント

Have no cash to buy a house? Worry no more, because it is achievable to get the mortgage loans to resolve such problems. Therefore take a commercial loan to buy everything you need.

投稿: CurryLydia30 | 2012年4月10日 (火) 02時36分

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/40026/926565

この記事へのトラックバック一覧です: 自動改頁:

« ループ処理 | トップページ | 自動非表示 »