Макрос "ListNames" - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос "ListNames" (Список всех имён диапазонов)

Макрос "ListNames"

Alex_ST

Дата: Понедельник, 30.08.2010, 13:30 | Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Макрос ListNames выводит в активную ячейку и ниже все имена диапазонов книги, а в ячейки столбца правее - их ссылки
[vba]

Код

Sub ListNames() ' вывод всех имен диапазонов в книге и их ссылок в активную ячейку и ниже
Selection.ListNames
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Alex_ST

Дата: Понедельник, 10.03.2014, 21:49 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Макрос ListNames выводит на лист только не скрытые имена, заданные в активном листе и в книге.
Его вполне заменяет нажатие F3->"Все имена"
Имена, область действия которых ограничена другими листами и невидимые имена, макрос не покажет.
Для того, чтобы вывести на лист полный список ВСЕХ имён книги, в том числе и скрытых, приходится применять более сложную процедуру типа:
[vba]

Код

Sub AllNamesList() ' вывод на лист всех имён книги, в т.ч. и скрытых
      Dim i%
      With Selection(1, 1)
          For i = 1 To Names.Count
              .Offset(i - 1) = Names(i).Name
              .Offset(i - 1, 1) = Names(i)
              .Offset(i - 1, 2) = IIf(Names(i).Visible, "Visible", "Hidden")
          Next i
      End With
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Понедельник, 10.03.2014, 21:55

Ответить

Макрос "ListNames" (Список всех имён диапазонов)

Страница 1 из 1
1