| |
▼うめこ さん：
こんばんは。
>はじめまして。
>ユーザーフォームのテキストボックスに入力制限を設けたいのですが、うまくいきません。
>今までは全角文字１１文字で入力制限を設けていたのですが、業務の都合上、半角英数字も入力されます。
>全角文字は１文字で１、半角英数字は２文字で１カウントで合計１１で入力制限を設けたいのですが、どうしても半角文字も１文字１カウントとなってしまい、入力制限がうまく機能しません。
>どなた様か、半角英数字を２文字で１カウントにする方法を教えて下さい。
>よろしくお願いいたします。
テキストボックスの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
確認してみて下さい
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
