【VBA】サブフォルダを含む全てのExcelシートをA1選択で保存する

vba-select-a1
  • URLをコピーしました!

Excelファイルをお客様へ納品する際、全てのシートA1セル選択した状態でお渡しするのがお決まりになっていますよね。
さらに言うなら最初のシートを選択した状態、かつ1番左上スクロールしておくことも欠かせません。
個人的にはそこまでしなくても…と思いますが、相手に対する気遣いです。
確かに受け取る側の立場だと、ありがたいことだと感じます。
しかし、ドキュメントを作成する側は、修正する度に毎回これを行わないければならないので、とても面倒だと思います。

目次

複数のExcelファイルを一括でA1選択!

世の中には同じ事を考えている方はたくさんいるようです。
ブックを閉じる際にA1セルを選択してくれるアドオンはあるのですが、一括Excelファイルを処理してくれるものは中々見つかりませんでした…。
そこで、サブディレクトリを含む全てのExcelファイルの全てのシートA1セルを選択して保存する便利なExcelマクロVBA)を作成しました!

サブディレクトリを含めたファイル一覧を取得

まずは、サブディレクトリを含めた複数のExcelファイル一覧を取得します。
下記の参考サイトほぼ丸パクリさせて頂きましたw

しがないSEのIT備忘録
ExcelVBA ファイルの操作 再帰的にサブフォルダを検索しファイルパスを取得する | しがないSEのIT備忘録 指定フォルダとそのサブフォルダからファイルパターンに合致するファイルのパスを再帰的に取得し、リスト形式で返す関数。

スクロール等にも対応したA1セル選択!

こちらも他のサイトを参考にさせて頂きましたw
ただのスクロール対策だけでなく、以下の内容にも対応しました!

  • 非表示シート対応
  • ウィンドウ枠の固定でもスクロール
  • オートフィルタの絞り込み解除
  • 拡大表示100%

Qiita
全シートのカーソルをA1に移動するマクロ - Qiita はじめに 毎回、新しい現場に行くたびにこのマクロ検索してカスタマイズして作ってるなぁと思い、 もう二度と書くのやめようとここに残すことにした。 参考サイト 全...

使い方・注意点

以下のコードをどこかにコピペして実行してください。
A1セルに対象ディレクトリパスを書くようにしました。
開発」→「挿入」→「フォームコントロール」でボタンを配置しで実行しています。
拡張子は「xlsx」を指定。(古い拡張子のxlsは考慮してません)
実行する際は、他のブックをすべて閉じてください。

ダウンロード

一応、すぐに使えるようにマクロVBA)入りのファイルを作成したので、良かったらダウンロードしてみてください。 SelectA1_v1.0.zip簡単に作ったので気に入らない所は変更してください。
私は特定のシートに指定した日付を入れたりしましたよ!
これで仕事が楽になりました!

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

コメント

コメントする

CAPTCHA


目次