[[20141016173401]]　『リストボックスの改行マーク』（りんご）　ページの最後に飛ぶ

『リストボックスの改行マーク』（りんご）

 いつもお世話になっております。
 本日も宜しくお願い致します。

 セルに入力されている内容をリストボックスに表示させるユーザーフォームを
 作成しました。

 長い文言は改行し、シート全体を見やすく作成しています。

 この長い文言をリストボックスに表示させた時に、改行マークが出てしまいます。
 このマークをスペースや「/」等に変更させる事は可能でしょうか？

 ↓　↓　↓　↓
 リストボックスに表示させるコードです。
 別のコンボボックスでカテゴリを選択、
 それに応じてワークシートをセットしています。

 With ListBox1
  .AddItem ""

   With ws
    With .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
         For Each c In .Cells

       If c.Offset(, 3).Value Like "*" & Me.Box3.Value & "*" Then

        ListBox1.AddItem c.Text
        ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(, 3).Text
        ListBox1.List(ListBox1.ListCount - 1, 2) = ""
        ListBox1.List(ListBox1.ListCount - 1, 3) = c.Offset(, 4).Text

       End If
        Next c

 End With
 End With
 End With

 End Sub

 その他、必要なヵ所のコードがありましたらご教授下さい。
 以上、宜しくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

改行が使えないのは、ListBoxコントロールの仕様でしょうね。
ListBox1.AddItem Replace(c.Text, vbLf, "/")
（???） 2014/10/16(木) 18:06

 ???様

 ご回答ありがとうございました。
 おかげ様で希望通りの形で表示できるようになりました。
 今後とも宜しくお願い申し上げます。
（りんご） 2014/10/17(金) 13:47

コメント返信：

[ 一覧(最新更新順) ]

[[20141016173401]] 『リストボックスの改行マーク』（りんご） ページの最後に飛ぶ

[[20141016173401]]　『リストボックスの改行マーク』（りんご）　ページの最後に飛ぶ