У меня есть следующий код в моей книге Excel vba:
Option Explicit
Option Base 1
Private Columns() As Column
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Not isInitialised(Columns())) Then
Call Setup
Debug.Print "Setup called"
End If
'...do the rest
End Sub
Function isInitialised(a() As Variant) As Boolean
isInitialised = False
On Error Resume Next
isInitialised = IsNumeric(UBound(a))
End Function
Когда триггер Sub Workbook_SheetChange вызывает, я получаю следующую ошибку:
Compile error:
Type mismatch: array or user-defined type expected
Как правильно передать массив Columns
в функцию isInitialised
?