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回まで
  • 13歳以上
  • 登録:2013/02/02 23:36:05
  • 終了:2013/02/03 01:19:11

ベストアンサー

id:oil999 No.1

oil999回答回数1728ベストアンサー獲得回数3202013/02/03 00:28:37

ポイント300pt

これをお試しください。

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

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません