Excel VBA質問箱 IV

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

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


4476 / 13644 ツリー ←次へ | 前へ→

【56380】Len 関数は改行をカウントしますか? おじさん46 08/6/15(日) 19:29 質問[未読]
【56382】Re:Len 関数は改行をカウントしますか? りん 08/6/15(日) 20:27 回答[未読]
【56383】Re:Len 関数は改行をカウントしますか? おじさん46 08/6/15(日) 20:58 お礼[未読]

【56380】Len 関数は改行をカウントしますか?
質問  おじさん46  - 08/6/15(日) 19:29 -

引用なし
パスワード
   Private Sub TextBox1_Change()
'残り文字数算出
Dim m
m = TextBox1.Text
TextBox2.Text = 120 - Len(m)
End Sub

入力できる残り文字数を表示するようにしました。
TextBox1は改行できる様にしています。
そのためか120文字入力したらTextBox2には-6を表示します。

TextBox2に0を表示させたいんですが、
改行をカウントする関数を探しましたがありませんでした。

TextBox2に0を表示さる良い方法がありましたらご教授をお願いします。

【56382】Re:Len 関数は改行をカウントしますか?
回答  りん E-MAIL  - 08/6/15(日) 20:27 -

引用なし
パスワード
   おじさん46 さん、こんばんわ。
>Private Sub TextBox1_Change()
>'残り文字数算出
>Dim m
>m = TextBox1.Text
>TextBox2.Text = 120 - Len(m)
>End Sub

>入力できる残り文字数を表示するようにしました。
>TextBox1は改行できる様にしています。
>そのためか120文字入力したらTextBox2には-6を表示します。
3回改行が入っているということですかね。

改行(コード)だけ無視したいのなら、

 m = Replace(TextBox1.Text, vbCrLf, "")

でいかがでしょうか。

【56383】Re:Len 関数は改行をカウントしますか?
お礼  おじさん46  - 08/6/15(日) 20:58 -

引用なし
パスワード
   ▼りん さん:こんばんわ。

早速のご指導ありがとうございます。o(^-^)o
表示が0になりました。
本当にいろいろな関数があるんですね。勉強になりました。
感謝します、助かりました。m(__)m

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