@AndreA SN

есть большая книга (листов больше 1000)
Не ругайте - так удобнее мне для своих целей
Name листов меняются программно, а item - величина постоянная
Мне нужно оперировать доступом к конкретному листу по Item, для чего его сначала нужно узнать

что-то типа

но эта красота не работает

и правильно ли я дальше действую:

0

@Апострофф

Можно с Index`ом попробовать (если я задачу понял правильно)?

2

@ikki

у листа есть неизменяемое (read-only) свойство CodeName.
но обращаться к листу, зная его CodeName - довольно хлопотно.

1

@AndreA SN

а index не меняется, если лист относительно других листов поменяет свое положение?
у меня листы тасуются в ходе работы пользователем (мной, лентяем), как колода карт блин....

и чем CodeName отличатеся от Item?

вроде именно Item предназначен для таких целей... вот только криво как-то он реализован для листов... или я криво к нему обращаюсь...

0

@kuklp

Обращаться по item, index - самый ненадежный способ. Используйте свойства name, или как советовал Александр(ikki) - codename. А Ваш вариант как раз:
id_sheet = ActiveSheet.Index - индекс листов меняется из-за удаления-добавления-перемещения.

Саш, ток я не понял, почему хлопотно codename? Чаще даже удобней, чем name:-)

0

@ikki

а как?
(work)sheets() требуют либо номер, либо имя.
по CodeName - через цикл перебора листов (именно это я и называю "хлопотно").
конечно, можно использовать CodeName непосредственно в тексте макроса, но это если оно известно (лист существует) на этапе разработки.

Добавлено через 2 минуты
AndreA SN, у листа нет свойства Item.
это "умолчальное" свойство коллекции листов.
Sheets.Item("Лист1") и Sheets("Лист1") - одно и то же.

1

@kuklp

Сравни:
Set rng = Worksheets("Лист1").[a2:a20]
Set rng = Лист1.[a2:a20]
Или просто листов:
Set sh = Worksheets("Лист1")
Set sh = Лист1

0

@Апострофф

Точка лишняя
А чем классика не устраивает? Назначил переменныю и спи спокойно

1

@ikki

kuklp, ну я ж писал:
Добавлено через 1 минуту
где?
спасибо, успел поправить.

0

Dragokas

Просветите по поводу получения Codename листа и обращения к нему.

0

@skol13

Тоже интересно очень!

0

@ikki

попробую...

у листа рабочей книги (объекты worksheet, chart) есть свойства index, name, codename
index - текущий номер листа по порядку (включая скрытые), может меняться пользователем при изменении порядка и количества листов;
name - то, что отбражается на ярлычке, может меняться пользователем (конечно. если книга не защищена);
codename - "внутреннее" имя листа, "обычному" пользователю невидимое и недоступное, поэтому не может меняться пользователем.
кроме того, codename является свойством read-only и через VBA также не может быть изменено. *)
в VBE в окне проекта в списке объектов сначала указаны кодовые имена листов, а затем, в скобках, "обычные" имена.

"обычные" и "необычные" ("кодовые") имена могут совпадать, могут - нет.
но в пределах каждого из множеств имён имя должно быть уникальным (без учета регистра символов)

изменить codename можно через интерфейс VBE - ЛКМ по имени листа в списке объектов - F4 - свойство (Name) - именно которое со скобками.

доступ к отдельному листу возможен:
- по индексу
- по "обычному" имени
и для того, и для другого, используется свойство item коллекций sheets, worksheets, charts объекта workbook:
sheets.item(2)
charts.item("диаграмма 5")
и т.п.

т.к. свойство item является "умолчальным", то допустимы и конструкции
sheets(2)
charts("диаграмма 5")

прямого доступа по "кодовому" имени листа через коллекцию - нет.
но, зная codename листа на этапе разработки проекта (макроса). можно прямо это имя написать в качестве идентификатора листа:
лист1.[a1] - обращение к ячейке A1 листа с кодовым именем "лист1" ("Лист1" и т.п.)

если же нужно получить лист по кодовому имени, но на этапе разработки оно было неизвестно, то примерно так:

зачем оно всё надо - надеюсь, понятно?

_________________________
*) однако, может: Как узнать Item листа в книге Excel

8

Dragokas

Такое великолепное описание, почти мини-статья.
Даже сохраню ссылку для других, чтобы не объяснять.

P.S. всегда раньше считал, что лист1.[a1] обращается к обычному имени листа, а это не так.
А все потому, что по-умолчанию кодовое имя листа = обычному его имени.

0

@skol13

Всегда подозревал что здесь какая то собака зарыта...

0

@ikki

забыл написать: изменение CodeName в отличие от Name разрешается в пределах, обычных для идентификаторов VBA - оно должно начинаться с буквы, содержать буквы, цифры, знак подчеркивания, т.е. следующие имена для свойства CodeName недопустимы:
"123"
123
1лист
лист 1
лист.1
sheet%%

кроме того, оно не должно совпадать с ключевыми словами VBA - такими как for, to, sub

указать же любую из этих строк в качестве "обычного" имени листа (Name) вполне можно.
правда, там свои ограничения - например, обычному имени в русской локали нельзя задать "журнал", а свойству codename - можно.

2

@kuklp

Может, Саш. Создай новую книгу и выполни в ней:
В параметрах должна стоять галка "Доверять доступ к Visual Basic Projekt".

3

@ikki

спасибо за поправку.
хотя странно выглядит - sheets являются объектами книги, а их свойство codename меняется только через vbcomponents()...

а почему разрешено только так? не в курсе?

Добавлено через 11 минут
к своему стыду - не нашёл (2003).
а программно её можно снять/установить?

0

@kuklp

А какой бы смысл был в такой безопасности?

Миниатюры

 

1

@ikki

умгу...
я не там искал - в свойствах проекта... а надо было в параметрах книги.
спасибо.

никакого. но это ничего не доказывает
ээээ.... а вот как-нибудь... программно вызвать это диалоговое окошко и потом через SendKeys послать нужный набор Tab'ов и Enter'ов?.. нельзя?
(я вдруг обнаружил в себе желание стать хакером )

0

@kuklp

Дерзай, авось получится:-)

0