Как занести в переменную CodeName листа. (программное имя)

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

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

Как занести в переменную CodeName листа. (программное имя) (Макросы/Sub)

lopuxi

Дата: Вторник, 17.11.2020, 16:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

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

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

Excel 2007, 2013

Добрый вечер всем гуру VBA и Excel.

Я тут бьюсь надо таким вопросом.
Допустим у меня в книги есть 4 листа, с заданными в VBA именами - Client_Card, List_OOH, List_Radio и List_TV и все эти листы в книге полностью скрыты (xlSheetVeryHidden)

Как мне загнать в переменную не название листа, которое может быть каким угодно, в том числе его может изменить и сам пользователь, а именное кодовое название листа.
Получив в переменной кодовое название листа, мне надо его использовать.

Таким образом я получаю имя листа...
Client_Card.Name
List_OOH.Name
List_Radio.Name
List_TV.Name

А такой вариант List_TV.CodeName не дает мне List_TV и я как бы не знаю как достать именно List_TV, что бы поместить его в переменную, допустим Sheets_Open и потом сделать так:

[vba]

Код

Dim WBSheets As Object
Dim Sheets_Open As String

Private Sub CommandButton1_Click()

Sheets_Open = "List_TV" ' тут вот допустим присваиваем CodeName листа, не то, что отображается в таблице Excel для пользователя

' Здесь начинаем искать лист, не по названию, а по CodeName
For Each WBSheets In ActiveWorkbook.Sheets
If WBSheets.CodeName = Client_Card.CodeName Then WBSheets.Visible = xlSheetVisible '
Next WBSheets

End Sub

[/vba]
p.s. код не рабочий... это так мой набросок, моих мыслей...

К сообщению приложен файл: 4486931.xlsm (20.6 Kb)

О_о ...и так можно было?

Сообщение отредактировал lopuxi - Вторник, 17.11.2020, 16:47

Ответить

Pelena

Дата: Вторник, 17.11.2020, 17:15 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Так?
[vba]

Код

If WBSheets.CodeName = "List_TV" Then

[/vba]или
[vba]

Код

If WBSheets.CodeName = Sheets_Open Then

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Hugo

Дата: Вторник, 17.11.2020, 17:48 | Сообщение № 3

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

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

Сообщений: 3690

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

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

365

Загоняйте в переменную не имя, а сам лист. Ну если нужно его позже использовать.
Да и нормально работает
[vba]

Код

MsgBox List_TV.CodeName

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Вторник, 17.11.2020, 17:51

Ответить

lopuxi

Дата: Вторник, 17.11.2020, 17:48 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

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

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

Excel 2007, 2013

так оно получается так работает?
[vba]

Код

If WBSheets.CodeName = "List_TV" Then WBSheets.Visible = xlSheetVisible '

[/vba]

Цитата Pelena, 17.11.2020 в 17:15, в сообщении № 2 ()

If WBSheets.CodeName = "List_TV" Then

Я получается притупил, потому как пытался проверить и увидеть кодовые имена листов в Msgbox. Но он всегда выдавал ошибку.

For Each WBSheets In ActiveWorkbook.Sheets
MsgBox WBSheets.CodeName
Next WBSheets

То есть я фактически стоял у финиша, да смотрел не в ту сторону

.

И условие не выдает ошибку и делает видимым тот лист который мне нужно.
[vba]

Код

Sheets_Open = "List_TV"

For Each WBSheets In ActiveWorkbook.Sheets
If WBSheets.CodeName = "List_TV" Then WBSheets.Visible = xlSheetVisible '
Next WBSheets

[/vba]