ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос не подставляет ДВССЫЛ в Проверку данных
9 сообщений из 9, страница 1 из 1
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318121
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
Изменяю список в ячейке через проверку данных через ДВССЫЛ макросом.
Макрос отказывается работать:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween , Formula1:="=ДВССЫЛ($K$6)"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With


Записываю макрос, запускаю его же - ошибка 1004.
В чем может быть дело?
В ячейке $K$6 по некоторым условиям формируются различные имена диапазонов.
...
Рейтинг: 0 / 0
03.07.2013, 09:25
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318155
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Может, потому, что формулу на русском надо не в Formula, а в FormulaLocal пихать, а?
...
Рейтинг: 0 / 0
03.07.2013, 09:54
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318224
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
Akina,

А как эта формула выглядит на английском?
...
Рейтинг: 0 / 0
03.07.2013, 10:35
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318230
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
Akina,
FormulaLocal тоже не работает.
...
Рейтинг: 0 / 0
03.07.2013, 10:36
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318283
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
Formula1:="=INDIRECT($K$6)"
...
Рейтинг: 0 / 0
03.07.2013, 11:08
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318352
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
ZVI,
Спасибо, работает!

Тут я еще забыл до изменения защиту с листа снимать :)
...
Рейтинг: 0 / 0
03.07.2013, 11:36
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318433
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
w3dТут я еще забыл до изменения защиту с листа снимать :)
Бывает :)
Чтобы узнать, как формула выглядит по-английски, достаточно записать локализованную (русскую) формулу в ячейку, стать на неё (активировать), нажать Alt-F11, затем Ctrl-G, и в открывшемся окне Immediate записать:
?Activecell.Formula
и в любой позиции написанной строки нажать enter.
Ниже будет выведена требуемая формула, которую можно скопировать и вставить в VBA код
...
Рейтинг: 0 / 0
03.07.2013, 12:12
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38318636
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
w3dFormulaLocal тоже не работает.Виноват, был невнимателен. У тебя же объект Validation, а не Range, у него вообще FormulaLocal отсутствует, и формулы вводятся только на басурманском...

w3dА как эта формула выглядит на английском?
Найдите где-нить в папке типа X:\Program Files\Microsoft Office\OFFICE11\1049 файл по имени FUNCS.XLS и загляните в него...
Или просто попросите справку (локальную!!!) по функции - должна открыться VBA-справка, которая именно про басурманскую функцию.
...
Рейтинг: 0 / 0
03.07.2013, 13:39
| Ответить | Цитировать | Написать  
Макрос не подставляет ДВССЫЛ в Проверку данных
    #38319060
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
Или поставить надстройку TranslateIt

...
Рейтинг: 0 / 0
03.07.2013, 16:11
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос не подставляет ДВССЫЛ в Проверку данных
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38318636&tid=2174692]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 13ms
total:  118ms
созд. / загр.: 118ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]