|
>オートフィルタで12行ずつ選んで印刷しようとしています。
>1以上〜12以下、13以上〜24以下、25以上〜36以下・・・
これと、
>1列目は、7行目に項目、8行目からデータが入っていて、印刷が必要な行に1が入るようにしています。
これがどうつながるのか良くわかりません。
んで、適当に解釈してみました。
フィルタされている範囲を12行づつ選択。
Dim Are As Range, Rng As Range, Cel As Range, i As Long
ActiveSheet.AutoFilterMode = False
Range("A1").AutoFilter Field:=2, Criteria1:="1"
'↑
'この部分は、動作にあったものに変えてください。
i = 0
With ActiveSheet.AutoFilter.Range
With .Offset(1).Resize(.Rows.Count - 1)
With .Columns(1).SpecialCells(xlCellTypeVisible)
For Each Are In .Areas
For Each Cel In Are
i = i + 1
If i = 1 Then
Set Rng = Cel
Else
Set Rng = Union(Rng, Cel)
End If
If i = 12 Then
Rng.EntireRow.Select
MsgBox "OK"
i = 0
Set Rng = Nothing
End If
Next
Next
If Not Rng Is Nothing Then
Rng.EntireRow.Select
End If
End With
End With
End With
|
|