VBA備忘録『ファイルをPDF出力・ファイル名はセル参照』

はじめに.

Excelをゴリゴリ使う方、あまり使わない方様々かと思いますが、『業務上よくPDF化するよ』という方にオススメです。
そのまま使えるので記述例を載せておきます。(自身の備忘も含めですが💦)

下記コードは実行確認・完了のメッセージウィンドウ付きです。PDF化したファイルは実行ファイルと同じ場所に作成されます。
ファイル名は方法は色々あるかと思いますが、指定のセルの値をファイル名にする流れにしました。

Sub PDF出力()

    '対象シート名
    Dim ShName As String
    ShName = "ここに実際のシート名"
    
    '実行確認　メッセージ表示
    If MsgBox(ShName & "シートをPDF形式で出力します。よろしいですか？", vbQuestion + vbYesNo) = vbNo Then
        MsgBox "PDF出力を中止しました。"
        Exit Sub
    End If
   
    '出力処理
    
    Dim TargetName As String
    'ファイル名にするセルを変数へ格納
    TargetName = Cells(1, 1)
    
    '名前をつけて保存
    Application.DisplayAlerts = False
  
   '出力処理
    Sheets(ShName).ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\" & TargetName & ".pdf"

    
    Application.DisplayAlerts = True
    MsgBox "PDF出力が完了しました"

End Sub

解説:

①マクロ準備

ファイルはあらかじめマクロ有効のものを用意してください。(拡張子.xlsm もしくは .xlsb)
マクロの記録で空のマクロを記録します。(マクロ名は任意で決めてください)

②ファイル名を決める

 TargetName = Cells(1, 1)
『Cells(1, 1)』の()内は、『(行,列)』です。逆にしないよう注意です！！
サル🐒
セルA１なら(1,1)、セルB3なら(3,2)ですね。

③コード追記

一度登録したマクロを編集で開き、上記のコードを貼り付けます。
Sub PDF出力()で始まり、End Subで締めます。

▼▼▼▼
後は、実行するのみです。
お好みでマクロ付ボタンを設置してもいいと思います。

ご覧いただきありがとうございました。