| |
以下のようなファイルがあります。
A B C
１ 品物：りんご
２ 産地：あおもり
３ 種別：１
４ 品物 産地
５ 新規 １ ２
６ 廃棄 １ ２
７
８ 品物：りんご
９ 産地：あきた
１０ 種別：３
１１ 品物 産地
１２ 新規 １ ３
１３ 廃棄 １ ３
１４ 新規 １ ３
１５ 廃棄 １ ３
１６
１７ 品物：りんご
: ：
： ：
２８ 品物：ばなな
２９ 産地：鹿児島
３０ 種別：５
３１ 品物 産地
３２ 新規 ３ １
３３ 廃棄 ３ １
３４
３５ 品物：ばなな
： :
新規・廃棄の欄は１２・１３・１４・１５行のように一つの産地の中で複数になる場合もあります。
同じ品物が出てくる（１・８・１７行目）数もそのときによって異なります。
品物が切り替わる部分で改ページを打ちたい（上記では２８行目でりんごからばななへと切り替わる）
ので，下記のようなマクロ構文を作成しました。
Sub Macro()
Columns("A:A").Select
Selection.AutoFilter
Range("A1:A9999").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Call Sample
ActiveSheet.ShowAllData
End Sub
===================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub Sample()
Dim Rng As Range
Dim c As Range
Dim firstAddress As String
ActiveSheet.ResetAllPageBreaks
With ActiveSheet.Range("A2:A9999").Columns(1)
Set c = .Find("品物", LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Offset(0).PageBreak = xlPageBreakManual
c.Select
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop Until c.Address = firstAddress
End If
End With
End Sub
これで，品物が切り替わる部分（上記だと２８行目）で改ページがちゃんと打たれるのですが，
同一の品物が多くなると，品物が切り替わる前のところでいちど自動的に改ページ
が打たれます。
この自動改ページが例えば，新規と廃棄の間に打たれてしまったりするのです
が，これをうまく「品物：・・」・の手前で改ページにしたい場合どのようにしたらよいのかがわかりません。
よろしくお願いします。
|
|
パトラッシュ
- 08/10/17(金) 22:18 -
