Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » emid
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Открыть программно окно создания колонтитула (верхнего или нижнего)
 
#
18.04.2017 09:31:46
Спасибо Ran.

Немного добавил и открылось нужное меню нижнего колонтитула

Код
 Sub test_down()
    Application.SendKeys "{RIGHT 2}{TAB 3} {ENTER}"
    Application.Dialogs(7).Show
End Sub


для верхнего соответственно

Код
 Sub test_up()
    Application.SendKeys "{RIGHT 2}{TAB 2} {ENTER}"
    Application.Dialogs(7).Show
End Sub


Спасибо всем кто отвечал. Проблема решена.
Изменено: emid - 18.04.2017 11:05:59
 
Перейти    
Открыть программно окно создания колонтитула (верхнего или нижнего)
 
#
17.04.2017 11:47:06
Если у кого получилось приложите пожалуйста файл примера. Пробовал через Immediate строка кода не работает.
Создавал такой код, тоже

Код
Sub test()
    Application.Dialogs(xlDialogPageSetup).Show
    Application.SendKeys "^{TAB}^{TAB}{TAB 3}{ENTER}"
End Sub
Изменено: emid - 17.04.2017 12:59:32
 
Перейти    
Открыть программно окно создания колонтитула (верхнего или нижнего)
 
#
17.04.2017 11:27:49
Цитата
Влад написал: Application.SendKeys
Спасибо за ответ. Интересное решение, но тоже не получилось. Офис 2010.
И не понял для чего нужно %psc.
 
Перейти    
Открыть программно окно создания колонтитула (верхнего или нижнего)
 
#
13.04.2017 14:56:04
Спасибо за ответ.
Это немного не то что нужно.
Необходимо вызвать меню редактирования колонтитула из параметров страницы.
Сейчас приложу файл. Может это и вообще невозможно через vba.  
 
Перейти    
Открыть программно окно создания колонтитула (верхнего или нижнего)
 
#
12.04.2017 09:27:40
Доброго дня. Как уже написал в теме пытаюсь открыть меню нижний колонтитул или верхний колонтитул программно.
Но пока удалось только открыть меню параметры страницы таким образом:

Application.Dialogs(xlDialogPageSetup).Show   :)

Что можно сделать?
 
Перейти    
Не работает код использующий модуль класса., Не получаетсяповторить код описанный в книге Систарда и Джелена "Применение VBA и макросов в Microsoft® Excel"
 
#
13.11.2015 10:05:42
Спасибо! Действительно сработало. Выходит опечатка в книге. :(
А скорее всего я просто вообще не разобрался в модулях класса.
 
Перейти    
Не работает код использующий модуль класса., Не получаетсяповторить код описанный в книге Систарда и Джелена "Применение VBA и макросов в Microsoft® Excel"
 
#
13.11.2015 08:28:08
Вот что должно происходить:

После выполнения процедуры TrapAppEvent обработчик xlApp_New-
Workbook будет формировать нижний колонтитул для каждой новой рабочей
книги, созданной в рамках текущего сеанса работы с Excel

На выходе своего варианта получаю ошибку под кодом 91 в строке
Как раз в процедуре TrapAppEvent.
Set myAppEvent.xlApp = Application

Прошу помочь разобраться.

Причем файл примера из книги работает! Но когда удаляю из него все лишнее работать тоже перестает (там есть другие примеры)
 
Перейти    
При попытке ввести в выпадающий список ссылку на именованный диапазон, данная ссылка пропадает
 
#
24.01.2015 11:44:30
Спасибо за наводку. Попробую и так.
 
Перейти    
При попытке ввести в выпадающий список ссылку на именованный диапазон, данная ссылка пропадает
 
#
24.01.2015 09:49:41
Спасибо. Может у меня какой-то сбой. Буду проверять.
 
Перейти    
При попытке ввести в выпадающий список ссылку на именованный диапазон, данная ссылка пропадает
 
#
24.01.2015 08:29:31
Цитата
ikki пишет: у элемента ActiveX ссылка на источник не может иметь вид формулы или именованного диапазона
Тогда я уже ничего не понимаю, в последнем файле не элемент ActiveX? Но связь кажется есть?
 
Перейти    
При попытке ввести в выпадающий список ссылку на именованный диапазон, данная ссылка пропадает
 
#
24.01.2015 08:27:09
Цитата
Юрий М пишет: Поясните...
на странице "work" есть выпадающий список (ActiveX), он связан с колонкой "умной таблицы" договоры. Но как сделана эта связь, я своими действиями повторить не могу. Я выбираю Разработчик - Режим конструктора - Свойства, и пытаюсь прописать в ListFillRange,именованный диапазон cmb.
Как уже сделано в файле, но его перепрописывании он просто пропадает и все.
Как эта связь в такой случае сделана?

Еще раз прилагаю файл в котором эта связь была как-то настроена пользователем RAN
 
Перейти    
Как связать между собой выпадающий список (ActiveX) и столбец "умной таблицы"
 
#
24.01.2015 08:23:45
RAN, как это вам удалось? Уже всю голову сломал.
 
Перейти    
При попытке ввести в выпадающий список ссылку на именованный диапазон, данная ссылка пропадает
 
#
24.01.2015 00:10:47
Уважаемые знатоки. Прошу не сердится если вопрос элементарен до ужаса. Но просто ничего не пойму. Пытаюсь прописать в ListFillRange ссылку на именованный диапазон, а она пропадает после введения. То же самое происходит если попытаться сделать это через vba.
Прикладываю рабочий файл который мне поправили здесь же, сейчас он работает.  Но если я пытаюсь переввести ссылку на диапазон, то она пропадает. Где я не прав?
 
Перейти    
Как связать между собой выпадающий список (ActiveX) и столбец "умной таблицы"
 
#
23.01.2015 22:25:58
Жаль только, что при добавлении данных в умную таблицу,они появляются в выпадающем списке только после открытия файла заново...
 
Перейти    
Как связать между собой выпадающий список (ActiveX) и столбец "умной таблицы"
 
#
23.01.2015 22:06:05
Благодарю. Подошло.  :)  Ура.
 
Перейти    
Как связать между собой выпадающий список (ActiveX) и столбец "умной таблицы"
 
#
23.01.2015 19:45:40
Уважаемые знатоки. Помогите пожалуйста разобраться с таким вопросом:
На одной странице файла excel -  "умная таблица" с названиями договоров, на другой выпадающий список ActiveX. Как при помощи vba связать их? Варианты: указать меняющийся диапазон в ListFillRange, использовать AddItem чтобы добавить элементы  колонки умной таблицы? Как делать то и другое в vba не знаю, то что испытывал не получилось. В vba  к сожалению, не силен... .
Буду рад вашим подсказкам. Файл прилагаю.
 
Перейти    
Страницы: 1
Наверх