オススメの暗号資産交換所
みっんな使ってる
イーサリアムが安い
暗号資産銘柄の取り扱い数No.1
オススメのブログテーマ
早めに始めないと損
誰でも1,500円もらえる
当サイトのレンタルサーバー
『ながら読書』最強！
3行ですぐにできる！ExcelシートをPDFで保存するExcelマクロがある！【朝勉累計4,140分】
当ページのリンクには広告が含まれています。
おまえ、まだExcelシートをPDFにする作業で消耗してるの？
いい方法があるんだぜ！
この記事ではこんな彼女のお悩みを解決します。
どうもヤドリです。
この記事を書いた人
- 2児のアラフォーパパが2021年8月にブログで副業開始
- 西野亮廣オンラインサロンメンバー
- 「朝30分」を始めなさい！を実践中
- ブログの収益は2桁、毎日更新12ヶ月（365記事）達成
Twitter：(@yadori816)
【ヤドリブログからのお願い】
最後まで読んでこの記事悪くないねぇと思われたら、以下の商品リンクから商品購入にご協力お願いします。
いやいや、購入はコーヒーじゃなくても大丈夫です。
¥2,580 （2023/02/26 03:25時点 | Amazon調べ）
ポチップ
それではよろしくお願いいたします。
最後にお得な情報をお届けいたします。
ぜひ最後まで読んでください。
よろしくお願いいたします。
この記事でわかる事
- ExcelシートをPDFにするマクロのコードがわかります。
- ExcelシートをPDFにするマクロのコードを編集できるようになります。
この記事を読んで、Excel作業のクリック、選択、クリックの作業を減らしましょう！
目次
3行でできる、ExcelシートをPDFにするExcelマクロ
ExcelシートをPDFにするにはExcelマクロを使います。
Excelマクロを使った事がないという方は、こちらの記事を参考にしてください。
あわせて読みたい
まだ手入力を続けるの？Excelマクロを書く準備を整えて、手入力から抜け出そう！【朝勉累計3,930分】
手入力ばかりじゃ仕事が進まない！Excelマクロを覚えたいけど、Excelマクロってどこに書くの？ この記事ではこんなお悩みを解決します。 この記事でわかること Excelマ…
Excelマクロを勉強するのにおすすめの本はこちらです。
ブックオフオンライン楽天市場店
¥500 （2022/04/07 19:12時点 | 楽天市場調べ）
ポチップ
ヤドリはExcelマクロを独学して、Excelマクロが使えるようになってから、読みましたが、
まさに「最初からそう教えてくれればいいのに！」に共感いたしました。
3行Excelマクロコードです。
結論はこの3行です。
Sub pdf（）
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF , Filename:=Replace(ActiveWorkbook.FullName,".xlsm","") &".pdf"
end Subコードをコピーして貼り付けて使用できます。
とはいえ、処理されるコードは真ん中の1行だけです。
3行Excelマクロコードを使ってみました。
それでは3行Excelマクロコードを使って、ExcelシートをPDF保存しましょう。
経過
拡張子を「.xlm」にしたExcelを準備します。
画像ではフォルダを作成して、その中にExcelファイルを作っていますが、デスクトップでも構いません。
経過
3行Excelマクロのコードをコピペする。
Sub pdf（）
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF , Filename:=Replace(ActiveWorkbook.FullName,".xlsm","") &".pdf"
end Sub
経過
Excelマクロを実行してみましょう。
Excelマクロを実行するとExcelファイルと同じ場所にファイルが出来上がります。
PDFのファイル名については、Excelファイルと同じ名前になります。
3行Excelマクロコードをアレンジする。
3行Excelマクロコードをアレンジします。
指定のフォルダに入れたい、Excelシート名ではない名前にしたいときは編集しましょう。
「FileName:＝」の後に続くのはファイルパスです。ここを編集します。
指定のフォルダに入れたい
①次のコードの「任意のフォルダーパス」に指定のフォルダーパスをいれてください。
②下記の部分を修正してください。
「Replace(ActiveWorkbook.FullName,”.xlsm”,””) &”.pdf”」
↓
「Replace(ActiveWorkbook.Name,”.xlsm”,””) &”.pdf”」
Sub pdf（）
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF , Filename:=”任意のフォルダーパス” & ”￥” & Replace(ActiveWorkbook.Name,".xlsm","") &".pdf"
end SubPDFファイルの名前を変えたい
①次のコードの「任意のファイル名」に拡張子を除いたファイル名をいれてください。
②下記の部分を修正してください。
「Replace(ActiveWorkbook.FullName,”.xlsm“,””) &”.pdf”」
↓
「Replace(ActiveWorkbook.FullName,” ActiveWorkbook.FullName ” ActiveWorkbook.Name “,”任意のファイル名”) &”.pdf”」
Sub pdf（）
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF , Filename:=Replace(ActiveWorkbook.FullName,"ActiveWorkbook.Name","任意のファイル名") &".pdf"
end Subまとめ
3行ExcelマクロコードでExcelシートはPDF保存されましたでしょうか？
まとめます。
この記事では次の事がわかりました。
この記事でわかる事
- ExcelシートをPDFにするマクロのコードがわかります。
- ExcelシートをPDFにするマクロのコードを編集できるようになります。
ぜひチャレンジして、クリック、選択、クリックの消耗を避けましょう。
それでは「3行ですぐにできる！ExcelシートをPDFで保存するExcelマクロがある！」でした。
ヤドリ戻ります。
2021年12月16日の勉強
本日の勉強も昇格試験に充てています。
そしておなじみの論文です。
只今、構成を考えている最中です。
出したキーワードに具体例をつけたり、構成の順番を見直したりしました。
文章を書くに当たり、構成は設計図である。
家を建てるのに設計図が必要であるように、文章を書くにも構成が必要です。
その構成はできつつあるので、明日からは文章として、Googleドキュメントに書いてみようと思います。
「文章は磨き上げるもの」であるので、とりあえず全体を書いて、推敲していく予定です。
年内には終わりたいです。
論文を書く当たって読んだ本です。
「文章に頼らない文章術」「伝わる文章術」は
[itemlink post_id=”1861″]
[itemlink post_id=”1840″]
[itemlink post_id=”1984″]
にほんブログ村
コメント