Excel VBA: Forward ParamArray

Question

Application.Run Wenn in Excel-VBA-Programmierung, schalte ich oft aus Berechnung und ScreenUpdating (manchmal auch Displayalerts, etc.), einige langwierige Berechnungen, und schalten Sie sie zurück zu ihren vorherigen Zuständen (nicht notwendigerweise weil diese Funktionen sich gegenseitig aufrufen können). Deshalb hätte ich gerne einen Standardweg dafür.

Es gibt keine Lambda-Funktionen in VBA aber Application.Run kann eine akzeptable Lösung sein, so kam ich zu diesem Code:

Public Function FastRun(strMacroQuoted As String, ParamArray varArgs() As Variant) As Variant 
    Dim blnOldScreenUpdating As Boolean: blnOldScreenUpdating = Application.ScreenUpdating 
    Application.ScreenUpdating = False 
    Dim clcOldCalculation As XlCalculation: clcOldCalculation = Application.Calculation 
    Application.Calculation = xlCalculationManual 

    FastRun = Application.Run(strMacroQuoted, varArgs(0)) 

    Application.Calculation = clcOldCalculation 
    Application.ScreenUpdating = blnOldScreenUpdating 
End Function 

Ich konnte alle Parameter aus varargs geben einen nach dem anderen zu starten (von 0 zu 29), und so würde mein FastRun die Anzahl der Parameter über das Limit nicht beschränken, das von Run festgelegt wird.

Meine Frage ist: Gibt es eine bessere (sauberere) -Lösung als 30 Parameter hintereinander zu schreiben?

Answer 1

Es ist nicht klar, warum Sie Application.Run sind anrufen. Ich denke, es gibt zwei Möglichkeiten: 1. dass Sie eine Prozedur von einer anderen Arbeitsmappe oder einem Add-In aufrufen, oder 2. dass Sie aus irgendeinem Grund eine Prozedur in Ihrem aktuellen Projekt mit dem Namen aufrufen müssen, der als übergeben wurde ein Faden.

Vorausgesetzt, dass Sie mit der Struktur haften möchten alle Ihre Argumente über eine ParamArray in eine Routine vorbei, die dann Application.Run nennt, Ihre ‚run‘ Verfahren müsste ein Variant als Argument haben, statt einer ParamArray. Die ParamArray ist ein Array und die Variant würde als solche interpretiert, wenn sie bestanden wird. So würde der Code wie folgt aussehen:

Public Sub Main1() 
    CallingRoutine "MyRoutine", 1, 2, 3 
End Sub 

Public Sub CallingRoutine(routineName As String, ParamArray varArgs() As Variant) 
    Application.Run routineName, varArgs 
End Sub 

Public Sub MyRoutine(arr As Variant) 
     Debug.Print "Item 0 ="; arr(0) 
     Debug.Print "Item 1 ="; arr(1) 
     Debug.Print "Item 1 ="; arr(2) 
End Sub 

ich es vermuten Möglichkeiten besser sein könnte Ihre Aufgabe zu erreichen, und wenn Sie ein wenig mehr Details liefern konnte könnten wir in der Lage sein, Ihnen mehr zu helfen. Die wichtigsten Fragen wäre, warum brauchen Sie Ihre Routine von Application.Run zu nennen, wo der Code befindet und was sind die Variablen in Ihrem varArgs Array enthalten?

Answer 2

Geben von Parametern in einen Sub-Prozedur kann ByRef oder ByVal getan werden, aber vorbei Parameter (n) in eine Funktion ist immer ByVal. Es scheint, dass ByRef eine bessere Wahl wäre.

Option Explicit 

Sub main() 
    Dim a As Long, arr As Variant 
    ReDim arr(4) 

    For a = LBound(arr) To UBound(arr) 
     arr(a) = a 
    Next a 

    upByTen arr 

    For a = LBound(arr) To UBound(arr) 
     Debug.Print arr(a) 
    Next a 

End Sub 

Sub upByTen(ByRef myArr As Variant) 
    Dim i As Long 
    For i = LBound(myArr) To UBound(myArr) 
     myArr(i) = myArr(i) + 10 
    Next i 
End Sub 

'results from Immediate window 
10 
11 
12 
13 
14