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 のサポートおよびフィードバックを参照してください。