|
▼うめこ さん:
こんばんは。
>はじめまして。
>ユーザーフォームのテキストボックスに入力制限を設けたいのですが、うまくいきません。
>今までは全角文字11文字で入力制限を設けていたのですが、業務の都合上、半角英数字も入力されます。
>全角文字は1文字で1、半角英数字は2文字で1カウントで合計11で入力制限を設けたいのですが、どうしても半角文字も1文字1カウントとなってしまい、入力制限がうまく機能しません。
>どなた様か、半角英数字を2文字で1カウントにする方法を教えて下さい。
>よろしくお願いいたします。
テキストボックスのChangeイベントを使ってみたらどうでしょうか?
'===========================================================
Private Sub TextBox1_Change()
With TextBox1
If LenB(StrConv(.Text, vbFromUnicode)) > 11 * 2 Then
.Text = Left(.Text, Len(.Text) - 1)
End If
End With
End Sub
確認してみて下さい
|
|