Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65654 / 76807

←次へ　｜　前へ→


	【15727】Re:マクロでﾃﾞｰﾀの異なるセル毎に印刷したい

kein - 04/7/4(日) 14:12 -


	引用なし

	パスワード

仮に「キーになるグループが B列に入力されている & 1行目が項目」として、

Sub Test_Print()
　 Dim MyR As Range, C As Range

　 Set MyR = Range("A1").CurrentRegion
　 Application.ScreenUpdating = False
　 MyR.Sort Key1:=Range("B1"), Order1:=xlAscending, _
　 Header:=xlYes, Orientation:=xlSortColumns
　 On Error Resume Next
　 With Range("B1", Range("B65536").End(xlUp))
　　　.AdvancedFilter xlFilterCopy, , Range("BA1"), True
　　　For Each C In Range("BA2", Range("BA2").End(xlDown))
　　　　 .AutoFilter 1, C.Value
　　　　 MyR.SpecialCells(12).PrintPreview 'PrintOut Copies:=1
　　　　 ActiveSheet.AutoFilterMode = False
　　　Next
　 End With
　 Range("BA:BA").ClearContents
　 Set MyR = Nothing: Application.ScreenUpdating = True
End Sub

本番で印刷するときは、PrintPreview　を消して　PrintOut Copies:=1　に
変更して下さい。　なお、どの列がグループの基準であっても "1行目が項目" に
なっていることが必須の条件です。　

2 hits

▼

【15726】マクロでﾃﾞｰﾀの異なるセル毎に印刷したい さき 04/7/4(日) 13:37