![](https://static.wixstatic.com/media/d659f2_90c96827910d482aa7a165eaeefb4e51~mv2.png/v1/fill/w_980,h_980,al_c,q_90,usm_0.66_1.00_0.01,enc_auto/d659f2_90c96827910d482aa7a165eaeefb4e51~mv2.png)
はじめに
こんにちはティーマネジメントのRinです。
関西も急に秋めいてきました・・ほっとします。
さて、わたくしごとではございますが、8月末あたりにVBAエキスパートの資格試験を受験してまいりました!
一緒に受験したメンバー全員合格でした(^▽^)/
この年齢になって新しい資格がとれるなんて・・いくつになってもチャレンジするって大切ですね(⌒∇⌒)
ということで、とても嬉しかったので今回はだれにでも使えるようなマクロをご紹介したいと思います!
Excelで日々当たり前にカチカチしている仕事がワンクリックでできるマクロです。
是非一緒に試してみましょう~
また、ティーマネジメントでは他のマクロ作成についてのご相談も受付けています。
マクロを使っての業務改善!ぜひご検討をされてみてはいかがでしょうか?
マクロでPDFを出力
準備をする
【ファイルタブ】にある【オプション】から【トラストセンター】もしくは【セキュリティセンター】を選択し、【設定】を選択します。
各センターにあるダイヤログボックスで「警告してVBAマクロを無効にする」にチェックが入っていることを確認してください。
※マクロを含むブックを開くと数式バーの上に警告が表示されます。このメッセージバーに表示される「コンテンツの有効化」ボタンをクリックするとマクロが有効になります。
![](https://static.wixstatic.com/media/d659f2_be1a6b8e80fd43ec8124211673ed7453~mv2.png/v1/fill/w_280,h_202,al_c,q_85,enc_auto/d659f2_be1a6b8e80fd43ec8124211673ed7453~mv2.png)
【ファイルタブ】にある【オプション】から【リボンのユーザー設定】を選択し
【開発】チェックボックスをオンにしてOKボタンをクリックしてください。
![](https://static.wixstatic.com/media/d659f2_c9fe698c5c9a429c99e75ba1ba5545e1~mv2.png/v1/fill/w_288,h_208,al_c,q_85,enc_auto/d659f2_c9fe698c5c9a429c99e75ba1ba5545e1~mv2.png)
リボンに【開発】タブが表示されれば準備完了です。
![](https://static.wixstatic.com/media/d659f2_21c064461cf14474968f59322cf4c575~mv2.png/v1/fill/w_698,h_102,al_c,q_85,enc_auto/d659f2_21c064461cf14474968f59322cf4c575~mv2.png)
それでは作ってみましょう
今回は請求書の入力されているシートをPDFにし、同じブックにおきます。。
![](https://static.wixstatic.com/media/d659f2_6b35b207710c41dfb60ace02d1e99aa0~mv2.png/v1/fill/w_541,h_499,al_c,q_85,enc_auto/d659f2_6b35b207710c41dfb60ace02d1e99aa0~mv2.png)
1. 開発タブのVisual Basicを選択します。
![](https://static.wixstatic.com/media/d659f2_4d10463ca04c4636b95b07642f736865~mv2.png/v1/fill/w_980,h_160,al_c,q_85,usm_0.66_1.00_0.01,enc_auto/d659f2_4d10463ca04c4636b95b07642f736865~mv2.png)
2. 標準モジュールを選択します。
![](https://static.wixstatic.com/media/d659f2_eacb9d11583a40939d17aafc5ef2c23f~mv2.png/v1/fill/w_288,h_145,al_c,q_85,enc_auto/d659f2_eacb9d11583a40939d17aafc5ef2c23f~mv2.png)
3. 右にある空白に下のコードを貼り付けましょう。
Sub ブック内にPDFを出力() Dim fileName As String '保存先フォルダパス&ファイル名 fileName = ThisWorkbook.Path & "\20240928請求書_株式会社ABC御中.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName End Sub |
![](https://static.wixstatic.com/media/d659f2_b76bcfb87f234d5ba55e753083581dac~mv2.png/v1/fill/w_698,h_176,al_c,q_85,enc_auto/d659f2_b76bcfb87f234d5ba55e753083581dac~mv2.png)
4. 右上にあるExcelボタンを選択し、Excelに戻ります
![](https://static.wixstatic.com/media/d659f2_9cbb40294e1143369cdd8801617fe46a~mv2.png/v1/fill/w_136,h_127,al_c,q_85,enc_auto/d659f2_9cbb40294e1143369cdd8801617fe46a~mv2.png)
5. 左上にあるマクロを選択し「ブック内にpdfを出力」を選択⇒実行を押します
![](https://static.wixstatic.com/media/d659f2_055a15c52c68451ea0a399b24d9e9774~mv2.png/v1/fill/w_431,h_414,al_c,q_85,enc_auto/d659f2_055a15c52c68451ea0a399b24d9e9774~mv2.png)
6. 指定したファイル名のPDFが同じブック内に作成されます。
![](https://static.wixstatic.com/media/d659f2_e651cb0ed0c14816adaaed4c4bb2045f~mv2.png/v1/fill/w_691,h_185,al_c,q_85,enc_auto/d659f2_e651cb0ed0c14816adaaed4c4bb2045f~mv2.png)
![](https://static.wixstatic.com/media/d659f2_faadb6d499dc4ccc9ed938250d8bfb1d~mv2.png/v1/fill/w_268,h_376,al_c,q_85,enc_auto/d659f2_faadb6d499dc4ccc9ed938250d8bfb1d~mv2.png)
最後に
そんなに手間ではないけれど、毎日ぽちぽちしているなぁと思われる作業はぜひマクロを使い自動化に挑戦してみてもいいかもしれないですね!
ティーマネジメントではFilemakerを使ってのシステム作成、VBAやRPAに関するご相談を受付けています。
どこから手を付ければ良いか判らないという方も是非ご相談ください。