Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4490 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56380】Len 関数は改行をカウントしますか？ おじさん４６ 08/6/15(日) 19:29 質問[未読]
【56382】Re:Len 関数は改行をカウントしますか？ りん 08/6/15(日) 20:27 回答[未読]
【56383】Re:Len 関数は改行をカウントしますか？ おじさん４６ 08/6/15(日) 20:58 お礼[未読]
【56380】Len 関数は改行をカウントしますか？
質問  おじさん４６  - 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 -
引用なし
パスワード
   おじさん４６ さん、こんばんわ。
>Private Sub TextBox1_Change()
>'残り文字数算出
>Dim m
>m = TextBox1.Text
>TextBox2.Text = 120 - Len(m)
>End Sub

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

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

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

でいかがでしょうか。
【56383】Re:Len 関数は改行をカウントしますか？
お礼  おじさん４６  - 08/6/15(日) 20:58 -
引用なし
パスワード
   ▼りん さん：こんばんわ。

早速のご指導ありがとうございます。o(^-^)o
表示が0になりました。
本当にいろいろな関数があるんですね。勉強になりました。
感謝します、助かりました。m(__)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4490 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free