Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как присвоить диапазону имя, использую переменную? / 4 сообщений из 4, страница 1 из 1
27.03.2005, 19:56:21
    #32982978
smiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как присвоить диапазону имя, использую переменную?
Как присвоить диапазону имя, использую переменную?

Когда диапазон выделен и не изменяется - все понятно:
ActiveWorkbook.Names.Add Name:="rName", RefersToR1C1:="=Лист1!R10C10:R20C20"

А как присвоить имя, используя переменную?
...
Рейтинг: 0 / 0
28.03.2005, 09:44:58
    #32983228
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как присвоить диапазону имя, использую переменную?
Код: plaintext
1.
2.
3.
4.
dim s1 as String
dim r1 as Range
s1 = "rName"
r1 = Range(Cells( 5 ,  3 ), Cells( 8 ,  9 ))
ActiveWorkbook.Names.Add Name:=s1, RefersToR1C1:=r1
так?
...
Рейтинг: 0 / 0
28.03.2005, 09:47:09
    #32983231
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как присвоить диапазону имя, использую переменную?
Код: plaintext
1.
2.
3.
4.
5.
6.
Public Sub SetName(ByVal p_Name As String)
    Selection.Name = Sufix(ActiveSheet.Name) & "!" & p_Name
End Sub
Public Function Sufix(pItem As String) As String
   Sufix = Chr( 39 ) & pItem & Chr( 39 )
End Function
...
Рейтинг: 0 / 0
28.03.2005, 10:50:44
    #32983352
smiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как присвоить диапазону имя, использую переменную?
dim s1 as String
dim r1 as Range
s1 = "rName"
Set r1 = Range(Cells(5, 3), Cells(8, 9))
ActiveWorkbook.Names.Add Name:=s1, RefersToR1C1:=r1

Работает!
Только добавил Set, а то ругалась :)
Большое спасибо :)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как присвоить диапазону имя, использую переменную? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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