●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

265:デフォルトの名無しさん
07/06/29 20:11:27
エクセル２００３、ウィンＸＰです。
以下の様なマクロを作成しました。
データの抽出後に、可視セルの値を順に特定セルに入れて、
印刷したいのですが、思った様に動作しません・・・。
どなたか、お知恵を！

Sub 抽出と印刷()

'書類作成用にデータを抽出。
'シート1のＢＰ列がゼロで無いものを抽出。

Sheets("シート１").Columns("BP:BP").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd

'抽出されたリストのＢＰ列の値をシート２のＤ６８に順番に入れて、２枚ずつ印刷する。
‘抽出から除外された行は印刷からも除外したいので、可視セルだけで処理したい。

Dim i As Long
For i = 2 To Worksheets("シート１").Cells(Worksheets("シート１").Rows.Count, 1).End(xlUp).SpecialCells(xlCellTypeVisible).Row
Worksheets("シート2").Range("D68").Value = Worksheets("シート1").Cells(i, 1).SpecialCells(xlCellTypeVisible).Value

'印刷処理をします。
Sheets("シート２").PrintOut copies:=2, Collate:=True, preview:=True

Next i

End Sub

次ページ