Передача переменной из одной функции в другу - VBA

Формулировка задачи:

Всем доброго времени суток. В Excel'e есть 2 кнопки: 1-вызывает функцию test() 2-вызывает функцию transport() Как передать массив one() из функции test() в функцию transport(),чтобы с ней можно было взаимодействовать.
Option Explicit
 
Public Sub test()
Dim one(2) As Variant
 
     one(1) = InputBox("Введите название сорта")
     one(2) = InputBox("Введите цену за 1кг")
 
Cells(2, 1) = Trim(StrConv(one(1), vbProperCase))
Cells(2, 2) = one(2)
End Sub
 
Sub transport()
 
    Cells(6, 6) = one(1)
 
 
End Sub
Заранее благодарю за ответы

Код к задаче: «Передача переменной из одной функции в другу - VBA»

textual
Option Explicit
 
Dim one(2) As Variant
 
Public Sub test()
...

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ