Как заставить аргумент в Excel UDF

Question

Я создал excel UDF, который принимает вход массива. Я хочу, чтобы он разрешал четное количество элементов в массиве. Вот код: (это только коротко, поэтому я выложу все это и таким образом вы можете иметь некоторый контекст)

Function SUBSTITUTEMULTI(inputString As String, ParamArray criteria() As Variant) as String 

Dim subWhat As String 
Dim forWhat As String 
Dim x As Single 


If UBound(criteria()) Mod 2 = 0 Then 
'check whether an even number of arguments is input 
MsgBox "You've entered too few arguments for this function", vbExclamation 

Else 
    x = 0 
    For Each element In criteria 
     If x = 0 Then 
      subWhat = element 
     Else 
      forWhat = element 
      inputString = WorksheetFunction.Substitute(inputString, subWhat, forWhat) 
     End If 
     x = 1 - x 
    Next element 
SUBSTITUTEMULTI = inputString 
End If 
End Function 

В настоящее время я возвращаю окно сообщения, которое выглядит как собственные один в Excel, которая появляется, когда вы вводите SUBSTITUTE() с третий аргумент отсутствует. Однако, когда вы делаете это с помощью SUBSTITUTE() или любой аналогичной функции, Excel запрещает вам вводить формулу, вместо этого она нажимает на нее, чтобы вы могли исправить неисправную функцию. Мне бы это понравилось, так как в противном случае моя функция может быть вставлена ​​в разбитое состояние (нечетное число аргументов) в несколько ячеек, что означает, что окно сообщения появляется несколько раз при пересчете!

Как я могу исправить код, чтобы, если обнаружены неправильные аргументы (нечетное количество элементов в массиве), пользователь автоматически возвращается на этап редактирования формы?

Answer 1

Это не очень хорошее решение. Как правило, использование SendKeys не рекомендуется, и это решение работает только если вы отключили свой MoveAfterReturn собственность (то есть бесконтрольно на изображении ниже)

Function test(rng As Range) 
    'check condition 
    If rng.Count <> 2 Then 
     MsgBox "Incorrect..." 
     SendKeys "{F2}", True 
     Exit Function 
    End If 

    'code here to be run if parameters are valid 
    test = "Success" 
End Function 

Answer 2

функцию, возвращающую ошибку, когда неправильное количество вводятся аргументы.

Возвращение должно быть вариантом, а не строкой.

Замените ваш msgbox на SUBSTITUTEMULTI=CVErr(xlErrValue).

Список ошибок:

• xlErrDiv0 для #DIV/0 ошибки
• xlErrNA для #N/A ошибки
• xlErrName для #NAME? ошибки
• xlErrNull для #NULL ошибки
• xlErrNum для #NUM ошибка
• xlErrRef для #REF ошибки
• xlErrValue для #VALUE ошибки

(http://www.cpearson.com/excel/writingfunctionsinvba.aspx)