Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10074 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【23833】改ページの挿入 sakura 05/4/5(火) 15:32 質問[未読]
【23834】Re:改ページの挿入 ウッシ 05/4/5(火) 15:48 質問[未読]
【23837】Re:改ページの挿入 ウッシ 05/4/5(火) 16:10 回答[未読]
【23871】おそくなりました sakura 05/4/6(水) 9:49 お礼[未読]
【23835】Re:改ページの挿入 IROC 05/4/5(火) 15:52 回答[未読]
【23833】改ページの挿入
質問  sakura  - 05/4/5(火) 15:32 -
引用なし
パスワード
   windows2000でexcle2002を使用しています。
固有名称をつけたワークシートで
１シートに数百名のグループがあります。
そのグループごとの最終行には「count」という文字が入ります。
　zip　　　name　address sales　 remittance
xxx-xxxx　a-name tokyo　 30,000　2,000
zzz-zzzz　b-name osaka　 10,000　　660
count　　　 2
というような具合です。
各グループのcountのあと１行空けて最終行まで改ページを挿入したいのですが、
色々調べたのですが判りません。
お手数ですがお解かりの方、記入例教えてください。
【23834】Re:改ページの挿入
質問  ウッシ  - 05/4/5(火) 15:48 -
引用なし
パスワード
   こんにちは

>各グループのcountのあと１行空けて最終行まで改ページを挿入したい
「count」はA列ですか？

「１行空けて」という事は、各グループの間には空白行が1行有るという事でしょうか？
【23835】Re:改ページの挿入
回答  IROC  - 05/4/5(火) 15:52 -
引用なし
パスワード
   これでできますか？

Dim i As Long

　　For i = 1 To Range("a65536").End(xlUp).Row
　　　　If Cells(i, 1).Value = "count" Then
　　　　　　ActiveSheet.HPageBreaks.Add Before:=Cells(i + 2, 1)
　　　　End If
　　Next i
【23837】Re:改ページの挿入
回答  ウッシ  - 05/4/5(火) 16:10 -
引用なし
パスワード
   こんにちは

[count」がA列で、グループ間に空白行が1行有るという事にすると、

Sub test()
　　Dim r　　As Range
　　Application.ScreenUpdating = False
　　For Each r In Range("A1", Range("A65536").End(xlUp)) _
　　　　　　　　　　.SpecialCells(xlCellTypeBlanks).Areas
　　　　r(2, 1).PageBreak = xlPageBreakManual
　　Next
　　Application.ScreenUpdating = True
End Sub

こんな感じでもいけると思います。
空白行が無い場合のエラートラップは入れて有りません。
【23871】おそくなりました
お礼  sakura  - 05/4/6(水) 9:49 -
引用なし
パスワード
   ウッシさん、IROCさんありがとうございます。
遅くなりました。
ウッシさん
>各グループの間には空白行が1行有るという事でしょうか？
はい、その通りです。
お二方のご提案を、これから試して見ます。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10074 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free