Excel VBA質問箱 IV

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

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


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

74711 / 76738

←次へ　｜　前へ→


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

つん

- 03/7/4(金) 10:06 -


	引用なし

	パスワード

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

これで、４０バイト以上入力できへんようになりますが・・・
半角でも２バイトで１文字やから、これで２０文字しか入力できへんなぁ。

0 hits

▼

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