ExcelVBAで印刷対象シートの条件判定に関して

Question

japan-nan

31

31もっと見る

300pt

コンピュータ

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

回答の条件

1人5回まで

登録：2013/02/02 23:36:05
終了：2013/02/03 01:19:11

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

oil999 · Accepted Answer · 2013-02-03T00:28:37+09:00

これをお試しください。

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

ExcelVBAで印刷対象シートの条件判定に関して

ベストアンサー

oil99917283202013/02/03 00:28:37

コメント（0件)

この質問への反応（ブックマークコメント）