![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 21.03.2013
Сообщений: 10
|
![]()
Здравствуйте.
Подскажите, пожалуйста, как осуществить: открывается файл с данными, запускается макрос из личной книги макросов, на лист в ячейку С1 добавляется кнопка с некоторой функцией, открытый файл сохраняется с кодом кнопки. и ещё момент: с помощью Cells(1, Columns.Count).End(xlToLeft).Column можно определить номер последнего столбца, но использовать в Range его не получается, т.к. в Range используется буквенное обозначение столбца, как быть? Последний раз редактировалось zaquson; 25.03.2013 в 11:56. |
![]() |
![]() |
![]() |
#2 | |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
![]()
http://www.planetaexcel.ru/forum/ind...FID=8&TID=3867
вот тут по кнопкам посмотрите. Цитата:
Код:
Правильно поставленная задача - три четверти решения.
|
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 21.03.2013
Сообщений: 10
|
![]()
По этой ссылке нет информации для решения данной задачи.
Смысл рассчитать, на сколько я представляю, ширину столбцов A и B - это и будет начало ячейки С1. Координаты определены. Вставляем кнопку. Внедряем код этой кнопки в открытый файл. Сохраняем файл с внедрённым кодом под каким-нибудь именем. спасибо за "как-то так", как всегда всё оказалось просто... |
![]() |
![]() |
![]() |
#4 | ||
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
![]() Цитата:
![]() координаты - не проблема. Решается просто: Код:
Цитата:
- для Buttons потребуется привязать Вашу кнопку к макросу. Например: Код:
Правильно поставленная задача - три четверти решения.
|
||
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 21.03.2013
Сообщений: 10
|
![]()
нашёл типа
Application.VBE.ActiveVBProject.VBC omponents.Import ("c:\Module1.bas") но, что-то не работает: "Method 'VBE' of object'_Application' failed" |
![]() |
![]() |
![]() |
#6 | |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
![]() Цитата:
Правильно поставленная задача - три четверти решения.
|
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 21.03.2013
Сообщений: 10
|
![]()
вроде получилось, конечно всё пришлось переделывать под себя...
спасибо за уделённое время! |
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 21.03.2013
Сообщений: 10
|
![]()
единственное только...
по нажатию кнопки должны скрываться или раскрываться подробности поля сводной таблицы, т.е. по идее должно быть: if ActiveSheet.PivotTables("свд").Pivo tFields("Поле").ShowDetail = False then ActiveSheet.PivotTables("свд").Pivo tFields("Поле").ShowDetail = True else ActiveSheet.PivotTables("свд").Pivo tFields("Поле").ShowDetail = False но ошибка: "Невозможно получить свойство PivotTables класса Worksheet" Последний раз редактировалось zaquson; 26.03.2013 в 15:39. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перезаписать открытый файл | NEoMASTERR | Общие вопросы Delphi | 3 | 28.01.2012 08:46 |
внедрение исполняемого кода в PE файл | Dante13 | Win Api | 6 | 27.04.2011 11:27 |
Куда ворд сохраняет по умолчанию файл открытый из архива | Nick K | Софт | 7 | 21.07.2010 08:55 |
внедрение кода(Visual Studio) | koljsch | Visual C++ | 10 | 07.04.2010 13:55 |
Внедрение кода в EXE | prizrak1390 | Общие вопросы Delphi | 16 | 07.05.2008 08:10 |