TextBoxで４文字のみの文字数制限

質問

いつもお世話になります。
Win7 excell2010 です。

ご指導を仰ぎたいのは　TextBoxに入力できる文字数を「４」文字以上もしくは以下も入力できないようにしたい。　４文字のみ可能に。
例えば　３文字(４文字以下)　もしくは　５文字(４文字以上)の場合は入力はできない。

下記のマクロは５文字以上の時は４文字のみが表示されます。
Private Sub TextBox1_Change()
If Len(TextBox1.Text) > 4 Then
TextBox1.Text = Left(TextBox1.Text, 4)
End If
End Sub

プロパティ設定
MaxLengthプロパティで　４

回答No.1

keithin · ベストアンサー

ユーザーフォームに配置したテキストボックスか，ワークシート上に置いているのかによっても，やり方が変わります。
また通常考えると「４文字記入する」その前には１文字２文字３文字と順繰り文字を記入していって４文字になるワケですが，その「途中の状態は許容する」というのをどうしたいのか不明瞭です。
ついでに言うと，４文字記入しない限り一切離脱を許さないのかといった点も曖昧です。

まぁそういった部分を勝手に補って，ユーザーフォーム上で使用する前提で。

private sub Textbox1_Change()
　me.textbox1 = right(me.textbox1, 4)
end sub

private sub Textbox1_Exit(byval Cancel as msforms.returnboolean)
　if me.textbox1 = "" then exit sub
　if len(me.textbox1)=4 then exit sub
　msgbox "ENTER 4 CHARS"
　cancel = true
end sub

rightをleftにしても、勿論構いません。
ユーザーフォームでは無かった場合は，まぁ参考にして自力で作成して下さい。

お礼

ご指導の内容をすべて採用させていただきました。
ありがとうございました。