Excel総合相談所 134 - 暇つぶし2ch

Excel総合相談所 134 ..

192:sage
19/03/03 11:36:23.08 .net
▼━質問テンプレ (出来れば使ってね) ━━
【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2010
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
入力フォーム上に設けられたテキストボックスの行数制限を行おうとしています。
下記のコードで対応しましたが、なぜかmsgboxの"行数は～"が何度も表示され、do loopがうまくいってない気がします。
どこが間違っているのでしょうか？
If TextBox1.LineCount > 4 Then
MsgBox "行数は4行までに制限されています"
Do Until TextBox1.LineCount = 4
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 2)
Loop
End If

次ページ

続きを表示

1を表示