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 |
|
И куда в обычном модуле? Совсем неработает и в код листе тоже неработает.