Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное изменение имени группы ячеек / 7 сообщений из 7, страница 1 из 1
10.08.2005, 13:33:23
    #33208182
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное изменение имени группы ячеек
Группа ячеек на листе имеет одно ИМЯ например фамилии. И это имя используется как СПИСОК для выпадающего меню выбора. Можно ли в коде (программно)изменять группы ячеек на которые указывает это ИМЯ ? (т.е. другой список фамилий)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 14:15:36
    #33208308
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное изменение имени группы ячеек
Код: plaintext
1.
2.
ActiveWorkbook.Names.Add Name:="фамилии", RefersTo:="=Лист1!$A$1:$C$4"

Names("фамилии").RefersTo = "=Лист1!$A$10:$C$40"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 16:22:30
    #33208592
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное изменение имени группы ячеек
Пользователь2
Код: plaintext
1.
2.
ActiveWorkbook.Names.Add Name:="фамилии", RefersTo:="=Лист1!$A$1:$C$4"

Names("фамилии").RefersTo = "=Лист1!$A$10:$C$40"


Ща попробуем !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 16:39:54
    #33208655
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное изменение имени группы ячеек
Пользователь2
Код: plaintext
1.
2.
ActiveWorkbook.Names.Add Name:="фамилии", RefersTo:="=Лист1!$A$1:$C$4"

Names("фамилии").RefersTo = "=Лист1!$A$10:$C$40"


НЕТ не срабатывает Остается старый диапазон. Выбираешь имя фамилии и выделяется А1:С4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 16:44:51
    #33208678
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное изменение имени группы ячеек
Private Sub Worksheet_Calculate()
ActiveWorkbook.Names.Add Name:="проб", RefersTo:="=Лист1!$F$1:$F$10"
MsgBox "Меняем"
Names("проб").RefersTo = "=Лист1!$F$16:$F$19"
End Sub

В красной строке дает ошибку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 16:53:11
    #33208710
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное изменение имени группы ячеек
Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_Calculate()
    ActiveWorkbook.Names.Add Name:="проб", RefersTo:="=Лист1!$F$1:$F$10"
    MsgBox "Меняем"
    ActiveWorkbook.Names("проб").RefersTo = "=Лист1!$F$16:$F$19"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 17:29:31
    #33208859
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное изменение имени группы ячеек
Пользователь2
Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_Calculate()
    ActiveWorkbook.Names.Add Name:="проб", RefersTo:="=Лист1!$F$1:$F$10"
    MsgBox "Меняем"
    ActiveWorkbook.Names("проб").RefersTo = "=Лист1!$F$16:$F$19"
End Sub


Все заработало. Спасибо !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное изменение имени группы ячеек / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 499ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185855]:
 0ms
get settings:
 12ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 146ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 3ms
others: 263ms
total:  499ms
x
x
Закрыть


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