次のようなVBAのコードをご指南ください。
実行すると、アクティブブックのモジュール内で定義されたサブプロージャ名や関数名を、種類とそれが定義されたモジュール名を併記する形で、メッセージボックスで一覧表示するマクロ。
実行結果のイメージ
Sheet1 (****) プロージャー procA()
Sheet1 (****) プロージャー procB()
ThisWorkbook イベントプロージャー workbook_open()
標準モジュール プロージャー test()
標準モジュール 関数 func(hikisuA As Long, hikusuB As String)
他者がつくったマクロファイルが複雑で、モジュールがたくさんあります。どのモジュールにマクロが定義されているか、VBEを開いて1つ1つモジュールをダブルクリックして調べるのが面倒です。情報を得るのが目的なので、実行結果のイメージに深いこだわりはありません。詳しい方、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは
モジュールからプロシージャを抜き出す簡単な方法をざっと探してみましたが、見つからなかったので、以下は1行ずつ調べるというローテクな方法です。
事前に設定した(=変数pre)に該当する Sub、Function を抜き出しますので、ClassやDeclare、Proparty、Enumなどは無視します。
>メッセージボックスで一覧表示するマクロ。
対象が多い場合に、メッセージボックス表示ではあんまりと思いますので、ActiveSheetのA、B列に一覧を列挙するようにしてあります。
また、モジュール名はオブジェクト名になりますので、シートの表示名とは異なる可能性があります。
(シート名表示の方が良ければ、読み替えを追加してください)
以下、ご参考までに。
Sub Q13781167()
Dim i As Long, j As Long
Dim rg As Range, s As String
Dim pre, t, m, p
pre = Split("Sub ,Private Sub ,Public Sub ,Function ,Private Function ,Public Function ", ",")
Columns("A:B").ClearContents
Set rg = Range("A1:B1")
rg.Value = Array("[Module Name]", "[Proc Name]")
For Each t In Array(100, 1, 3)
For Each m In ActiveWorkbook.VBProject.vbcomponents
If m.Type = t Then
If rg(1).Value <> "" Then Set rg = rg.Offset(1)
rg(1).Value = m.Name
For j = 1 To m.codemodule.CountOfLines
s = m.codemodule.Lines(j, 1)
For Each p In pre
If Left(s, Len(p)) = p Then rg(2).Value = s: Set rg = rg.Offset(1): Exit For
Next p
Next j
End If
Next m
Next t
End Sub
教えてくださりありがとうございます。教えていただいたコード、私の環境でも実行でき期待した結果が得られました。回答をいただいて、コードの中身を理解するのに時間がかかり、お礼がたいへん遅くなりましたが、とても参考になりました。
m.codemodule.CountOfLinesやs = m.codemodule.Lines(j, 1)
などのcodemoduleは一度も目にしたことがありませんでした。
それから、選択範囲rgのOffsetの利用の仕方が秀逸です。Arrayの使い方も参考になりました。preをSplitで定義することで、多条件の場合分けを可能にしている点も参考になりました。
たくさんの工夫が詰め込まれたコードを教えていただきました。どこまで使いこなせるかわかりませんが、他のコードにも利用できるように勉強していきたいと思います。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) パーソナルXLSBのfuctionを呼び出すと「Functionが定義されていません」のエラーになる 2 2022/08/22 22:51
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- Visual Basic(VBA) マクロについて教えてください。 4 2023/06/06 09:06
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) Excel・ユーザーフォームの情報を受け渡したい 4 2022/06/08 10:11
- Visual Basic(VBA) Excel VBAで教えてください 4 2022/05/11 22:20
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
-
4
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
5
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
-
6
Excelで「Ctrl+c」、「Ctrl+v」等をまとめた物
Visual Basic(VBA)
-
7
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
8
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
9
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
10
エクセルVBAについて
Visual Basic(VBA)
-
11
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
12
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
13
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
14
引数に数値、文字列の混在
Visual Basic(VBA)
-
15
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
16
Word VBA MSGBOX 内で降順表示
Visual Basic(VBA)
-
17
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
18
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
19
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
20
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA This Workbookモジュール...
-
VBでグローバル変数を宣言するには
-
VBAからpythonへの転向について
-
VBA モジュールで共通に使う変...
-
エクセルVBAでシートモジュール...
-
Apache2 静的・動的モジュール...
-
Excel VBA 定義されたプロージ...
-
Excel VBAで、ユーザーフォーム...
-
グラフのX,Y座標を取得したい
-
Excelで時刻になったら知らせて...
-
【vba】フォームに書いてあ...
-
VBAで旧字体を異字体に一括で変...
-
Excel VBA 『Call』で呼び出す...
-
標準モジュールにpublicで宣言...
-
マクロについて教えてください。
-
モジュールの独立性について
-
C#のアプリケを64bit版のOSで起...
-
ArduinoのジャイロモジュールMP...
-
フォームがアクティブになった...
-
Excel VBAでリンク切れをチェッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
Excel VBA 定義されたプロージ...
-
ArduinoのジャイロモジュールMP...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
エクセルVBAでシートモジュール...
-
Excel VBA 『Call』で呼び出す...
-
モジュールとは何ですか
-
VBA This Workbookモジュール...
-
VBでグローバル変数を宣言するには
-
グラフのX,Y座標を取得したい
-
VBAで旧字体を異字体に一括で変...
-
モジュールの最大数はいくつな...
-
【vba】フォームに書いてあ...
-
Excel VBAで、ユーザーフォーム...
-
Form間の値の渡し方
-
モジュールとクラスの違いって...
-
Access VBA標準モジュールにつ...
-
本当にPublicな変数(配列で)
-
標準モジュールを削除したい。(...
おすすめ情報