Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

74707 / 76738

←次へ　｜　前へ→


	【6491】すみません・・・。

Salem - 03/7/4(金) 10:31 -


	引用なし

	パスワード

▼つんさん：
>Salem さん、ichinoseさんおはようございます。
>横から失礼します。
>
>>また、質問なんですが、テキストボックスで
>>４０文字（CHAR型）入力制限をしたいのですが、
>>何か良い方法はないでしょうか？
>>LenBを使用して
>>
>>IF LenB(TextBox1) > 40 THEN
>>　・・・・・・・・・・・
>>END IF
>>
>>このようにしようと思ったのですが、メッセージを
>>出さずに、入力制限の方法がわかりません・・・。
>>何か良い方法があったら教えてください。
>>宜しくお願い致します。
>
>こうかな？
>
>Private Sub TextBox1_Change()
>
>　　If LenB(TextBox1.Value) > 40 Then
>　　　　TextBox1.Value = LeftB(TextBox1.Value, 40)
>　　End If
>
>End Sub
>
>これで、４０バイト以上入力できへんようになりますが・・・
>半角でも２バイトで１文字やから、これで２０文字しか入力できへんなぁ。

説明が足りなかったです・・・。えっとですね、
全角で20文字　半角で40文字　入力制限をしたいんですよ・・・。

*************************************************
全角：あいうえおかきくけこさしすせそたちつてと
半角：1234567890123456789012345678901234567890
*************************************************

0 hits

▼

【6475】テキストボックス Salem 03/7/3(木) 22:22