Excel VBA質問箱 IV

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

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


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

8549 / 76732

←次へ　｜　前へ→


	【73753】Re:複数ソートして別々に印刷

nonoka - 13/2/8(金) 16:14 -


	引用なし

	パスワード

▼UO3 さん：

こんな感じでしょうか？

Sub プリント()

　　Range("L9").Select

　　Range("L9:L2000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True　　'一意の値抽出してprintへｺﾋﾟｰ
　　Range("L10:L2000").Select
　　Selection.Copy
　　Sheets("print").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheets("Schedule").Select
　　Application.CutCopyMode = False
　　ActiveSheet.ShowAllData
　　
　　ActiveSheet.Range("$A$9:$M$2000").AutoFilter Field:=12, Criteria1:="FS"　　'選択
　　ActiveWindow.SmallScroll Down:=-3
　　
　　ActiveSheet.PrintPreview　　'プリントプレビュー表示
　　
　　ActiveSheet.Range("$A$9:$M$2000").AutoFilter Field:=12　　'フィルター解除
　　Range("A1").Select
　　
　　Sheets("print").Select　　　'コピーしたデータを削除
　　Range("A1:A14").Select
　　Selection.ClearContents
　　Range("A1").Select
　　Sheets("Schedule").Select
　　Range("A1").Select
　　　　
End Sub

285 hits

▼

【73747】複数ソートして別々に印刷 nonoka 13/2/8(金) 11:28