Access Tips #768 各モジュールのコード行数をカウントするには？

Access Tips


#768	各モジュールのコード行数をカウントするには？	VBA
フォームモジュールや標準モジュールなど、すべてのモジュールをリストアップするとともに、それぞれのモジュール内のコードの行数をカウントするサンプルコードです標準モジュール上に適当な名前でプロシージャを作成し、そこに以下のコードを記述して実行します。 Dim vbcmp As Object For Each vbcmp In VBE.ActiveVBProject.VBComponents With vbcmp Debug.Print .Name, .CodeModule.CountOfLines End With Next vbcmp このプログラムでは、VBComponentのCodeModuleオブジェクトの「CountOfLines」プロパティでその行数を取得しています。またこの行数には、Declarationsセクション内のコード、各行やプロシージャ間にある空行、モジュールの最後にある改行だけの空行なども含まれます。実行例：
\| Index \| Prev \| Next \|