vbaのユーザーフォームにて、データの一覧表示の際、改行を含むデータを改行された状態で表示させたい。

Question

実現したいこと

vbaのユーザーフォーム上にデータを一覧表示する際に、改行を含む文字列のデータを改行された状態で表示させたい。

vbaのユーザーフォーム上にデータをグリッド形式で、一覧表示させるのに、現状リストボックス（かリストビュー）コントロールを用いているのですが、表示させるデータに改行が含まれていた場合、１行で表示されてしまいます。
例）
「aaa
bbb
ccc」
というデータがあった場合「aaabbbccc」という風に表示されてしまう。

過去に同様な質問があり、対応方法があったので、参考にしましたが、改行のたびに、次の行にデータが表示されてしまいます。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14185677849

理想としては、行の高さが自動調整され、一つのセル？内に収めたいです。
リストビューやリストボックスでは、それが仕様なのでしょうが、他の方法や、解決方法等ありましたら、ご教示願います。
※バージョンが異なるので、DataGridViewは扱えません。

Comments

[mattuwan]

ユーザーフォームは何年も仕様が変わってないので、ユーザーフォームにこだわる必要がないのでは？
エクセルのシートをユーザーフォームのように使うのもありかなぁ。。。。と、、、
エクセルのシートは非常に高機能なので、、、、
素人の意見ですが参考まで。

[masu]

それもあるのですが、他の機能をユーザーフォームで作っていて、一貫させたいという思いがありまして。
それと意外と気になっている方も多いのではないかという趣旨もあり質問させていただいています。

Answer 1

リストボックスには複数行を表示するという機能がなさそうです。
テキストボックスにはあるので、無理やりたくさん配置し、
リストボックスっぽく見せるとか？？？

Private Sub UserForm_Initialize()
    Dim v
    
    v = Split(Range("A1").Value, vbLf)
    v = Join(v, vbCrLf)

    Me.ListBox1.AddItem v
    
    With Me.TextBox1
        .MultiLine = True
        '.WordWrap = True
        '.Text = v
        .Text = Range("A1").Value
    End With
    
    Me.ListBox1.AddItem Me.TextBox1.Text
End Sub

Comments

[masu]

回答ありがとうございます。
やはりそうですよね。
テキストボックスをたくさん配置させ一覧表示させるのは、考えてはみたのですが、できれば改行があった場合、スクロールなしで全文表示されるように、その行分だけボックスの高さを変化させ、なおかつ隣接するテキストボックス同士で高さを合わせるようにしたかったのですが、それは難しいかなと思い断念してしまいました。
恐らく、おっしゃるやり方にして、文字や改行が多いときは、スクロール表示させるのが良さそうではありますが、上記を参考に、もう少し、考えてみます。