Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68063 / 76734 ←次へ | 前へ→

【13215】Re:テキストボックスで半角文字と全角文字の...
回答  ichinose  - 04/4/28(水) 0:49 -

引用なし
パスワード
   ▼うめこ さん:
こんばんは。

>はじめまして。
>ユーザーフォームのテキストボックスに入力制限を設けたいのですが、うまくいきません。
>今までは全角文字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

確認してみて下さい
0 hits

【13214】テキストボックスで半角文字と全角文字の... うめこ 04/4/27(火) 23:42 質問
【13215】Re:テキストボックスで半角文字と全角文字... ichinose 04/4/28(水) 0:49 回答
【13257】Re:テキストボックスで半角文字と全角文字... うめこ 04/4/29(木) 0:15 お礼

68063 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free