Pokemonchyk
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
miwa
Цитата:
А если писать
ActiveWorkBook.Sheets("sheet1").Range(Cells(1, 1), Cells(30, 12)).Sort
? |
То же самое.
Код:
Sub sorted()
ActiveWorkbook.Sheets("sheet1").Range(Cells(1, 1), Cells(30, 12)).Sort Key1:=ActiveWorkbook.Sheets("sheet1").Columns("A"), order1:=xlAscending, Header:=xlNo
End Sub
|
В чем весь и прикол то. Книга открыта только одна.
Лист переименовал для простоты в "sheet1"
Добавлено:
Еще одна особенность. Создал кнопку, привязал к ней код показа формы
Код:
В коде формы пишем
Код:
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("sheet1").Range(Cells(1, 1), Cells(30, 12)).Sort Key1:=ActiveWorkbook.Sheets("sheet1").Columns("A"), order1:=xlAscending, Header:=xlNo
End Sub
|
То-есть суть такова: кнопка, показывает форму. Пользователь нажимает кнопку на форме, а она исполняет код.
Но вот что странно. Когда кнопка, которая запускает форму находится на том же листе, что сортируемый диапазон, то все прекрасно.
А эта же кнопка (которая запускает форму) находится на другом листе - вываливается ошибка 1004.
Добавлено:
нашел решение сам!!! 
Нужно типа активировать лист
Код:| Worksheets("sheet1").Activate |
А допер после того, как записал макрорекордером и подправил под себя и получился следующий РАБОЧИЙ код:
Код:
Sheets("sheet1").Select
Range(Cells(1, 1), Cells(30, 12)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
|
Но поскольку мене не нужно было чтобы диапазон выделялся, то переделал и итоге получил нужный код
Код:
Private Sub CommandButton1_Click()
Dim sw As Worksheet
Set sw = Worksheets("sheet1")
sw.Activate
sw.Range(Cells(1, 1), Cells(30, 12)).Sort Key1:=sw.Columns("A"), Order1:=xlAscending, Header:=xlNo
End Sub
|
Когда пытаешься объяснить кому-то суть проблемы и раскладываешь все по полочкам, то приходят в голову нужные мысли
Спасибо что существует это форум! |
Всего записей: 8 | Зарегистр. 22-06-2008 | Отправлено: 20:35 04-07-2012 | Исправлено: Pokemonchyk, 23:40 04-07-2012 |
|
