Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Загрузить имена в диспетчер имен
 
Доброго времени суток, подскажите как можно загрузить имена в диспетчер имен??? т.к. список достаточно большой, поэтому вручную достаточно сложно!
 
Составляете таблице со списком имен и ссылок (незабываем о типе ссылок и именах листов), например:
Имя\Ссылка
Люди\'='Сотрудники отделов!'$A$1:$D$10

Далее ALT+F11, Insert\Module, открываем модуль, вставляем код:
Код
Sub NamesAdd()
    Dim i As String
    Dim Sh As Object
    
    Set Sh = ActiveSheet
    
    'Цикл обхода списка для создания имен. Начинает обходм со второй строки
    For i = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row
        'Имя берется из столбца "А", а ссылка из столбца "В"
        ThisWorkbook.Names.Add Sh.Cells(i, 1).Value, RefersTo:=Sh.Cells(i, 2).Value
    Next i
    
End Sub

Находясь на листе со списком имен нажимаем ALT+F8 и Выполнить
Изменено: DEAD MAN - 4 Июн 2013 16:27:53
Пользователи, как школьники, учиться хотят далеко не все, а отличниками становятся единицы.
Проблема - это ситуация, в решении которой человек не заинтересован.
 
Уважаемый  DEAD MAN, а можно для чайника на примере, как это выглядит в живом файле?
 
На работе заблокирована возможность выкладывать файлы, смогу выложить, когда буду дома.
Пользователи, как школьники, учиться хотят далеко не все, а отличниками становятся единицы.
Проблема - это ситуация, в решении которой человек не заинтересован.
 
Буду очень благодарен!!!
 
Цитата
DEAD MAN пишет:
(незабываем о типе ссылок и именах листов)
А что имеется ввиду?
У меня макрос выдает ошибку, и обозначает і
 
Да, там должно быть:
Код
Dim i as Long
Пользователи, как школьники, учиться хотят далеко не все, а отличниками становятся единицы.
Проблема - это ситуация, в решении которой человек не заинтересован.
 
выдаетошибку в этой строке
Код
ThisWorkbook.Names.Add Sh.Cells(i, 1).Value, RefersTo:=Sh.Cells(i, 2).Value
 
Посмотрите на стиль ссылок. Если столбцы буквами - то и диапазон для имени должен быть вида A1:B10. Если цифрами: R1C1:R10C2.
Имена не должны повторяться(хотя диапазоны для них вполне даже могут).
Ну и думаю не надо пояснять, что ссылки должны быть реальными(т.е. упоминаемые листы должны существовать). Для имен листов, содержащих пробелы, необходимы апострофы (1 сообщение от DEAD MAN:  'Сотрудники отделов!'$A$1:$D$10).
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Огромнейшее спасибо, все работает!!! :)
 
desmake, выложи что получилось, а то у меня никак не хочет.

Получилось! Нужно, что бы вторая ячейка не была пустой
Изменено: WhiteCanine - 5 Июн 2013 12:16:13
Страницы: 1
Читают тему (гостей: 1)
Наверх