Определить самую длинную строку в ListBox

Posted by obzor under VBA

Подскажите, пожалуйста, как кодом определить длину (Len(Me.ListBox1.List(x))) самой длинной строки в списке ListBox1 на форме? (vba excel 2003).

pashulka

For i = 0 To ListBox1.ListCount - 1
    m = Application.Max(m, Len(ListBox1.List(i)))
Next
MsgBox m

Aleksandr H.

v.2

m = 0
For i = 0 To ListBox1.ListCount - 1
    IF m < Len(ListBox1.List(i)) then m = Len(ListBox1.List(i))
Next
debug.print m

pashulka

v2.5

For i = 0 To ListBox1.ListCount - 1
    l = Len(ListBox1.List(i))
    m = IIf(l > m, l, m)
Next
MsgBox m

+

a = ListBox1.List
For i = 0 To UBound(a)
    l = Len(a(i, 0)): m = IIf(l > m, l, m)
Next
MsgBox m

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel