Я тут бьюсь надо таким вопросом. Допустим у меня в книги есть 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. код не рабочий... это так мой набросок, моих мыслей...
Добрый вечер всем гуру 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. код не рабочий... это так мой набросок, моих мыслей...lopuxi