передать константу массива Excel в функцию VBA

Question

У меня есть ячейка, значение которой является константой массива, например, ячейка A1 установлена ​​на ={1,2,3,4,5,6}

Затем я определил функцию в VBA:

Function MyFunc(Data)
MyFunc = Data.Rows.Count
End Function

Я хочу, чтобы функция возвращала длину массива (6), когда я могу =MyFunc(A1), но с помощью отладчика я обнаружил, что переменная «Данные», которую получает моя функция, содержит только первый элемент этого массива. Data.Rows.Count оценивается как 1, а TypeName(Data) оценивается как 'Range'

Answer 1

И еще один метод:

Function myFunc(Data)
    myFunc = UBound(Evaluate(Data.Formula))
End Function

Answer 2

Может быть

Function MyFunc(data As Range)
Dim x

x = Split(Mid(data.Formula, 3), ",")
MyFunc = UBound(x) + 1
End Function

Answer 3

Я не уверен, каков ваш вариант использования, но я думаю, что вы можете просто использовать Split здесь.

Function MyFunc(ByVal Data As Range) As Long
    Dim x
    x = Split(Data.Formula, ",")
    MyFunc = UBound(x) + 1
End Function

Очевидно, что это можно сделать более надежным (например, обрабатывать многоэлементный ввод), но я думаю, что это заставит вас двигаться в правильном направлении.