ログログ

34歳からプログラマになった僕が学んできたこと

VBA

ExcelをA1で拡大率100%にするツール(サブフォルダ全て)

投稿日:

たくましゅくじょさんのところで公開されていた、
「エクセルで全シートの拡大率を100%にしA1セルを選択するマクロ」
をサブフォルダ全てに対応させたバージョンを作成しました。

会社の納品ドキュメントをA1かつ拡大率100%にするために使わせて頂いたのがきっかけです。
便利だったのですが、フォルダを指定しないといけないのがちょっと手間だったので、
指定したフォルダを含むサブフォルダ全てに対応するバージョンに改良しました。

追加した機能

たくましゅくじょさんのフォルダ毎に指定していたものを、
指定したフォルダを含めたすべてのサブフォルダを対象にして
A1&拡大率100%にするようにしたものです。

画面

使い方

・対象フォルダを絶対パス(Cドライブを含める)で指定します。
・実行ボタン押下します。
※指定したフォルダのサブフォルダすべてが対象になります。
 含めたくないフォルダがある場合、たくましゅくじょさんのフォルダ毎に指定できるバージョンをお使いください。
「エクセルで全シートの拡大率を100%にしA1セルを選択するマクロ」

ソースコード

(補足)
2行目の「Range(“targetDir”).Value」は、名前の定義でセル参照させています。

(参考)
エクセル 名前の定義の使い方

最後に

xlsmファイルを直接DLできるようにしようと思ったのですが、
WordPressの制限に引っかかってしまったのでDLはできません。

ソースコードのコピペと補足で対応可能かと思いますが、
どうしてもxlsmをほしいという方がいましたら、コメントを頂ければと思います。

-VBA

執筆者:


  1. notte より:

    引用元ブログのノッテです。
    コードを取り上げていただき、改善とご連絡ありがとうございます。
    特に問題ありませんので、ブログでも補足としてリンクを記載しました。
    https://t-shukujo.com/make-it-possible-to-submit-excel/#ps-2019-11-25-1

comment

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


関連記事

VBAが書けるまでにどのくらいかかったか?

これからVBAを学ぼうとしている人向けに参考情報として書きます。 目次 前提結論3か月くらいAPIのツール作成何で勉強したか?Office TANAKAエクセルの神髄書籍最後に 前提 前提として、私の …