人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ExcelVBAで印刷対象シートの条件判定に関して
2つのシート(発注書、発注請書)に関しては、必ずPDF発行するのですが、
3つめのシート(明細)に関しては、シートのセル(D1)に○が入っているものだけをPDF発行としたいです。
※○が入力されていない場合は、×が入力されています。
---------------------------------------------------------------------
Dim s As String
Sheets(Array("発注書", "発注請書", "明細")).Select
Sheets("新表紙").Activate
s = "提示資料_" & Format(Range("B1")) & "_" & Format(Date, ("yyyymmdd")) & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
s, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

●質問者: japan-nan
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● oil999
●300ポイント ベストアンサー

これをお試しください。

Sub main()
 Dim s As String
 Dim f As String
 Sheets(Array("発注書", "発注請書", "明細")).Select
 Sheets("明細").Activate
 If (Range("D1").Value = "○") Then
 Sheets("新表紙").Activate
 s = "提示資料_" & Format(Range("B1")) & "_" & Format(Date, ("yyyymmdd")) & ".pdf"
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 s, Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False
 End If
End Sub
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ