Доброго времени, уважаемые форумчане.
Прошу помощи, совета в проблеме.
Прошу помощи, совета в проблеме.
Код |
---|
...код... Dim currentTable As Range Set currentTable = Range(salesTable) (диапазон работает корректно, то подтверждается последующей корректной работой кода с currentTable) Dim isEmpty As Boolean isEmpty = isEmpty(currentTable) (Но на этапе выполнения функции ловлю ошибку компиляции "Expected Array") ...код... Private Function isEmpty(currentTable As Range) As Boolean If currentTable.Cells(1, 1) = "" Then isEmpty = True Else isEmpty = False End If End Function |
Подскажите пожалуйста, что ему нужно от меня, я в отчаянии(
Заранее большое спасибо!