Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 57569
Главная » Готовые решения » VBA » Полезные приёмы

ListView элемент управления польз. форм
19.10.2016, 19:49
[ Файл-пример (39.1 Kb) ]
'требуется ссылка MS Common Controls 6.0
Private Sub UserForm_Initialize()
Dim x, i&, j&
x = Range("A1").CurrentRegion.Value

With Me.ListView1
' .Sorted = True 'сортировка по 1-му столбцу (SortKey = 0)
 With .ColumnHeaders
 For j = 1 To UBound(x, 2)
 .Add , "Key" & j, x(1, j), 50
 Next j
 End With
 For i = 2 To UBound(x)
 With .ListItems.Add(, , x(i, 1))
 For j = 2 To 6
 .ListSubItems.Add , , x(i, j)
 Next j
 End With
 Next i
End With
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With Me.ListView1
 .Sorted = True
 .SortKey = ColumnHeader.Index - 1 'сортирует как текст!
 .SortOrder = IIf(.SortOrder = 1, 0, 1)
End With
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Me.TextBox1.Value = Item.Index
Me.TextBox2.Value = Item.SubItems(2)
End Sub
Добавил: nilem | | Теги: ListView
Просмотров: 2571 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!