次の方法で共有


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