The okk
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ZORRO2005
Код:
Sub CreateSheets()
Dim Cell As Range
Dim wsNewSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
For Each Cell In [A:A].SpecialCells(xlCellTypeConstants)
Set wsNewSheet = Worksheets.Add
wsNewSheet.Name = Cell
If Err <> 0 Then _
wsNewSheet.Name = InputBox( _
"Лист с таким именем уже существует. Введите другое имя", _
"Ошибка")
Next Cell
Application.ScreenUpdating = True
End Sub |
Anton T
Цитата:| Как сделать проходит(ProgressBar) считать строки ? |
А поконкретней?
Извини - занят был просто. Конец месяца - тестили мою прогу, находились глюки, не оговоренные в техзадании, приходилось вносить изменения. Сегодня только свободные пару часов появились. Я нашел табличный контрол, превосходящий ListView по качеству и, что немаловажно, простоте. Называется Microsoft Office Spreadsheet 10. Это мини-Excel. Выгодно отличается от ListView тем, что легко и непринужденно работает с массивами, опознает Range (поскольку является "младшим братом" Excel), может превращаться как в ListView, так и в ListBox простым отключением возможностей, имеет встроенный метод экспорта содержимого в xml-файл и т.д. Хотя, конечно, не без недостатков: не понимает стиль ссылок R1C1, не знаком с Автозаполнением и, если не ошибаюсь, не знаком с методом Range.Resize. Но, в целом, работать ОЧЕНЬ удобно и приятно. Все свои формы с ListView перевел на SpreadSheet за час - разбираться-то не надо - все, как в экселе (только ячеек поменьше). |
Всего записей: 327 | Зарегистр. 16-11-2006 | Отправлено: 13:52 02-02-2007 | Исправлено: The okk, 14:35 02-02-2007 |
|
Еще полгода изучения VBA и стану крутым, как Уокенбах, буду книжки писать и сделаю надстройку еще более навернутую, чем PUP 
. Так же и тут - работать будет, НО только если будешь задавать поиск *строка_поиска*. Если подработать процедуру поиска, можно, конечно, добиться вполне достойных результатов, НО результат не стоит потраченного времени. - Золотое правило VBA: если можешь обойтись без VBA, обойдись 
