Excel VBA質問箱 IV

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

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


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

74702 / 76732

←次へ　｜　前へ→


	【6490】Re:すみません、また質問です。

ichinose - 03/7/4(金) 10:16 -


	引用なし

	パスワード

つんさん、Salem さんおはようございます。

>>また、質問なんですが、テキストボックスで
>>４０文字（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
>
>これで、４０バイト以上入力できへんようになりますが・・・
>半角でも２バイトで１文字やから、これで２０文字しか入力できへんなぁ。

Textboxには、Maxlengthというプロパティもありますので
これを指定すれば、文字数でよければ制御できますよ！

0 hits

▼

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