salve
dim mioArray() ' matrice dinamica quidi VARIANT
dim secondoArray() as integer
come posso rendere + generica la funzione per il test dell'array
vorrei che funzionasse indipendentemente dal tipo che gli passo
function mioTest
call ArrayNoDimensioni(mioArray()) -ok-> mioArray variant --> ArrayNoDimensioni attende array variant
'ERRORE
call ArrayNoDimensioni(secondoArray()) -NO!!-> secondoArray integer --> ArrayNoDimensioni attende array variant quindi errore!!
end function
cosa devo cambiare per accettare qualsiasi tipo di array?
GRAZIE
Function ArrayNoDimensioni(mioArray() As Variant) As Boolean
On Error GoTo ArrayNoDimensioni_Error
Debug.Print UBound(mioArray)
ArrayNoDimensioni = False
On Error GoTo 0
Exit Function
ArrayNoDimensioni_Error:
ArrayNoDimensioni = True
End Function