Предопределение переменных или констант

[Stroy562]

Здравствуйте. Столкнулся с такой проблемой. В проекте очень часто используются ссылки одни и те же листы книги. Как упростить код что бы не обращаться постоянно к этим листам.
Пробовал создавать глобальные переменные
Перед первой процедурой первого модуля

Public blank
blank = Worksheets("Бланк")

Пробовал константы
Код в том же месте

Const blank = Worksheets("Бланк")

Заносил все это в процедуре static

Все не работает
Как быть?

[Hugo121]

Public blank As Worksheet

При открытии книги или при первом использовании

Set blank = Worksheets("Бланк")

Ну и кроме этого - у каждого листа есть кодовое имя - можно использовать его и не задавать переменную вообще.

MsgBox blank.Name
MsgBox Sheet2.Name

[Stroy562]

То же все

И в процедуре и снаружи

[Stroy562]

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

[CODE]

Ну и кроме этого - у каждого листа есть кодовое имя - можно использовать его и не задавать переменную вообще.

MsgBox blank.Name
MsgBox Sheet2.Name

Я думал использовать эту переменную так:

blank.Cells(1, 1)

Если в той же процедуре объявлять все супер

Set blank = Worksheets("Бланк")
blank.Cells(1, 1)


Но блин Такая куча кода получается пипец

[IgorGO]

И в процедуре и снаружи

так как считаете нужным, глобальная переменная в модуле, или локальная в каждой процедуре, как Вам удобнее.

[Hugo121]

Можно и так.
Сообразите пример и покажите (файл) - подправим.

[Stroy562]

Public Sub str()
Set blank = Worksheets("Бланк")
Set art = Worksheets("Документы")
Set kredit = Worksheets("Приходы")
Set debet = Worksheets("Расходы")
Set uzers = Worksheets("Контрагенты")
Set nomenklat = Worksheets("Справочник")

<---
Работа с объявленными ссылками
blank.Cells(1, 1)
--->
End Sub



Это не полный список листов с которыми приходится работать Что делать чтобы не ссылаться на них в каждой процедуре?

[Hugo121]

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

[Stroy562]

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

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

Public blank As Worksheet
Set blank = Worksheets("Бланк")


Я же писал НЕ работает Ошибка

[VictorM]

Не пойму, в чем у Вас проблема.
У меня в книге, в самом начале стандартного модуля написано

Public Const КнигаАрх = "АрхивБТ_v5.5.xls"
Public Const КнигаРев = "РевизияБТ_v5.5.xls"
Public Const КнигаПрод = "ПродажиБТ.xls"
Public Const КнигаДоговор = "АрхивДоговор.xls"
Public Const КнигаФО = "АрхивФинОтчетБТ.xls"

В дальнейшей работе обращаюсь к этим константам из любой процедуры.

Workbooks.Open filename:=ph & "\" & КнигаАрх

Все работает