Office中国论坛/Access中国论坛

标题: 請問紅色文字長度如何換行 [打印本页]

作者: joyark 时间: 2005-12-23 17:42
标题: 請問紅色文字長度如何換行
請幫忙
請問紅色文字長度如何換行

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

作者: 情比金坚 时间: 2005-12-24 08:07
空格加下划线

作者: joyark 时间: 2005-12-24 10:26
是

空格加下划线

謝謝各位

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)