06-29-2012, 05:35 AM
|
|
Junior Contributor
|
|
Join Date: Jan 2004
Posts: 249
|
|
VBA Passing Multipe Arguements in Function
|
Hi All,
I am using a 3rd Party function called RunRCall (which is part of the R statconn package) this requires two arguements (RProc As String, ParamArray args() As Variant) to be passed to it.
When I pass the arguements like this:
Code:
RunRCall(strQuery, CVar(Range("Example!$A$9:$A$18")), CVar(Range("Example!$B$9:$B$18")) ', CVar(Range("Example!$C$9:$C$18"))
It works perfectly!
What I want to do is replace this bit:
Code:
CVar(Range("Example!$A$9:$A$18")), CVar(Range("Example!$B$9:$B$18")) ', CVar(Range("Example!$C$9:$C$18")
With dynamically created code so that if I wanted to pass it 3, 5, 7 Ranges it would work.
However I do not know how to do this apart from writing 100's of lines of codes like this:
Code:
If 3 columns selected then(
RunRCall(strQuery, CVar(Range("Example!$A$9:$A$18")), CVar(Range("Example!$B$9:$B$18")) ', CVar(Range("Example!$C$9:$C$18"))
)
else if 4 columns selected then (
RunRCall(strQuery, CVar(Range("Example!$A$9:$A$18")), CVar(Range("Example!$B$9:$B$18")) ', CVar(Range("Example!$C$9:$C$18"), CVar(Range("Example!$D$9:$D$18"))
)
else if 5 columns selected then (
RunRCall(strQuery, CVar(Range("Example!$A$9:$A$18")), CVar(Range("Example!$B$9:$B$18")) ', CVar(Range("Example!$C$9:$C$18"), CVar(Range("Example!$D$9:$D$18")"), CVar(Range("Example!$E$9:$E$18"))
)
... and so on to 100
Does anyone else know a better way? |
__________________
There are 10 sort of people that exist in this world, The ones who understand binary and the rest
Last edited by DaveyB; 06-29-2012 at 05:44 AM.
|
Linear Mode
