Передача переменной из одной функции в другу - 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

Заранее благодарю за ответы

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

textual
                            Листинг программы 
                        
Option Explicit
 
Dim one(2) As Variant
 
Public Sub test()
...

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы