Запуска макроса для выделения при открытии документа - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. Подскажите с таким вопросом. Есть код для выделения координат выделенной ячейки. Он запускается при нажатии Alt+F8 и выборе соответствующей процедуры. Как можно сделать так, что бы он запускался самостоятельно, при открытии документа? Заранее спасибо.

Решение задачи: «Запуска макроса для выделения при открытии документа»

textual
Листинг программы
Public Coord_Selection As Boolean   'глобальная переменная для вкл/выкл выделения
 
Sub Krest(Target As Range)
    Dim WorkRange As Range
    If Target.Cells.Count > 1 Then Exit Sub  'если выделено больше 1 ячейки - выходим
    If Coord_Selection = False Then Exit Sub    'если выделение выключено - выходим
    Set WorkRange = Range("A1:CP500")    'адрес рабочего диапазона, в пределах которого видно выделение
    Application.EnableEvents = False
    Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select   'формируем крестообразный диапазон и выделяем
    Target.Activate
    Application.EnableEvents = True
End Sub

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы