ID非公開

2022/7/6 8:45

22回答

Excel(VBA)でご相談させてください。 (sheet1)(sheet2)(sheet3)(sheet4)(sheet5)があります。sheet名は変更しています。

Excel70閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございます。上手く動きました。

お礼日時:7/7 9:00

その他の回答(1件)

0

要するに、 Sheet2~Sheet5→PDF 印刷 を行いえばいいのですね。 印刷途中で失敗して再開する時の為、開始シート入力を付けました。 Option Explicit ' Sub Macro1()     Dim Sheet As Variant '     Sheet = InputBox("開始シートを入力して下さい", "PDF 作成、印刷", 2)     Sheet = Val(Sheet) '     If Sheet = 0 Then         End     End If '     For Sheet = Sheet To 5         Sheets(Sheet).ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & _             "\番号" & [Sheet1!B8] & "_" & [Sheet1!B6] & "様_" & _             Sheets(Sheet).Name, OpenAfterPublish:=True         Sheets(Sheet).PrintOut     Next Sheet End Sub