Как средствами VBA расширить именованный диапазон.

vid Пользователь Сообщений: 2 Регистрация: 01.01.1970	#1 25.02.2009 09:52:10 Как средствами VBA расширить именованный диапазон. Нужно добавить ячейку. Использование динамического диапазона не желательно. Заранее спасибо.

Prog

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

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

25.02.2009 11:08:40

Возможно это лучше подойдет:

Dim a As Name
Set a = ThisWorkbook.Names("Benefits")
Set a.RefersToRange = a.RefersToRange.Resize(10,20)

Где a.RefersToRange - то куда ссылается имя до начала выполнения кода изменяется на новый диапазон на 10 рядов и 20 столбцов шире.

seergy

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

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

27.02.2009 09:35:38

{quote}{login=Prog}{date=25.02.2009 11:08}{thema=}{post}Возможно это лучше подойдет:

Dim a As Name
Set a = ThisWorkbook.Names("Benefits")
Set a.RefersToRange = a.RefersToRange.Resize(10,20)

Где a.RefersToRange - то куда ссылается имя до начала выполнения кода изменяется на новый диапазон на 10 рядов и 20 столбцов шире.{/post}{/quote}

А если имя задаётся так
Names.Add Name:="istochnik", RefersToR1C1:="=OFFSET(Коэфф!R2C9,0,0,COUNTA(Коэфф!C9)-1,1)"

vid Пользователь Сообщений: 2 Регистрация: 01.01.1970	#4 28.02.2009 16:32:00 в строке Set a.RefersToRange = a.RefersToRange.Resize(10, 20) Set a.RefersToRange вызывает ошибку, возможно из-за того, что RefersToRange только для чтения. А так идея красивая. В любом случае, ВСЕМ СПАСИБО!

Читают тему