Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sub parameter passing
Is this the proper way to pass a varible parameter to and back from
subroutines? My code seems a little sloppy, I would think that I'm missing some delclaration The subroutine "Orig_WS_name" is call with the following statement: Call Sub Orig_WS_name("orig_name") Private Sub Orig_WS_name(WSIn As String) 'WSIn has the value of "orig_name") prior to call Call Add_WSname_Chars(WSIn) 'WSIn has the value of "orig_name-textadded") after call End Sub Private Sub Add_WSname_Chars(WS_name As String) WS_name = WS_name & "-txt added" End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sub parameter passing
If you want to pass the changed value back up, declare the argument Byref
(the default). If youy want it passed back in its original state, declare it Byval. Call Orig_WS_name("orig_name") Private Sub Orig_WS_name(ByVal WSIn As String) MsgBox WSIn Call Add_WSname_Chars(WSIn) MsgBox WSIn End Sub Private Sub Add_WSname_Chars(ByRef WS_name As String) WS_name = WS_name & "-txt added" End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "miek" wrote in message ... Is this the proper way to pass a varible parameter to and back from subroutines? My code seems a little sloppy, I would think that I'm missing some delclaration The subroutine "Orig_WS_name" is call with the following statement: Call Sub Orig_WS_name("orig_name") Private Sub Orig_WS_name(WSIn As String) 'WSIn has the value of "orig_name") prior to call Call Add_WSname_Chars(WSIn) 'WSIn has the value of "orig_name-textadded") after call End Sub Private Sub Add_WSname_Chars(WS_name As String) WS_name = WS_name & "-txt added" End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sub parameter passing
Thanks for your help, it is much apprecated
"Bob Phillips" wrote: If you want to pass the changed value back up, declare the argument Byref (the default). If youy want it passed back in its original state, declare it Byval. Call Orig_WS_name("orig_name") Private Sub Orig_WS_name(ByVal WSIn As String) MsgBox WSIn Call Add_WSname_Chars(WSIn) MsgBox WSIn End Sub Private Sub Add_WSname_Chars(ByRef WS_name As String) WS_name = WS_name & "-txt added" End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "miek" wrote in message ... Is this the proper way to pass a varible parameter to and back from subroutines? My code seems a little sloppy, I would think that I'm missing some delclaration The subroutine "Orig_WS_name" is call with the following statement: Call Sub Orig_WS_name("orig_name") Private Sub Orig_WS_name(WSIn As String) 'WSIn has the value of "orig_name") prior to call Call Add_WSname_Chars(WSIn) 'WSIn has the value of "orig_name-textadded") after call End Sub Private Sub Add_WSname_Chars(WS_name As String) WS_name = WS_name & "-txt added" End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Passing a function as a parameter | Excel Programming | |||
Passing chartobject as a parameter to sub | Excel Programming | |||
?Passing argument/parameter | Excel Programming | |||
?Passing argument/parameter | Excel Programming | |||
Passing a parameter to Excel | Excel Programming |