Prevent Neuberechnung von Funktionen beim Anwenden von Autofilter in Excel

Question

Ich benutze Excel 2013. Ich habe ein großes Blatt, die aus einer Liste von Kunden und deren Informationen bestehen. Wenn ich neue Kunden zu dieser Tabelle hinzufüge, füllt sie die meisten Informationen, indem sie die CustomerID an unseren Server sendet. Der Server gibt die Kundeninformationen in einer JSON-Zeichenfolge zurück, die dann analysiert wird. Eine bestimmte Funktion gibt die erforderlichen Informationen zurück, d. H. "= Json_get_email (Userid)" gibt die E-Mail-Adresse zurück. All dies funktioniert sehr gut und ist relativ benutzerfreundlich für die Mitarbeiter in meiner Firma zu verwenden.

Das Problem tritt auf, wenn ein Autofilter angewendet wird. Auch wenn keine Funktion flüchtig ist, führt die Anwendung eines Autofilters dazu, dass die Tabelle alle Funktionen neu berechnet und was für einen Kunden oder einige Kunden effizient und schnell war, verlangsamt jetzt die Tabellenkalkulation wie verrückt.

Ich wende mich an Sie, um zu wissen, ob es irgendeinen Weg gibt zu verhindern, dass meine Funktionen jedes Mal berechnet werden, wenn ein Filter angewendet wird.

mein Bestes,

Fabien

Answer 1

Hier ist die Lösung, die ich implementiert habe. Ich möchte es teilen, wie ich gesehen habe, dass viele Leute das gleiche Problem mit UDFs hatten.

Es ist nicht perfekt, aber es macht es viel schneller, da es die Verbindung zum Server vermeidet und die Zeichenfolge jedes Mal analysiert.

habe ich eine öffentliche Array von booleans von User_ID indiziert,

Public Names_in_List(100000000 To 104000000) As Boolean 

    Function JSon_CustomerName2(UserID As String) As String 
    If Names_in_List(UserID) = False Then 
     'The Function Has not yet been run for this ID 
     '... Do whatever 
     Names_in_List(UserID) = True 'Update the status 
    Else 
     JSon_CustomerName2 = Application.Caller.value 'Reuse the value that was in the cell. 
    End If 
    End Function 

Wie immer, ich Speicher für Geschwindigkeit handeln musste aber mit booleans sein nur einem Bit pro Benutzer.

Vielen Dank @Tim für Ihre hilfreiche Einsicht.

Answer 2

So etwas wird Ihr Blatt machen viel schneller:

Function Json_get_email(arg) 

    Static dict As Object '<< persists between calls 

    If dict is nothing then set dict = Createobject("scripting.dictionary") 

    If not dict.exists(arg) Then 
     'have not seen this value of arg before 
     '...get the return "email" value for 'arg' here 
     dict.add arg, email 
    End If 

    Json_get_email = dict(arg) 'return the cached value 

End Function 

sollte kein Problem sein Cachen der Rückkehr E-Mail-Werte zwischen den Anrufen, die den gleichen Argument Wert verwenden .