CEOブログ

横浜で活躍するホームページ作成・開発会社アットライズの代表取締役社長(CEO)が綴る、日々の奮闘記!!

備忘録

[備忘録]Excel:ワークシート別にPDF出力する方法

投稿日:

マクロで実現可能!

参考:https://www.ymbtax-blog.com/to-pdf-from-excel-worksheet/

事前準備

・ツールバーの「開発」をクリック(「開発」タブがない場合は上記参考サイトを参照願います)

・「マクロのセキュリティ」→「警告を表示してすべてのマクロを無効にする」をON
・[Alt]+[F11]を押してVBEを起動
・「ツール」→「オプション」→ [編集]タブで、「自動構文チェック=OFF」「変数の宣言を強制する=ON」

VBEで編集

・[Alt]+[F11]を押してVBEを起動
・[Alt]+[I][M]を押してエディタを起動(モジュール作成)
・ワークシート別にPDF変換するスクリプト(下記)を記載し保存

Sub ワークシートごとにPDFに変換()
Dim i As Long
For i = 1 To Worksheets.Count
  Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & _
  Worksheets(i).Name, _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, OpenAfterPublish:=True
Next i
End Sub

マクロの起動(PDF作成)

・「開発」→「マクロ」→「 ワークシートごとにPDFに変換」を「実行」
  → Excelファイルと同じフォルダに、「シート名.pdf」ファイルが作成される!
 
 

-備忘録


  1. まきりん より:

    すごい!
    簡単にシート別にPDF変換できました!
    ありがとうございました( ;∀;)

関連記事

[備忘録]Windows:コマンドプロンプト フォルダ一括削除「rmdir」

エクスプローラで削除すると、とんでもない時間がかかる。。 バックアップファイルなどを管理していると、フォルダ一括でまとめて削除したい時がある。 ちょっとしたファイルやフォルダの削除なら、エクスプローラ …

[備忘録]Windows:プロセスが起動しているか定期的に調べる方法

「AutoHotkey」というツールを使ってキーボードのカスタマイズをしている、と以前のブログに書いた。 (*1) ブログ「キーボード:日本語モードでも[,][:][=]を半角で入力したい!」 ところ …

[備忘録]Excel:セル背景色が「黄色」のセル数をカウントする方法

VBAマクロを組む ある会合の出欠リストで、会合の出欠の他に「懇親会」の出欠も合わせて記録し、それぞれの人数を把握する必要があった。 ○:会合出席 △:会合オンライン出席 黄色:懇親会参加   例えば …

[備忘録]Googleアナリティクス:アカウント共有方法

サイト管理会社と共有する時などに Googleアナリティクスを、例えばWebサイトの管理会社と共有したい時などに「アカウント共有方法」を。 ・Googleアナリティクスにログインし、左下の歯車マークを …

[備忘録]ChatGPTで学習させない方法

個人情報や固有名詞は避けるのが無難 日々の業務でChatGPTが欠かせなくなってきているが、、一つ難点は入力情報が学習データとして使われること。 一般的な情報なら何ら問題ないが、個人情報や固有名詞が入 …