invalid outside procedure - Мир MS Excel

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

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

invalid outside procedure (Формулы/Formulas)

invalid outside procedure

Blin

Дата: Понедельник, 04.05.2015, 04:32 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2013

Хай.
Есть ексель книга, в ней 3 листа. пишу в ней vba скрипт

[vba]

Код

dim foo
dim bar
dim foo1
set foo = worksheets("Лист1")
dim ...
dim ...
sub cool_sub()
используем ранее объявленные переменные foo И bar
end sub
sub second_cool_sub()
используем ранее объявленные переменные foo И bar
end sub

[/vba]
смысл в том, что я хочу вначале один раз объявить некие переменные с именем листов, диапазонов. а далее во всех субах на них ссылаться.
При выполнении какой либо субы вылетает ошибка. Так нельзя?

Ответить

Pelena

Дата: Понедельник, 04.05.2015, 09:19 | Сообщение № 2

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

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

Сообщений: 19402

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

Замечаний: ±

Excel 365 & Mac Excel

Blin, есть такая примета: если автор вопроса не отписывается в своих темах, подошло решение или нет, то у отвечающих пропадает желание помогать такому автору, потому что нет смысла отвечать в пустоту

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

Ответить

AndreTM

Дата: Понедельник, 04.05.2015, 10:02 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1762

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

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

2003 & 2010

Присвоение начальных значений переменным выполняется внутри процедур, вне процедуры вы можете только определять константы.
Естественно, вы можете организовать одну процедуру "инициализации" и вызывать её один раз в нужный момент, до исполнения всего основного кода.

Определение переменной через Dim вне кода процедуры даст вам переменную с областью видимости в пределах данного модуля. Если вам нужны "глобальные" переменные, которые будут иметь областью видимости всю книгу - используйте определение через Public, а не через Dim. Определять такие переменные надо только в общих модулях книги.

Для примера:
[vba]

Код

' поместите код в любой общий модуль
Public goFoo As Worksheet
Public gcName As String
Dim lcName As String

Sub initVars()
     gcName = "TEST"
     lcName = "test"
     Set goFoo = ThisWorkbook.Worksheets("Лист1")
End Sub

' процедуру можно поместить в несколько разных модулей, и проверять, запуская её два раза подряд
Sub test()
     If goFoo Is Nothing Then
         MsgBox "0. 'Foo' is nothing"
         initVars
     Else
         MsgBox "1. 'Foo' is '" & goFoo.name & "'" & vbCrLf & _
             "'NAME' is '" & gcName & "'" & vbCrLf & _
             "'name' is '" & lcName & "'"
         Set goFoo = Nothing
     End If
End Sub

[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Понедельник, 04.05.2015, 10:37

Ответить

СообщениеПрисвоение начальных значений переменным выполняется внутри процедур, вне процедуры вы можете только определять константы.
Естественно, вы можете организовать одну процедуру "инициализации" и вызывать её один раз в нужный момент, до исполнения всего основного кода.

Определение переменной через Dim вне кода процедуры даст вам переменную с областью видимости в пределах данного модуля. Если вам нужны "глобальные" переменные, которые будут иметь областью видимости всю книгу - используйте определение через Public, а не через Dim. Определять такие переменные надо только в общих модулях книги.

Для примера:
[vba]

Код

[/vba]

Автор - AndreTM
Дата добавления - 04.05.2015 в 10:02

Blin

Дата: Понедельник, 04.05.2015, 17:17 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2013

Цитата AndreTM, 04.05.2015 в 10:02, в сообщении № 3

' процедуру можно поместить в несколько разных модулей, и проверять, запуская её два раза подряд

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

Ответить

AndreTM

Дата: Понедельник, 04.05.2015, 20:04 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 1762

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

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

2003 & 2010

Цитата Blin, 04.05.2015 в 17:17, в сообщении № 4

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

Это ПРИМЕР

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

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Blin

Дата: Вторник, 05.05.2015, 17:57 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2013

дада, понял
[vba]

Код

Public goFoo As Worksheet

Public gcName As String

Dim lcName As String

Sub initVars()

gcName = "TEST"

lcName = "test"

Set goFoo = ThisWorkbook.Worksheets("Лист1")

End Sub

Sub test()

initVars

do some things...

End Sub

[/vba]

Сообщение отредактировал Blin - Вторник, 05.05.2015, 17:59

Ответить

invalid outside procedure (Формулы/Formulas)

Страница 1 из 1
1