The okk
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Anton T Дык, сказал бы, что надо, чтобы выглядело нормально. Лови код: Код: Private Sub UserForm_Initialize() Dim RowCounter As Long Dim ls As Worksheet For Each ls In Worksheets 'в каждом листе For RowCounter = 1 To ls.UsedRange.Rows.Count 'проходим по всем строкам With ListView1 'и в ListView .Gridlines = True 'рисуем сетку (ибо удобно!) With .ListItems .Add = ls.Cells(RowCounter, 1) 'добавляем элемент (Фамилию) .Item(.Count).SubItems(1) = ls.Cells(RowCounter,2) 'и его подэлементы .Item(.Count).Subitems(2) = ls.Cells(RowCounter,3) 'и т.д. ... End With End With Next Next End Sub | Вручную предварительно настрой ListView (ширину столбцов, их названия, ключи (если нужны), и формат отображения - Report). Будет выглядеть так же, только с сеткой и встроенными столбцами (и еще вагоном полезных и бесполезных возможностей, в которых я сейчас пытаюсь разобраться ). что касается разделения: Код: Public Sub SplitNum(BaseNum As Range) Dim FirstNum As Integer, SecondNum As Integer FirstNum = CInt(Left(BaseNum, InStr(1, BaseNum, "/") - 1)) SecondNum = CInt(Right(BaseNum, Len(BaseNum) - InStr(1, _ BaseNum, "/"))) BaseNum = FirstNum BaseNum.Offset(0, 1) = SecondNum End Sub | Подавай на вход ячейку и получишь на выходе две ячейки - с первым и со вторым числом. А что значит "отображать все листы в списке"? | Всего записей: 327 | Зарегистр. 16-11-2006 | Отправлено: 08:11 22-12-2006 | Исправлено: The okk, 08:38 22-12-2006 |
|