VBA テキストボックスの行数取得

Excle2000を使用しています。

ユーザーフォームにテキストボックスを設置してあり、MultiLineとEnterKeyBehaviorをTrueにして改行できるようにしてあります。

そこでテキストボックスに文字を入力し、コマンドボタンなどをクリックするとメッセージボックスにそのテキストボックスの行数を表示させるにはどうしたら良いでしょうか？？

よろしくお願いします。

No.1 ベストアンサー 回答者： temtecomai2 回答日時： 2009/11/12 12:13

LineCount プロパティー

この回答への補足

お返事ありがとうございます。

LineCountでできましたが、そのテキストボックスにフォーカスがないと機能しないようです。

フォームの中にテキストボックスが300個程あり、その内のひとつなのでそのテキストボックスにフォーカスが合っていなくても取得する方法はありますか？

補足日時：2009/11/12 13:30

No.2 回答者： nda23 回答日時： 2009/11/12 16:08

改行の数を調べるのは？

Dim A
A = Split(TextBox.Value, vbMewLine)
Debug.Print "行数 ="; UBound(A) + 1

この回答へのお礼

ありがとうございます。
この方法でうまくできました！
お返事遅くなってみすませんでした。

お礼日時：2009/11/28 11:06