請問紅色文字長度如何換行

joyark

請幫忙
請問紅色文字長度如何換行

Private Sub ComboBox1_Change()
ListBox1.Clear
Dim ls As Integer  '定义统计相应列的单元格数目
Dim d
ls = 2
d = Choose(ComboBox1.ListIndex + 1, "b:b", "c:c", "d:d", "e:e", "f:f", "g:g", "h:h", "i:i", "j:j", "k:k", "l:l", "m:m", "n:n", "o", "p:p", "q:q", "r:r", "s:s", "t:t", "u:u", "v:v", "w:w")
Do While ls <= Application.WorksheetFunction.CountA(Sheets("文字数据").Range(d))
ListBox1.AddItem Sheets("文字数据").Cells(ls, ComboBox1.ListIndex + 2)
ls = ls + 1
Loop
End Sub

情比金坚

空格加下划线

joyark

是

空格加下划线

謝謝各位