Hello, I am writing some code to test whether an array is undefined (See
code below). I am passing an array of integers to the function right now,
and I am wondering if i can extend this so that it can be apply to array of
any type (even user defined type). Something like a function template.




Public Function isUndefArray(ByRef a() As integer) As Boolean
Dim l As Long
On Error Resume Next
l = UBound(a)
If Err.Number = 9 Then
Debug.Print Err.Description

isUndefArray = True
Exit Function
End If
isUndefArray = False
End Function

I think this will work for any type of array:

''Returns True is the passed array has been dimensioned else False
Function ArrayDimmed(vntArray As Variant) As Boolean
On Error Resume Next
ArrayDimmed = IsNumeric(UBound(vntArray))
End Function


--
Jim Rech
Excel MVP
"Steven Deng" wrote in message
news:99cid.107442$%k.6341@pd7tw2no...
| Hello, I am writing some code to test whether an array is undefined (See
| code below). I am passing an array of integers to the function right now,
| and I am wondering if i can extend this so that it can be apply to array
of
| any type (even user defined type). Something like a function template.
|
|
|
|
| Public Function isUndefArray(ByRef a() As integer) As Boolean
| Dim l As Long
| On Error Resume Next
| l = UBound(a)
| If Err.Number = 9 Then
| Debug.Print Err.Description
|
| isUndefArray = True
| Exit Function
| End If
| isUndefArray = False
| End Function
|
|

Thanks Jim. i tried but it is not working with user defined types

Sincerely,
Steven Deng


"Jim Rech" дÈëÏûÏ¢ÐÂÎÅ
...
I think this will work for any type of array:

''Returns True is the passed array has been dimensioned else False
Function ArrayDimmed(vntArray As Variant) As Boolean
On Error Resume Next
ArrayDimmed = IsNumeric(UBound(vntArray))
End Function


--
Jim Rech
Excel MVP
"Steven Deng" wrote in message
news:99cid.107442$%k.6341@pd7tw2no...
| Hello, I am writing some code to test whether an array is undefined
(See
| code below). I am passing an array of integers to the function right
now,
| and I am wondering if i can extend this so that it can be apply to
array
of
| any type (even user defined type). Something like a function template.
|
|
|
|
| Public Function isUndefArray(ByRef a() As integer) As Boolean
| Dim l As Long
| On Error Resume Next
| l = UBound(a)
| If Err.Number = 9 Then
| Debug.Print Err.Description
|
| isUndefArray = True
| Exit Function
| End If
| isUndefArray = False
| End Function
|
|