Ejemplo: verificación de Excel vba para una matriz vacía o no inicializada
'In VBA an un-itialized dynamic array will raise a run-time error if
'code attempts to read from... or write to it.
'VBA function to test if an array is ready for access:
Function ArrayReady(a) As Boolean
On Error Resume Next
ArrayReady = Not LBound(a) > UBound(a)
End Function
'Another way is to use Not Not:
Function ArrayReady(a) As Boolean
ArrayReady = Not Not a
End Function
'--------------------------------------------------------------------
'Dynamic arrays can be created in many ways. More ways than this:
'Dim v: v = Array()
'Dim v: v = [A1:B10]
'Dim v: ReDim v(0 to 9)
'Dim v()
'ReDim v(1 To 5, 1 TO 2)
'Note that static arrays, as opposed to dynamic arrats, are always
'initialized.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)