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

[DiemonStar]

P.S. Хотя у других вон работает)))

Не путайте

Public Переменная as Тип

и

Public Const Константа as Тип = Значение

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

Я это уже понял А как быть то?

Изменять логику работы программы так, чтобы не нужно было делать такие извращения.

[Hugo121]

Да, у меня работает. Когда нужно - обращаюсь к листу как писал выше в примере. И то, что это обращение не через константу - совершенно не важно для задачи.
Вам шашечки или ехать?

[Stroy562]

Да уж Если нужно кучу листов обрабатывать как не меняй логику все одно

[Hugo121]

Меня вообще-то не напрягает написать например так:

with sheets("primer")
.cells(1,1)=""
...
...
end with

И никто ведь не отменяет копипаст

[DiemonStar]

Public Набор
Private Sub Workbook_Open()
  Набор = Array("Лист1", "Лист2")
  For Each Элемент In Набор
    Sheets(Элемент).[A1] = 1
  Next
  Sheets(Набор(1)).[A2] = 2
End Sub

попробуйте так.

[Stroy562]

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

Да, у меня работает. Когда нужно - обращаюсь к листу как писал выше в примере. И то, что это обращение не через константу - совершенно не важно для задачи.
Вам шашечки или ехать?

В вашем случаи если в процедуре то выделяет слово Public и дает ошибку
Invalid attribute

Если в начале модуля выделяет слово Public и дает ошибку
Invalid ouside procedure

Ладно проехали

[Hugo121]

Option Explicit

Public blank As Worksheet


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

    MsgBox blank.Name
    MsgBox Sheet2.Name
End Sub

Sub tt2()
    MsgBox blank.Name
    MsgBox Sheet2.Name
End Sub

И никаких ошибок.
Файл не даю - очень секретный

[Stroy562]

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

Public Набор
Private Sub Workbook_Open()
  Набор = Array("Лист1", "Лист2")
  For Each Элемент In Набор
    Sheets(Элемент).[A1] = 1
  Next
  Sheets(Набор(1)).[A2] = 2
End Sub

попробуйте так.

Да я с таким же успехом буду объявлять переменные
Количество кода то не уменьшаетмя

[Stroy562]

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

Option Explicit

Public blank As Worksheet


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

    MsgBox blank.Name
    MsgBox Sheet2.Name
End Sub

Sub tt2()
    MsgBox blank.Name
    MsgBox Sheet2.Name
End Sub

И никаких ошибок.
Файл не даю - очень секретный

Да все супер
Про Option Explicit Не знал

Спасибо Тема закрыта

[Hugo121]

Option Explicit тут совершенно не при чём - просто он/она/оно у меня автоматом ставится