Office TANAKA - VBAでVBEを操作する[CodeModuleのプロパティ]一般的なSubプロシージャやFunctionプロシージャを指定するときは0を指定します。 Sub Sample10() Dim Cnt As Long Cnt = ThisWorkbook.VBProject.VBComponents("Module1"). _ CodeModule.ProcBodyLine("Sample10", 0) MsgBox Cnt End Sub ProcCountLinesプロパティは、指定したプロシージャの行数を返します。 指定する引数はProcBodyLineプロパティと同じです。 ProcCountLinesプロパティは、指定したプロシージャの宣言行(Sub ○○やFunction××など)以前にある空白行やコメント行から、プロシージャの終了行(End SubやEnd Functionなど)までの行数を返します。指定したプロシージャがコードモジュール内
http://www.keep-on.com/excelyou/1999lng4/199912/99120221.txt
