Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Validation.Add записывается макроредактором, но не работает
 
#1
14.11.2011 17:25:13
И снова добрый вечер, товарищи бойцы.  
И снова бесова машина не находит со мной общего языка.  
В общем и целом задача у меня следующая: заполнить некий диапазон листа выпадающими списками. Можно их копировать уже готовые, но мне кажется правильнее создать их через for each.  
Собственно проблема: Записываю я макросом свои действия по созданию ячейки с выпадающим списком и ячейка сама работает, а вот макрос, получившийся при записи - нет. Ни отредактированный, ни в исходной форме.  
Важное добавление: Список значений у меня динамически изменяется.  
Ругается макрос на эту строчку:  
...  
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _  
       xlBetween, Formula1:="=ñìåù(Êîíòðàãåíòû!$A$1;1;0;ñ÷¸òç(Êîíòðàãåíòû!A:A))"  
...  
Собственно вопрос: Что тут не так?  
Заранее благодарю
 
 
 
#2
14.11.2011 17:26:58
Извините, вот так оно было  
...  
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _  
       xlBetween, Formula1:="=СМЕЩ(Контрагенты!$A$1;1;0;счётз(Контрагенты!A:A))"  
...
 
 
 
#3
14.11.2011 17:32:16
Формулу пишите в английском варианте, или может быть сработает  
FormulaLocal1:="=СМЕЩ(Контрагенты!$A$1;1;0;счётз(Контрагенты!A:A))"  
Но не уверен.
 
 
 
#4
14.11.2011 17:34:58
Попробуйте вместо формулы указать именованный диапазон
 
 
 
#5
14.11.2011 17:41:19
Если Excel до 2010, то в формуле нельзя указывать название листа, даже если это этот лист. И, конечно, формулу надо перевести на родной язык. В 2007 так работает:  
 
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _  
       xlBetween, Formula1:="=OFFSET($A$1,1,0,COUNTA(A:A))"
 
 
 
#6
14.11.2011 17:51:18
Ещё: есть ли перед строкой .Add Type строка .Delete?
 
 
 
#7
14.11.2011 18:01:59
Добрый вечер и спасибо за оперативность.  
2 Казанский. Excel 2010, так что должно, вроде. Если сам записывает значит сам и должен разобрать, что написал.  
2 Юрий М. Пробую теперь победить именованный диапазон. Да, Delete есть.  
2 Hugo. Спасибо, перевёл на язык Вильяма нашего Шекспира, обозвал это именованным диапазоном, а он мне "N/A", хулиган.
 
 
 
#8
14.11.2011 18:10:22
Что-то мне кажется, что тут с "машу каслом не испортишь" перебор :)  
Т.е. в имени формулу на английском писать не нужно.
 
 
 
#9
14.11.2011 18:10:56
У меня вот так работает:  
.Delete  
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Engine"  
где Engine - именованный диапазон.
 
 
 
#10
14.11.2011 18:32:23
Видимо отпуск сказывается - ничего не сообрежаю.  
С вашего позволения отложу решение до завтра.  
Спасибо всем огромное за участие.  
 
P.S. Перевёл формулу в именованном диапазоне на иностранный - дебагер её пропускает, но спотыкается на Validation.Add, в то время как на русском он говорит, что в формуле - ошибка, Хотя эту же самую формулу я вставляю вручную в проверку данных - всё работает.  
Наверное, это просто день такой и завтра всё будет хорошо.
 
 
 
#11
14.11.2011 18:56:22
да-с... без файла тяжело идёт
 
 
 
#12
15.11.2011 13:10:26
Господа, спасибо вам всем за участие.  
Одолел этого негодяя через, действительно, именованный диапазон, которому скормил не формулу, как пытался, а range с начальной ячейки до .End(xlDown).  
Так как список контрагентов обновляется при перезапуске файла - никаких проблем пока не возникает.  
И всё равно странно мне, что VB записывает макрос сам, а потом сам же не может прочитать свои каракули. Прям как я в школе. :-)  
Ещё раз спасибо всем.
 
 
 
Страницы: 1
Читают тему
Наверх