sheets("Лист1")

[hata77]

Народ подскажите можно ли строку типа Sheets("Лист1")заменить одним словом

[tibhar940]

Сообщение от hata77

Народ подскажите можно ли строку типа Sheets("Лист1")заменить одним словом

Dim slovo As Variant
Set slovo = Sheets("Лист1")

[Serge 007]

Sub hata77()
Dim t
Set t = Sheets("Лист1")
    t.Select
End Sub

[Казанский]

Можно обращаться к листу прямо по CodeName - это название, которое идет первым в дереве проекта, например Лист1.Visible = xlSheetVisible
CodeName не меняется при переименовании листа, однако, известны случаи, когда при открывании файла на другом компьютере с другой локалью это имя менялось, например, на Sheet1 и код, ессно, не работал.

[kuklp]

Гы):

Public Sub www()
[Лист1].Select
End Sub

Или :

Public Sub www()
Лист1.Select
End Sub

[Hugo121]

Чтоб кодовое имя само не менялось на другой локали, достаточно его изменить до использования в коде.
Т.е. сперва меняем имя, потом пишем код, основываясь на новом имени.
Обсуждение:
http://www.planetaexcel.ru/forum.php...&page_forum=16
файл:
http://forum.ixbt.com/post.cgi?id=at...3:32362:1136:1