Быстрое переключение "стиля ссылок R1C1" в Excel 2003

версия для печати

Продолжная тему настройки интерфейсов "под себя" в этой статье я расскажу, как можно в Excel 2003 сделать кнопку быстрого переключения стиля ссылок. Здесь под ссылками нужно понимать способ нумерации колонок и ячеек на листах Excel. Мне такое название кажется не удобным, но не я его придумал. Буду придерживаться принятой терминологии.

Чтобы переключить стиль ссылок обычным путем, нужно зайти в меню "Сервис" > "Параметры" > вкладка "Общие" флаг "Стиль ссылок R1C1". Это долго и далеко. Для упрощения жизни придется использовать код на VBA. Чтобы не пугать вас всеми вариантами создания такого кода рассказываю самый очевидный способ. Меню "Сервис" > "Макрос" > "Начать запись". В появишемся окне можно ничего не менять, кроме места сохранения. Там выбираем "Личная книга макросов". Жмем Ok и пишем макрос. После записи не забудьте нажать кнопку "Остановить запись".

Макрос. Настройка

Что конкретно писать, роли не играет, все равно весь код будем заменять. Можете для соблюдения логики записать сам процесс переключения стиля ссылок. Для этого нужно пройти по указанному выше пути и сбросить или поднять нужный флаг. Теперь остановите запись.

Поясню, что получилось: в специальной книге записался программый код, вызов которого сбросит (или поднимет) флаг стиля ссылок R1C1. Этот код можно вызвать из любой книги Excel (помните настройку, "сохранить в:"? ). При этом программа будет работать при любом уровне параметра безопасности макросов.

Все отлично, за исключением того, что записанный макрос не будет переключать стиль ссылок. Он будет либо только сбрасывать, либо только поднимать флаг. Требуется вмешательноство в код макроса. Меню "Сервис" > "Макрос" > "Редактор Visual Basic"

Редактор Visual Basic

Откройте проект "personal.xls", и замените в его модуле только записанный макрос (смотрите по дате и имени) на код приведенный ниже.

Sub Макрос1()
  If Application.ReferenceStyle = xlR1C1 Then
          Application.ReferenceStyle = xlA1
  Else: Application.ReferenceStyle = xlR1C1
  End If
End Sub

Последний шаг: нужно связать вызов этого макроса с кнопкой на панели инструментов. Для этого добавьте новую кнопку в инструменты (ПКМ по свободному месту в верхней части окна Excel > "Настройка" > вкладка "Команды". Категория "Макросы", команда "Настраиваемая кнопка").

Макрос. Настройка

После размещения кнопки на панели нужно связать ее с макросом. Не закрывая окно настроек, ПКМ по кнопке > "Назначить макрос ..." Остается выбрать в списке соответствующий макрос. Например, у меня он называется "PERSONAL.XLS!Макрос1".

Если все сделали правильно, то наконец у вас есть возможность в любой открытой книге Excel простым нажатием на кнопку переключить стиль ссылок на R1C1 и обратно.

[1oo%, EoF]


Похожие материалы: Быстрый доступ к автофильтру в Excel 2003
Понравилась статья? Расскажите о ней друзьям:


Комментарии
Для работы модуля комментариев включите javaScript


Показать/скрыть правила
Имя
[i] [b] [u] [s] [url]
:-) ;-) :D *lol* 8-) :-* :-| :-( *cry* :o :-? *unsure* *oops* :-x *shocked* *zzz* :P *evil*

Осталось 1000 символов.
Код защиты от спама Обновить код
Каждый комментарий проходит ручную модерацию. 100% фильтрация спама.
Продвижение
Время
Метки
Щелкни мышей, чтобы закрыть