Module.CountOfLines プロパティ (Access)
CountOfLines プロパティは、標準モジュールまたはクラス モジュール内のコード行数を示す Long 値を返します。 取得のみ可能な Long 値です。
構文
式。CountOfLines
式Module オブジェクトを表す変数。
注釈
モジュールの各行には、1 から始まる番号が割り当てられます。
空白行も含めて、モジュールの最終行の行番号は CountOfLines プロパティの値になります。
例
次の使用例では、 Modules コレクションに含まれる各標準モジュールの行数および宣言セクションの行数をカウントします。 Modules コレクションにはモジュール エディターで開かれるモジュールのみが含まれます。
Public Sub ModuleLineTotal(ByVal strModuleName As String)
Dim mdl As Module
' Open module to include in Modules collection.
DoCmd.OpenModule strModuleName
' Return reference to Module object.
Set mdl = Modules(strModuleName)
' Print number of lines in module.
Debug.Print "Number of lines: ", mdl.CountOfLines
' Print number of declaration lines.
Debug.Print "Number of declaration lines: ", _
mdl.CountOfDeclarationLines
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。