User defined function with variable inputs? How do I do it

[johnryanday]

I want to build something like this....

function getdb(a,b,c,d,e,f........x)
getdb = a & "," & b & "," & c &....& x
end function

where x is the total number of variables.

So if in excel, I run getdb (a,b) that it will know that the funciton has only 2 variables but if i run getdb(a,b,c,d,e,f,g,h,i,j) that it knows.

I am trying to avoid getdb(a,b,,,,,,,,,,,,,,,,,,,) as I bet the user will not know how many ","s to use

any help would be appreciated

Ryan

 

[johnryanday]

Now that it has been a while, I want to build the function to have both individual and arrays. i.e. where in the past it was ......

getdb(A,B,C,D,E,F)

I want

getdb(A,B,C:F,G,H:M)

any thoughts on what changes I need to make to my previous code of...
************************************************
Function getdb(ParamArray myval() As Variant)

For i = LBound(myval) To UBound(myval)
x = x & myval(i) & ","
If i = UBound(myval) Then
x = Left(x, Len(x) - 1)
End If
Next i

getdb = Join(myval, ",")

End Function

 

[johnryanday]

Figured it out myself. For anyone who cares......

Function xgetdb(ParamArray myval() As Variant)

For i = LBound(myval) To UBound(myval)

tester = myval(i).Address
coloncount = Len(tester) - Len(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(tester, ":", ""), ":", ""))
If coloncount > 0 Then
myval(i) = myval(i).Address
Else
myval(i) = myval(i)
End If

coloncount = 0

Next i

xgetdb = Join(myval, ",")
End Function