Jak wymusić argument w programie Excel UDF

Question

Stworzyłem excel UDF, który akceptuje wejście tablicy. Chcę, aby zezwalała tylko na parzystą liczbę elementów w tablicy. Oto kod: (to tylko krótkie, więc będę to wszystko i w ten sposób można mieć pewien kontekst post)

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 

Obecnie powrotu okno komunikatu, który wygląda jak własny jednego programu Excel, który pojawia się, kiedy wchodzi SUBSTITUTE() z brak trzeciego argumentu. Jednak gdy zrobisz to za pomocą SUBSTITUTE() lub dowolnej podobnej funkcji, program Excel uniemożliwi Ci wprowadzenie formuły, zamiast tego kliknie z powrotem do niej, aby naprawić wadliwą funkcję. Chciałbym to, ponieważ w przeciwnym razie moja funkcja może być wklejona w stanie złamania (nieparzysta liczba argumentów) do kilku komórek, co oznacza, że ​​pole komunikatu pojawia się kilka razy podczas przeliczania!

Jak mogę naprawić kod, aby po wykryciu niepoprawnych argumentów (nieparzystej liczby elementów w tablicy) użytkownik automatycznie powrócił do etapu formuły edycji?

Answer 1

To nie jest szczególnie dobre rozwiązanie. Generalnie stosowanie SendKeys jest zniechęcony i to rozwiązanie działa tylko wtedy, gdy wyłączona aĹ MoveAfterReturn (tj zaznaczone na zdjęciu poniżej)

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

posiada funkcji zwróci błąd, gdy nieprawidłowy numer argumenty są wprowadzane.

Powrót musi być wariantem, a nie łańcuchem.

Zamień swój msgbox na SUBSTITUTEMULTI=CVErr(xlErrValue).

listę błędów:

• xlErrDiv0 dla #DIV/0 błędu
• xlErrNA dla #N/A błędu
• xlErrName dla #NAME? błędu
• xlErrNull dla #NULL błędu
• xlErrNum dotyczący #NUM błąd
• xlErrRef dla #REF błędu
• xlErrValue dla #VALUE błędu

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