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

関連記事

[備忘録]PCからショートメッセージ(SMS)を送る方法!

文字入力が効率的 今の若い人たち、いわゆるスマホネイティブ世代はスマホから文字入力するのも苦にならないようだが、、 毎日12時間以上もパソコン使っているオジサン世代のワタシにとって、スマホからの文字入 …

[備忘録]Outlook:ロリポップで最新メールが受信できなくなった(IMAP)

今まで受信できていたが、急に出来なくなった。。 弊社にてサポート契約しているお客様から、「急にメール受信ができなくなった」と相談あり。。 詳しい経緯を確認すると、 ・メールサーバーは「ロリポップ」 ・ …

[備忘録]HTML・CSS等のコード整形ツール、DIVタグ閉じ忘れチェッカー

インデントや改行など、見やすく整形してくれる便利なサイト 既存サイトの分析やアーカイブ収集等をするのに「Website Explorer」というフリーツールを使うことがある。 無料ツールの割に多機能で …

[備忘録]Android:過去に購入したアプリを再インストールする方法

一度購入したアプリは再度課金せず再インストール可能! Androidの有料アプリを購入したが、何らかの事情で もう一度インストールしたい場合、再度課金せずにインストール可能です! Google Pla …

[備忘録]SHL25:オリジナル音源を着信音に設定する方法

シャープ「AQUOS SERIE SHL25」での設定方法 下記ブログ(*1)でも書いた自作着信音を設定していたのだが、いつの間にか別の着信音に変わってしまっていた。。 (*1):[スマホ]自作:1回 …