powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное изменение имени группы ячеек
7 сообщений из 7, страница 1 из 1
Программное изменение имени группы ячеек
    #33208182
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Группа ячеек на листе имеет одно ИМЯ например фамилии. И это имя используется как СПИСОК для выпадающего меню выбора. Можно ли в коде (программно)изменять группы ячеек на которые указывает это ИМЯ ? (т.е. другой список фамилий)
...
Рейтинг: 0 / 0
Программное изменение имени группы ячеек
    #33208308
Код: plaintext
1.
2.
ActiveWorkbook.Names.Add Name:="фамилии", RefersTo:="=Лист1!$A$1:$C$4"

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

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


Ща попробуем !
...
Рейтинг: 0 / 0
Программное изменение имени группы ячеек
    #33208655
Фотография 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
Программное изменение имени группы ячеек
    #33208678
Фотография 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
Программное изменение имени группы ячеек
    #33208710
Код: 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
Программное изменение имени группы ячеек
    #33208859
Фотография 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
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное изменение имени группы ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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