Name361
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо! ZORRO2005
Мдааааааааааа...  Не просто будет разобраться нубу, который впервые заглянул в содержимое макроса. Ну ничего, я постараюсь. Надо только принцип понять =))
А пока я записал макрос старым, проверенным, способом. Я выделил диапазон, который надо сортировать, и ,запустив макрос на запись, отсортировал строки. Вот что получилось:
Sub Макрос1СортСтрок()
' Макрос1СортСтрок Макрос
' Макрос записан 12.03.2008 (111)СортСтрок
' Сочетание клавиш: Ctrl+у
Range("B17:AU259").Select
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=-255
ActiveWindow.LargeScroll ToRight:=1
Range("B17:AW259").Select
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=-234
Selection.Sort Key1:=Range("B17"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Подскажите если знаете:
1) Как сделать, чтобы этот макрос срабатывал при изменении значений в определённом столбце или даже ячейке? Например в столбце B.
2) Как сделать так, чтобы в сортировке не учавствовали пустые строки и строки, которые имеют значение 0:00:00 по столбцу "B" в указанном диапазоне
Если я расширю диапазон строк, например на 100(т.е. B17:AU259) для внесения дополнительных данных.
Прошу извинить за невежество по этому вопросу. Заранее спасибо. |
Всего записей: 5 | Зарегистр. 06-03-2008 | Отправлено: 22:41 12-03-2008 | Исправлено: Name361, 23:28 12-03-2008 |
|
