Выполнение инпутбокса вне макросов

[tibhar940]

Подскажите пожалуйста. Нужно значение введённое в инпутбокс использовать для нескольких макросов. Выношу инпутбокс за макросы, но компилятор ругается :"Invalid outside procedure".

Dim a As Variant
Dim b As Variant
a = inputbox("", "", "")
b = inputbox("", "", "")
sub ssub()
Range("a1") = a
Range("b1") = b
end sub

sub ssub2()
Range("a2") = a
end sub

[doober]

можно как во вложении,через Property

[tibhar940]

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

можно как во вложении,через Property

Спасибо, но я не совсем понял принцип действия:

Private A_ As Variant
Private B_ As Variant
Public Property Get a() As Variant
a = A_
End Property
Public Property Let a(ByVal vNewValue As Variant)
 A_ = vNewValue
End Property
Public Property Get b() As Variant
b = B_
End Property
Public Property Let b(ByVal vNewValue As Variant)
 B_ = vNewValue
End Property

[EducatedFool]

doober, похоже, ты чего-то перемудрил.
Я 3 минуты втыкал в код, и понять не мог, что к чему, зачем всё это, и как всё это работает )


Так же ведь намного проще:

Sub ssub1()
    Range("a1") = a
    Range("b1") = b
End Sub

Sub ssub2()
    Range("a2") = a
End Sub


Function a()
    a = InputBox("", "", "")
End Function

Function b()
    b = InputBox("", "", "")
End Function

[tibhar940]

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

doober, похоже, ты чего-то перемудрил.
Я 3 минуты втыкал в код, и понять не мог, что к чему, зачем всё это, и как всё это работает )


Так же ведь намного проще:

Sub ssub1()
    Range("a1") = a
    Range("b1") = b
End Sub

Sub ssub2()
    Range("a2") = a
End Sub


Function a()
    a = InputBox("", "", "")
End Function

Function b()
    b = InputBox("", "", "")
End Function

Спасибо. А теперь еще один вопрос, который возник после того как я прикрутил это к другому макросу))

Function a()
a = InputBox("", "", "")
End Function
Function b()
b = InputBox("", "", "")
End Function

Sub Format()
'On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
Set folder = Fso.GetFolder("C:\test")
For Each File In folder.Files
With Workbooks.Open(File.Path).Worksheets(1)
If a <> "" Then
.Range("A1").Replace "1", a, xlPart
End If
If b <> "" Then
.Range("b1").Replace "2", b, xlPart
End If
.Parent.Close -1
End With
Next
End Sub

Как сделать так, чтобы Значение в инпутбокс я записывал только один раз? А то здесь он почему-то выводит инпутбокс 8 раз)) ЧЯДНТ?

[EducatedFool]

ЧЯДНТ?

вы выполняете запрос внутри цикла.
сколько файлов - столько и запросов

вынесите запрос за пределы цикла:

Sub Format()
'On Error Resume Next

replace1 = a
replace2 = b
Set Fso = CreateObject("Scripting.FileSystemObject")
Set folder = Fso.GetFolder("C:\test")
For Each File In folder.Files
With Workbooks.Open(File.Path).Worksheets(1)
If a <> "" Then
.Range("A1").Replace "1", replace1, xlPart
End If
If b <> "" Then
.Range("b1").Replace "2", replace2, xlPart
End If
.Parent.Close -1
End With
Next
End Sub

Только тогда какой смысл выносить инпутбоксы из кода???

[tibhar940]

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

вы выполняете запрос внутри цикла.
сколько файлов - столько и запросов

вынесите запрос за пределы цикла:

Sub Format()
'On Error Resume Next

replace1 = a
replace2 = b
Set Fso = CreateObject("Scripting.FileSystemObject")
Set folder = Fso.GetFolder("C:\test")
For Each File In folder.Files
With Workbooks.Open(File.Path).Worksheets(1)
If a <> "" Then
.Range("A1").Replace "1", replace1, xlPart
End If
If b <> "" Then
.Range("b1").Replace "2", replace2, xlPart
End If
.Parent.Close -1
End With
Next
End Sub

Только тогда какой смысл выносить инпутбоксы из кода???

Потому что есть еще десяток макросов, где необходимо применить выбранное в инпутбоксе.... (Извиняюсь, что не уточнил этого.) - должно быть так, ввожу в инпутбокс, запускается несколько макросов (format1,2 и т.д.) и подцепляет данные из инпутбокса.

[doober]

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

doober, похоже, ты чего-то перемудрил.
Я 3 минуты втыкал в код, и понять не мог, что к чему, зачем всё это, и как всё это работает )
[/CODE]

Я сам не понял,но ведь работает.

[Hugo121]

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

[tibhar940]

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

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

Спасибо! всё работает отлично. Хоть и без примера кода, но я сразу всё понял и сделал. Вы меня в очередной раз направляете в нужное русло.