改行

解決

---

初心者です。
ＶＢのテキストボックスからストリング変数に文字を格納しています。
そのストリング変数内の値をエクセルに吐き出すのですが、改行コードをchr(10)
に置換え、置き換えた数を知りたいのですがどうしたらよいでしょうか？
いまいち仕組みがわかりません
よろしくお願いします

編集 削除

---

>改行コードをchr(10)
ん〜、表記上、vbCrLFのほうが好きだなぁ〜

ってのは置いておいて、
Len(Trim(ストリング変数))-Replace(Trim(ストリング変数),chr(10),"")

#花ちゃん式

編集 削除

---

ぎゃ〜、誤爆
Len(Trim(ストリング変数))-Replace(Trim(ストリング変数),chr(10),"")
↓
Len(Trim(ストリング変数))-Len(Replace(Trim(ストリング変数),chr(10),""))

編集 削除

---

いな様即答ありがとうございます！
説明がたりなたっかみたいですのでもう一回いきます
ＶＢのフォームに入っているテキストボックスの値をストリング変数に格納して
変数の値をエクセルのセルにはき出したいのですが、vbCrLF  が入っていると”・”がセルの中に入ってしまいきちんと改行してくれないのでchr(10)に置き換えたいのです！
そのさいにvbCrLFの数をほかに投げたいのでカウントできるとありがたいです
なんか文章下手ですいません。
よろしくお願いします。

編集 削除

---

vbCrLfをvbLfに置き換えて、その置き換えた数を知りたいってことですよね？

いなさんの例はvbCrLfを""にしてるだけなので、応用すれば置き換えもカウントも
出来ると思います|o_o

カウント出来ませんでしたか？

編集 削除

---

いな様  ＫＧ様  ありがとうございました
Len(Trim(ストリング変数))-Len(Replace(Trim(ストリング変数),vbCrLF,chr(10)))
で無事解決いたしました
本当に助かりました！ありがとうございます

編集 削除

---

初心者さんフィードバックありがとうございました。

いまさらですが、いなさんの例は「vbCrLfを」じゃなくて「chr(10)を」でしたね・・

お恥ずかしい|_ _;

編集 削除

---

ん〜
>いなさんの例
と言われるとホント恐縮なんですが・・・。

http://www.gizshare.com/vbtomo/boards/vbhajikari.php?do=leaf&num=2894
でつい最近投稿されている内容なんだよねぇ〜

編集 削除

---

ノ＜コレとか。
http://www.gizshare.com/vbtomo/boards/vbhajikari.php?do=spread&num=2884#2888

編集 削除

---

誤爆したー(TT
スルーしたってください(orz

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。