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変換できました!
    ありがとうございました( ;∀;)

関連記事

[備忘録]Gmailを送受信できない場合の対処(安全性の低いアプリのアクセス)

勝手に「無効」に変わってしまう。。 Gmailを 秀丸メールからPOP/SMTPアクセスで送受信している。 が、今まで問題なく送受信できていたものが、突然NGとなることが稀にある。 そのときの 秀丸メ …

[備忘録]Windows10で「コントロールパネル」を開く方法

やたら分かりにくくなったコントロールパネルの開き方 Windows7まではスタートメニューから簡単に開けていたコントロールパネルだが、Windows8、Windows10と進化(改悪!?)していくうち …

[備忘録]PowerPoint:ブック全体のフォントを一括置換する方法

別パソコンで作ったPPTファイルはフォントが無い場合も。。 数年前に作った あるシステムのマニュアルを追記しようとして開いたら、、使われていたフォントが現在のPCにはなく意図した見栄えにならない。。 …

[備忘録]Excel:セルの値によって色を変える方法

Excel2007での設定方法 ここでは、セルの値が「土」または「日」なら、当該セルを「グレー」に塗りつぶす方法を。 「条件付き書式」で設定する ・対象となるセルを選択し、「スタイル」の「条件付き書式 …

[備忘録]PDFファイルのパスワード解除方法

PDFを開く度にPW入力するのは非効率。。 PDFファイルを開く際にパスワードの入力を求められることがある。 多くは、メール添付などで(秘)扱いの書類などを送る時に、誤って流出したりするのを防ぐ目的だ …