VBA TextBox の文字数制限方法について。

質問

TextBox1 に入力された文字数が指定した文字数以外だったときは、
入力された値を削除して、再びTextBox1 にカーソルを持っていく
方法ってありますか？

バーコードをTextBoxに入力する際に、違うバーコード（文字数が異なる）を読んでしまったときの対処方法で上記の様な事ができればと思っています。よろしくお願いします。

回答No.1

papayuka · ベストアンサー

何のVBAでしょう？
例えば Excel の UserForm に置いた TextBoxならプロパティで

　MaxLength を 10
　IMEMode を fmIMEModeDisable

とかにすると半角英数字10文字しか入らなくなります。
また、Exit イベント等で 10文字未満を制御したりも出来ます。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　Cancel = (TextBox1.Text <> "") And (Len(TextBox1.Text) < 10)
End Sub

数字のみに限定とか、細かく制御する必要があるなら更に記述が必要ですね。

お礼

ご返答有難うございました。
まだまだ勉強不足ですねぇ・・・。
また疑問にぶつかったら、書き込みますので
その時はよろしくお願いします。