![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
![]()
Здравствуйте уважаемые программисты.
Подскажите, как сделать так, чтобы проект "VBAProject (Таскать.xla)", из вложения, работал во всех открытых книгах. Т.е., чтобы срабатывало, во всех открытых книгах: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Последний раз редактировалось agregator; 12.02.2010 в 14:43. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
![]()
Надстройку насколько я знаю надо поместить суда:
C:\Documents and Settings\User\Application Data\Microsoft\AddIns а далее открыть Excel и в меню Надстроек подключить ее. |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
![]()
Maxx, я так и сохранил. Но мне надо, чтобы
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) из VBAProject (Таскать.xla), срабатывало, во всех открытых книгах. |
![]() |
![]() |
![]() |
#4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Надо использовать события объекта Application
http://www.planetaexcel.ru/forum.php?thread_id=7710 http://www.intuit.ru/department/office/vba2000/4/5.html http://vbnet.ru/forum/show.aspx?id=150461#1 Подробнее - в поиске |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 06.10.2009
Сообщений: 193
|
![]()
Вот что получилось, тестируй.
Скопируй в папку C:\Documents and Settings\Пользователь\Application Data\Microsoft\AddIns
С Уважением, Костик
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
![]()
KOSTIK1, спасибо работает как надо.
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
![]()
Странно, но если протянуть одну ячейку за угол, потом включить режим перетаскивания и изменить параметры автозамены, то выскакивает Debug и VBAProject (Таскать.xla) перестаёт работать. А в варианте без Class такого нет.
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 06.10.2009
Сообщений: 193
|
![]()
Может лучше включать когда надо?
С Уважением, Костик
Последний раз редактировалось KOSTIK1; 13.02.2010 в 17:26. Причина: Подправил |
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 06.10.2009
Сообщений: 193
|
![]()
Наверно нужна "помощь клуба"
![]()
С Уважением, Костик
Последний раз редактировалось KOSTIK1; 13.02.2010 в 16:26. |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
![]()
Все здрасти.
Проблема. Скопировал надстройку Таскать.xla в папку C:\Documents and Settings\Пользователь\Application Data\Microsoft\AddIns Поставил галочку в Надстройках. При следующем открытии нужного файла Excel, при выполнении кода: Private Sub Workbook_Open() Set VSh.Taskay = Application ФормированиеПанелиИнструментов End Sub Формируется панель и создаётся новая Книга1, а нужная книга не открывается. Я думаю, что проблема в работе Sub ФормированиеПанелиИнструментов(), но конкретно не знаю. Помогите разобраться. Последний раз редактировалось agregator; 15.02.2010 в 14:32. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как заставить код работать во всех книгах указанной папки | KNatalia | Microsoft Office Excel | 12 | 25.12.2012 11:32 |
О книгах | Halifath | Помощь студентам | 3 | 11.02.2010 08:00 |
список всех открытых файлов и папок. | Teleport | Общие вопросы Delphi | 4 | 22.06.2008 11:29 |
Список открытых портов | Баламут | Работа с сетью в Delphi | 3 | 21.05.2008 10:17 |
Список открытых файлов | ExcArt | Microsoft Office Excel | 3 | 30.03.2008 11:06 |