Как задать имя выделеному диапазону в VBA

Пользователь

Сообщений: 112 Регистрация: 01.01.1970

14.01.2009 12:14:09

Появилась необходимость задать имя выделеному диапазону с помощью VBA. решил воспользоваться макрорекодером и получил следующее:

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

ActiveWorkbook.Names("кодирование").Delete
ActiveWorkbook.Names.Add Name:="кодирование", RefersToR1C1:= _
"=Заготовительный!R1C1:R3C3"

Первый блок кода выделяет диапазон, а второй должен удалять имя "кодирование", если таковое имеется и присвоить это имя выделенному диапазону. Но как видете макрорекодер дает абсолютную ссылку на диапазон "=Заготовительный!R1C1:R3C3" и в случае если будет добавлена строка или столбец имя будет присваиваться не всему выделеному диапазону а только для "=Заготовительный!R1C1:R3C3"
знатоки VBA помощи в решении.

ytk5kyky

Пользователь

Сообщений: 2410 Регистрация: 01.01.1970

14.01.2009 13:57:37

хотя, конечно, непонятна фраза:
>дает абсолютную ссылку на диапазон "=Заготовительный!R1C1:R3C3" и в случае если будет добавлена строка или столбец имя будет присваиваться не всему выделеному диапазону а только для "=Заготовительный!R1C1:R3C3"
Но если естьжелание присвоить имя выделению, то так:
ActiveWorkbook.Names.Add Name:="кодирование", RefersToR1C1:="=" & Selection.Parent.Name & "!" & Selection.Address(ReferenceStyle:=xlR1C1)

Bite my shiny metal ass!

Libera

Пользователь

Сообщений: 112 Регистрация: 01.01.1970

14.01.2009 14:20:32

Огромное спасибо за проявленые телепатические способности))
Это именно то что нужно. На счет непонятно заданого вопроса, сказываеться мой малый опыт общения с VBA. Впредь постараюсь излагать свои мысли правильно.

dimoor Пользователь Сообщений: 29 Регистрация: 01.01.1970	#4 31.01.2009 17:59:10 У меня тоже возникла такая же проблема, но поковырялся в своих старых макросах :) и нашел такой вариант Selection.Name = "кодирование" Так попроще будет.

Читают тему