Makro w Excel - przekazywanie danych

Oprogramowanie komputerowe Problemy z oprogramowaniem
#1

Czesc,

Mam taki problem, z ktorym nie moge sobie od dluzszego czas poradzic. Oto przyklad:

Sub Macro1()

wartrosc = InputBox(“Podaj wartosc”)

Call Macro2

End Sub

Sub Macro2()

MsgBox (wartosc)

End Sub

Chodzi o to, zeby wartosc zostala przeniesiona pomiedzy dwoma sub.

Dotad radzilem sobie przez zapisywanie wartosci w jakiejs komorce arkusza, a w kolejnym sub odczytywalem wartosc tej komorki. To jest jednak uciazliwa droga na okolo.

Dzieki z gory za pomoc.

#2

Poczytaj o zmiennych globalnych ;]

#3 
Sub Macro1()

Dim wartosc As String

wartosc = InputBox("Podaj wartosc")

Call Macro2(wartosc)

End Sub


Sub Macro2(ByVal wartosc As String) ' Mozesz uzyc ByRef 

MsgBox (wartosc)

End Sub
#4

O to mi wlasnie chodzilo! Wielkie dzieki :slight_smile:

#5

Nie ma za co.