ＨＯＭＥ ＞ フリーソフトの紹介【ビジネス】＞ 管理人の素人なエクセルVBA集
管理人の素人なエクセルVBA集
管理人（MORIO）がエクセルVBAで作成した、簡単で便利なエクセルシートです。
中にはVBAを使用せず、関数や条件付き書式設定だけで作った便利なシートもあります。
素人ながら、便利で実用的なものを紹介します。
注）管理人の会社では全く問題なく動作していますが、素人が作ったVBAプログラムですので、
極稀にバグがあるかも知れません。（ご愛嬌！）見付けた時は管理人までご連絡ください。
VBAコードにはパスワード保護を掛けています。ただし、ご希望の方には解除しますので、
管理人までメールでご依頼下さい。（解除したファイルを送ります。）
注）一旦デスクトップなどにダウンロード（保存）してから再度エクセルを起動して動作確認してください。
ブラウザから直接開いて動作させた場合は、正常に動作しません。（ブラウザの仕様）
◆同一フォルダ（同一階層）内へのショートカット削除ツール.xls(64KB) New
同一フォルダ（同一階層）内のファイル（フォルダ）へのショートカットがフォルダ内に散在
していると、非常にわずらわしいものです。（同一フォルダ内のファイルへのショートカットは
は邪魔になるだけです。）このマクロは、同一フォルダ（同一階層）内のファイル（フォルダ）
へのショートカッ（.lnk）のみを探し出して自動で削除してくれます。
（不要かも知れませんが、念のため削除したショートカットのログを残します。）
・動作は、Microsoft Excel 2002、2010で確認しています。
自己評価：85点
共有フォルダなどにショートカットを残す癖のある人が多いので、大変便利なマクロだと思います。
仕事のイライラが少しでも減れば幸いです。
◆シート名の一覧表（リンク付）作成.xls(82KB) Ver-up.2020/7/19
エクセルは無制限にシート増やせますが、シートが多いとシート見出しを横にスクロールする
必要があり非常にわずらわしくなります。このマクロは、一覧表のシートに全シート名へのリンク
のリストを作成する簡単なマクロです。マクロボタンを押すと、今選択されているアクティブセル
の下か右方向に全シートへのリンクリストを作成しますので、選択セルの下か右方向には
使用セルが無いようにしてください。空きセルを確認するようにしていますので
ご安心ください。今回の改良で非表示シートもリンクを作成するか指定できるようにしました。
・動作は、Microsoft Excel 2002、2003、2010で確認しています。
・変更履歴 2017/7/23
リンクリストの作成方向を選択できるようにした（選択セルの下か右方向）
リンクリストを作成する自分のシート(一覧表)へのリンクを作成するかどうか指定できるようにした。
リンクリストを作成する方向の空きセルを確認するようにした。（上書き防止のため。）
・変更履歴 2020/7/19
仕事でよく使うので、一部改良しました。
非表示のシートもリンクを作成するかどうか指定できるようにした。
自己評価：85点
大変便利なマクロだと思います。仕事のイライラが少しでも減れば幸いです。
◆シートの整列表示.xls(83KB) Ver-up.2017/8/16
エクセルで作業する時、画面にブック内の複数のシートを整列表示し、比較検討しながら
作業することがよくあります。作業性を考慮して、このように同一ブック内の複数のシートを
整列表示することは、エクセルの基本機能で可能ですが、共有ファイルなどは整列状態を
崩して保存されてしまうことが良くあります。その度に最初から整列し直すのは面倒ですね！
このマクロは、ファイルを開く時の整列の形やウィンドウ枠の固定位置などを、予め「SETUP」
シートで設定しておけるものです。
・動作は、Microsoft Excel 2000、2002、2010で確認しています。
・変更履歴 2017/8/16
細かいバグの修正と改善：起動と同時に、不要なウィンドウを削除したり、ウィンドウ枠の固定を
一旦解除するようにした。（機能の変更はない。）
自己評価：75点
大変気の利いたマクロだと思います。仕事のイライラが少しでも減れば幸いです。
◆Webカラー配色計画.xls(278KB)
Ｗｅｂページの配色を検討する時、実際の色を画面に出して同時対比させて検討する
必要があります。補色関係や文字と背景の明度差、セパレーションの効果、Ｗｅｂサイトの
イメージ色（ＣＩ）を検討する場合などに、実際に色を出しながら検討できます。
動作は、Microsoft Excel 2000、2002で確認しています。
自己評価：70点
Microsoft Excel 2000、2002用ですので、70点にしておきます。
Excel 2003以降での動作確認はしていませんが、何方か確認してもらえないでしょうか。
このプログラムは、Ｗｅｂページを作成する時に役に立ちます。（必要は発明の母）
◆最も簡単な家計簿.xls(180KB)（家計簿シート2024年分に変更済）rev.2024/1/3
家計簿を付けるって、めんどうくさいですよね。管理人が作ったエクセル家計簿は
本当にシンプルです。管理人宅もこのエクセルシートで付けていて、長続きしています。
→購入した日付は当月内であれば何時でもいいじゃないですか！
→給料日も毎月２５日にもらったことにすればいいじゃないですか。
→費目も９種類で十分です。これ以上細かく分類する必要はないでしょう。
自己評価：90点
めんどうくさがり屋の人も、このエクセルシートで２１年以上長続きしています。
◆シート保護と解除ボタン.xls(134KB)
会社ではシートに保護を掛けて編集されないようにすることがよくあります。
管理者がシート保護を解除して編集し、編集後に再度保護を掛ける場合に手間が省けるよう、
［保護解除］ボタンを設けたり、閉じる時に自動で保護が掛かるようにしてあります。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：75点
公開するエクセルファイルで、管理者以外は編集できないようにする場合に便利なシートです。
◆選択セルの値（文字）を連結.xls(105KB) Ver-up.2011/5/28
選択したセルの値（文字）を連結してクリップボードにコピーするプログラムです。
エクセルでメーリングリストを作成し、メーラーの宛先欄にまとめてペーストする場合に便利です。
連結する際の「区切り記号」は、「SETUP」シートで指定できます。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
・変更履歴 2011/5/28
オートフィルタに対応した。（可視セルのみ連結されるよう改良）
会社などのメーリングリストにキーワード欄を追加し、例えばプロジェクトメンバーに
キーワードを登録して、フィルタリングするなどの利用ができる。（自己評価点75→85UP）
自己評価：85点
特に、エクセルで作ったメーリングリストに、まとめてメールする際に重宝します。
◆セルの文字方向変更ボタン.xls(189KB)
セルを選択して【角度UP】ボタン、又は【角度DOWN】ボタンを押すと、セル内文字の
方向（角度）を変更できます。角度の変更ステップと、方向により自動変更される文字色は、
「SETUP」シートで初期設定できます。
・動作は、Microsoft Excel 2000、2002、2003で確認しています。
自己評価：70点
パフォーマンスの報告資料など、意外と応用範囲は広いと思います。
◆最も簡単なスケジュール表.xls(42KB)
ブックを開いた時、その日の行が一番上に来ます。
日付の欄には、条件付書式を設定してあり、土曜日はピンク、日曜日は赤字になり、
セルの背景が薄い黄色になります。（祭日には対応しておりません。）
書式をコピーしたり、オートフィル機能で日付を延長して行ってください。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：75点
これほどシンプルで実用的なスケジュール表はありません。
◆無記名問合せシート.xls(34KB) rev.2017/7/28
エクセルを利用した、無記名の問合せシートです。
上書き保存時にプロパティから個人情報は削除されます。
保存時に作成者や更新者などのプロパティデータが削除されるようにしてありますので、
お気軽にご意見が伺えます。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
・変更履歴 2017/7/28
保存したことがメッセージとして表示されるようにした。その他、細かい動きの修正など。
自己評価：75点
イントラネットやショートカットでこのシートを公開し、無記名での「ご意見集め」や
「アンケート調査」が気軽に行えます。
◆検索行スクロールＵＰ.xls(224KB)
このプログラムは、コンボボックスで選択または入力した文字と完全一致する文字を
シートの上から探しに行き、最初にマッチした行をスクロールＵＰして一番上の行に
表示するものです。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：75点
大きな一覧表を作成した時、行数が多くなると必要な行をスクロールして探すのは
かなり面倒です。
◆ユーザー設定ビューの切替えボタン.xls(54KB)
マクロボタンで同一シートの見せ方の違う３つの画面（ビュー）を劇的に切替えて使用できます。
非常に簡単なVBAコードなので、ビュー数を増やせるようにVBAコードには保護を掛けていません。
取説のシートが重たいので、pdfファイルとして分離した。→取扱説明書.pdf(136KB)
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：70点
元々備わったエクセルの機能を最大限に活用した例です。うまい使い方と言えるでしょう。
◆QC工程図記号(CLIP).zip(279KB) ←クリップアート集(.gif)と取扱説明書(.pdf)が入っています。
エクセル(Microsoft Excel 2000)で使用する、QC工程図記号です。(クリップアート集)
Excel 2000以外でも、クリップアートとして取り込めれば使用できます。
・動作は、Microsoft Excel 2000、2002、2003で確認しています。
自己評価：75点
会社ではQC工程図を作成することが多くあり、非常に重宝しております。
注）全てのエクセルファイルは、一旦デスクトップなどにダウンロード（保存）してから
再度エクセルを起動して動作確認してください。（マクロを有効にしてください。）
ブラウザから直接開いて動作させた場合は、正常に動作しません。（ブラウザの仕様）
管理人（MORIO）がエクセルVBAで作成した、簡単で便利なエクセルシートです。
中にはVBAを使用せず、関数や条件付き書式設定だけで作った便利なシートもあります。
素人ながら、便利で実用的なものを紹介します。
注）管理人の会社では全く問題なく動作していますが、素人が作ったVBAプログラムですので、
極稀にバグがあるかも知れません。（ご愛嬌！）見付けた時は管理人までご連絡ください。
VBAコードにはパスワード保護を掛けています。ただし、ご希望の方には解除しますので、
管理人までメールでご依頼下さい。（解除したファイルを送ります。）
注）一旦デスクトップなどにダウンロード（保存）してから再度エクセルを起動して動作確認してください。
ブラウザから直接開いて動作させた場合は、正常に動作しません。（ブラウザの仕様）
◆同一フォルダ（同一階層）内へのショートカット削除ツール.xls(64KB) New
同一フォルダ（同一階層）内のファイル（フォルダ）へのショートカットがフォルダ内に散在
していると、非常にわずらわしいものです。（同一フォルダ内のファイルへのショートカットは
は邪魔になるだけです。）このマクロは、同一フォルダ（同一階層）内のファイル（フォルダ）
へのショートカッ（.lnk）のみを探し出して自動で削除してくれます。
（不要かも知れませんが、念のため削除したショートカットのログを残します。）
・動作は、Microsoft Excel 2002、2010で確認しています。
自己評価：85点
共有フォルダなどにショートカットを残す癖のある人が多いので、大変便利なマクロだと思います。
仕事のイライラが少しでも減れば幸いです。
◆シート名の一覧表（リンク付）作成.xls(82KB) Ver-up.2020/7/19
エクセルは無制限にシート増やせますが、シートが多いとシート見出しを横にスクロールする
必要があり非常にわずらわしくなります。このマクロは、一覧表のシートに全シート名へのリンク
のリストを作成する簡単なマクロです。マクロボタンを押すと、今選択されているアクティブセル
の下か右方向に全シートへのリンクリストを作成しますので、選択セルの下か右方向には
使用セルが無いようにしてください。空きセルを確認するようにしていますので
ご安心ください。今回の改良で非表示シートもリンクを作成するか指定できるようにしました。
・動作は、Microsoft Excel 2002、2003、2010で確認しています。
・変更履歴 2017/7/23
リンクリストの作成方向を選択できるようにした（選択セルの下か右方向）
リンクリストを作成する自分のシート(一覧表)へのリンクを作成するかどうか指定できるようにした。
リンクリストを作成する方向の空きセルを確認するようにした。（上書き防止のため。）
・変更履歴 2020/7/19
仕事でよく使うので、一部改良しました。
非表示のシートもリンクを作成するかどうか指定できるようにした。
自己評価：85点
大変便利なマクロだと思います。仕事のイライラが少しでも減れば幸いです。
◆シートの整列表示.xls(83KB) Ver-up.2017/8/16
エクセルで作業する時、画面にブック内の複数のシートを整列表示し、比較検討しながら
作業することがよくあります。作業性を考慮して、このように同一ブック内の複数のシートを
整列表示することは、エクセルの基本機能で可能ですが、共有ファイルなどは整列状態を
崩して保存されてしまうことが良くあります。その度に最初から整列し直すのは面倒ですね！
このマクロは、ファイルを開く時の整列の形やウィンドウ枠の固定位置などを、予め「SETUP」
シートで設定しておけるものです。
・動作は、Microsoft Excel 2000、2002、2010で確認しています。
・変更履歴 2017/8/16
細かいバグの修正と改善：起動と同時に、不要なウィンドウを削除したり、ウィンドウ枠の固定を
一旦解除するようにした。（機能の変更はない。）
自己評価：75点
大変気の利いたマクロだと思います。仕事のイライラが少しでも減れば幸いです。
◆Webカラー配色計画.xls(278KB)
Ｗｅｂページの配色を検討する時、実際の色を画面に出して同時対比させて検討する
必要があります。補色関係や文字と背景の明度差、セパレーションの効果、Ｗｅｂサイトの
イメージ色（ＣＩ）を検討する場合などに、実際に色を出しながら検討できます。
動作は、Microsoft Excel 2000、2002で確認しています。
自己評価：70点
Microsoft Excel 2000、2002用ですので、70点にしておきます。
Excel 2003以降での動作確認はしていませんが、何方か確認してもらえないでしょうか。
このプログラムは、Ｗｅｂページを作成する時に役に立ちます。（必要は発明の母）
◆最も簡単な家計簿.xls(180KB)（家計簿シート2024年分に変更済）rev.2024/1/3
家計簿を付けるって、めんどうくさいですよね。管理人が作ったエクセル家計簿は
本当にシンプルです。管理人宅もこのエクセルシートで付けていて、長続きしています。
→購入した日付は当月内であれば何時でもいいじゃないですか！
→給料日も毎月２５日にもらったことにすればいいじゃないですか。
→費目も９種類で十分です。これ以上細かく分類する必要はないでしょう。
自己評価：90点
めんどうくさがり屋の人も、このエクセルシートで２１年以上長続きしています。
◆シート保護と解除ボタン.xls(134KB)
会社ではシートに保護を掛けて編集されないようにすることがよくあります。
管理者がシート保護を解除して編集し、編集後に再度保護を掛ける場合に手間が省けるよう、
［保護解除］ボタンを設けたり、閉じる時に自動で保護が掛かるようにしてあります。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：75点
公開するエクセルファイルで、管理者以外は編集できないようにする場合に便利なシートです。
◆選択セルの値（文字）を連結.xls(105KB) Ver-up.2011/5/28
選択したセルの値（文字）を連結してクリップボードにコピーするプログラムです。
エクセルでメーリングリストを作成し、メーラーの宛先欄にまとめてペーストする場合に便利です。
連結する際の「区切り記号」は、「SETUP」シートで指定できます。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
・変更履歴 2011/5/28
オートフィルタに対応した。（可視セルのみ連結されるよう改良）
会社などのメーリングリストにキーワード欄を追加し、例えばプロジェクトメンバーに
キーワードを登録して、フィルタリングするなどの利用ができる。（自己評価点75→85UP）
自己評価：85点
特に、エクセルで作ったメーリングリストに、まとめてメールする際に重宝します。
◆セルの文字方向変更ボタン.xls(189KB)
セルを選択して【角度UP】ボタン、又は【角度DOWN】ボタンを押すと、セル内文字の
方向（角度）を変更できます。角度の変更ステップと、方向により自動変更される文字色は、
「SETUP」シートで初期設定できます。
・動作は、Microsoft Excel 2000、2002、2003で確認しています。
自己評価：70点
パフォーマンスの報告資料など、意外と応用範囲は広いと思います。
◆最も簡単なスケジュール表.xls(42KB)
ブックを開いた時、その日の行が一番上に来ます。
日付の欄には、条件付書式を設定してあり、土曜日はピンク、日曜日は赤字になり、
セルの背景が薄い黄色になります。（祭日には対応しておりません。）
書式をコピーしたり、オートフィル機能で日付を延長して行ってください。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：75点
これほどシンプルで実用的なスケジュール表はありません。
◆無記名問合せシート.xls(34KB) rev.2017/7/28
エクセルを利用した、無記名の問合せシートです。
上書き保存時にプロパティから個人情報は削除されます。
保存時に作成者や更新者などのプロパティデータが削除されるようにしてありますので、
お気軽にご意見が伺えます。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
・変更履歴 2017/7/28
保存したことがメッセージとして表示されるようにした。その他、細かい動きの修正など。
自己評価：75点
イントラネットやショートカットでこのシートを公開し、無記名での「ご意見集め」や
「アンケート調査」が気軽に行えます。
◆検索行スクロールＵＰ.xls(224KB)
このプログラムは、コンボボックスで選択または入力した文字と完全一致する文字を
シートの上から探しに行き、最初にマッチした行をスクロールＵＰして一番上の行に
表示するものです。
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：75点
大きな一覧表を作成した時、行数が多くなると必要な行をスクロールして探すのは
かなり面倒です。
◆ユーザー設定ビューの切替えボタン.xls(54KB)
マクロボタンで同一シートの見せ方の違う３つの画面（ビュー）を劇的に切替えて使用できます。
非常に簡単なVBAコードなので、ビュー数を増やせるようにVBAコードには保護を掛けていません。
取説のシートが重たいので、pdfファイルとして分離した。→取扱説明書.pdf(136KB)
・動作は、Microsoft Excel 2000、2002、2003、2010で確認しています。
自己評価：70点
元々備わったエクセルの機能を最大限に活用した例です。うまい使い方と言えるでしょう。
◆QC工程図記号(CLIP).zip(279KB) ←クリップアート集(.gif)と取扱説明書(.pdf)が入っています。
エクセル(Microsoft Excel 2000)で使用する、QC工程図記号です。(クリップアート集)
Excel 2000以外でも、クリップアートとして取り込めれば使用できます。
・動作は、Microsoft Excel 2000、2002、2003で確認しています。
自己評価：75点
会社ではQC工程図を作成することが多くあり、非常に重宝しております。
注）全てのエクセルファイルは、一旦デスクトップなどにダウンロード（保存）してから
再度エクセルを起動して動作確認してください。（マクロを有効にしてください。）
ブラウザから直接開いて動作させた場合は、正常に動作しません。（ブラウザの仕様）