Excel VBA質問箱 IV

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

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


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

8482 / 76732

←次へ　｜　前へ→


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

nonoka - 13/2/17(日) 16:29 -


	引用なし

	パスワード

▼UO3 さん：

前回ご教授頂いたコードでいろいろ検証して、様々な問題点が出来きまして、
コード自動生成で出来る範囲でやってみたコードが下記です。
このコードをＬ列に出てくる可能性のある数だけ繰り返そうと思ってます。
その際、OGがなかったりする時が出てきた際に下記にIFでコードを入れようとおもうのですが・・・。

VBAプロの方には物足りないというか邪道のような方法かもしれませんが、
とりあえず勉強の為に自分なりにやってみました。

'OGプリント
　 Sheets("Schedule").Select
　　ActiveSheet.Range("$L$9:$L$2000").AutoFilter Field:=1, Criteria1:="OG"
　　Range("B10:M2000").Select
　　Selection.Copy
　　
　　Sheets("print").Select
　　Range("B7").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　
　　Application.CutCopyMode = False
　　
　　Range("B3:F3").Select
　　Selection.ClearContents
　　ActiveCell.FormulaR1C1 = "OPEN"
　　
　　ActiveSheet.PrintPreview　　'プリントプレビュー表示

　　
　　Range("B7:M1000").Select
　　Selection.ClearContents
　　Range("A1").Select
　　
　　Sheets("Schedule").Select
　　ActiveSheet.Range("$L$9:$L$2000").AutoFilter Field:=1
　　Range("A1").Select

322 hits

▼

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