Q&A
実現したいこと
やりたいことは添付画像でおおよそ
理解していただけるかと思いますが
ブックの先頭シートにシート一覧リストがありそのシートにはA列に判定行を設けて何かデータ(画像では1)がある行の
シートのみを印刷するということをやりたいと考えています。
今日丸一日試行錯誤しましたが全然進まずにいます。
参考になりそうなサイトかコードがありましたら
ご教授下さい。
また、アイディア等もお待ちしております。
よろしくお願いします。
※（リストがリンクになっているのはいろいろ試している
途中のものですので特に関係ありません。）
イメージ画像
回答2件
0
丸投げの質問は非推奨ですのて、次回からは自分で調べて少しでもコードを書いて質問するようにしましょう。
いろいろ書き方はありますが、下記は一つのコード例です。
vba
1Sub tttt() 2 Dim printSheets() As String, rng As Range, cnt As Long 3 For Each rng In Worksheets(1).Range("A1").CurrentRegion.Rows 4 ReDim Preserve printSheets(cnt) 5 If rng.Cells(1, 1) <> "" Then 6 printSheets(cnt) = rng.Cells(1, 2) 7 cnt = cnt + 1 8 End If 9 Next 10 11 Worksheets(printSheets).PrintPreview 12 13End Sub
投稿2019/09/27 18:15
総合スコア34073
0
シートを取得して
https://www.tipsfound.com/vba/10001
そのシートを印刷すればいいのではないでしょうか。
http://officetanaka.net/excel/vba/sheet/sheet08.htm
投稿2019/09/27 09:26
総合スコア279
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。