テキストボックスを2行だけ入力できるようにするには？ (ID:147231)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 色々な方法がありますが、その程度の事を調べるなら、処理速度も影響しないので、単純に 改行文字の数を調べれば行数が解るし、１行目の文字数と２行目の文字数を調べればすむかと。 例えば、下記のように、後は貴方の仕様に合せて工夫して下さい。 Private Sub Text1_Change() Dim Mytxt As Variant Dim i As Long Mytxt = Split(Text1.Text, vbCrLf) For i = LBound(Mytxt) To UBound(Mytxt) If Len(Mytxt(i)) > 10 Then MsgBox "10文字以上の入力はできません。" Mytxt(i) = Left$(Mytxt(i), 10) End If If i = 1 Then Text1.Text = Mytxt(0) & vbCrLf & Mytxt(1) ElseIf i > 1 Then MsgBox "2行以上の入力はできません" Exit For End If Next i End Sub