Почему я получаю ошибку компилятора при передаче аргумента в функцию? - PullRequest
0 голосов
/ 17 октября 2018

У меня есть следующий код в моей книге 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?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...