Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Как сделать кнопку переключения режима R1C1 Добавлено: 08.06.09 06:50  

Автор вопроса:  abv
Доброго времени суток.
Хотел вынести на стандартную панель кнопку переключения режимов отображения адресов ячеек со стиля А1 на R1C1. А кнопки такой просто нет. В ворде не сложно создать программируемую кнопку (макрос записывается в общий шаблон), а в ёкселе я чего-то недопонимаю. Помогите пожалуйста! Заранее благодарен.

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 AngryBadger



Вопросов: 33
Ответов: 245
 Профиль | | #1 Добавлено: 08.06.09 09:25
Создаешь настраиваемую кнопку, на неё вешашь макрос

If Application.ReferenceStyle = xlR1C1 Then
   Application.ReferenceStyle = xlA1
Else
   Application.ReferenceStyle = xlR1C1
End If

Ответить

Номер ответа: 2
Автор ответа:
 abv



Вопросов: 4
Ответов: 16
 Профиль | | #2 Добавлено: 16.06.09 05:53
Спасибо за ответ, Михаил. С кодом макроса проблем нет. А как кнопку на панель инструментов вынести? Как вариант, в каждом файле на время настройки программы сделать макрос, не очень удобно.

Ответить

Номер ответа: 3
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #3
Добавлено: 18.06.09 22:08
Удобно, спасибо за совет - на работе себе прикрутил и кнопочку красивую в тему нарисовал))

Делается все очень просто. Описываю по шагам:
1. Выбираешь меню Сервис - Макрос - Начать запись... Появится окно "Запись макроса".
2. Пишешь осмысленное имя макроса, выбираешь в списке "Сохранить в:" пункт "Личная книга макросов", жемшь Ok, потом на Stop (останавливаешь запись макроса).
3. Нажимаешь Alt+F8, в окне "Макрос" выбираешь "PERSONAL.XLS!Твое_имя_макроса" и кнопкой "Войти" попадаешь в редактор VBA, там нажми Stop, чтобы прекратить отладку. Убери из тела процедуры макроса все-все и поставь код:
  1. If Application.ReferenceStyle = xlR1C1 Then
  2.    Application.ReferenceStyle = xlA1
  3. Else
  4.    Application.ReferenceStyle = xlR1C1
  5. End If
, после жми "сохранить" и закрывай редактор.
4. Правой кнопкой мыши щелкаешь над панелью инструментов и выбираешь пункт "Настройка..." всплывающего меню. Как вариант: меню Сервис - Настройка...
5. В окне "Настройка" на вкладке "Команды" в списке выбираешь пункт "Макросы", во втором списке справа появится пункт "Настраиваемая кнопка" с иконкой в виде смайлика - его и перетаскиваешь себе на любую панель, куда тебе нравится.
6. Правой кнопкой мыши на кнопке со смайликом на выбранной панели и выбираешь пункт всплывающего меню "Назначить макрос" - выбираешь наш макрос, затем "Ok", закрываешь и окно Настройка. Все!
7. Для пущей красоты можете изменить иконку или нарисовать свою собственную иконку (как это сделал я) - для этого в Excel 2003 есть даже редактор иконок!

Вот так мы сделали удобную фенечку для быстрой работы. Кстати, макросу для быстроты можно еще и горячую клавишу назначить.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам