Проблема с Range и MergeCells

Программирование на Visual Basic for Applications
Brudda
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 21.02.2005 (Пн) 14:47
Откуда: Рига

Проблема с Range и MergeCells

Сообщение Brudda » 28.03.2005 (Пн) 13:36

Привет!
Столкнулся со странной проблемой - не знаю как бороться, может подскажете чего?
В книге есть два листа на первом - кнопка, к которой привязан следующий код (точнее - его часть):
Код: Выделить всё
For Column = 1 To 36 Step 8
  For Row = 3 To 183 Step 18
    Sheets("Risk Profiles").Range(Cells(Row, Column), Cells(Row, Column + 7)).MergeCells = True
  Next Row
Next Column


Страница "Risk Profiles" - вторая.
При нажатии на кнопку вылетает обшика (Applicaion...).
Однако, если тот же самый код поместить на событие Workbook Open или просто макрос (не привязанный ни к чему), то он работает.
Может знает кто, как с этим бороться?
Заранее спасибо.
С почтением
Brudda

Rombo
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 12.12.2004 (Вс) 22:21
Откуда: москва

Сообщение Rombo » 28.03.2005 (Пн) 13:45

дык у тебя на первой worksheet объект Cells вызывается.

либо добавь в начале строчку
Sheets("Risk Profiles").select
(если лист видимый)


либо пиши перед каждым Cells
Sheets("Risk Profiles").

либо используй конструкцию
with Sheets("Risk Profiles")
......
end with

Brudda
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 21.02.2005 (Пн) 14:47
Откуда: Рига

Сообщение Brudda » 28.03.2005 (Пн) 14:34

Мда...
Rombo, ты, похоже, прав.
Плохо жить с фанерной головой :( пойду пробовать.
Спасибо.
С почтением,
Brudda

Rombo
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 12.12.2004 (Вс) 22:21
Откуда: москва

Сообщение Rombo » 28.03.2005 (Пн) 22:51

интересный способ.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 44

    TopList