VBA: Wie ändern Sie den Wert einer anderen Zelle über eine Funktion?

Ich bin ein Excel-VBA-Neuling.

So ändern Sie den Wert der angegebenen Zelle über eine Benutzer-definierte Funktion? Was ist falsch mit diesem code:

Function Test(ByVal ACell As Range) As String
  ACell.Value = "This text is set by a function"
  Test := "Result"
End Function

Mein Wunsch ist ... wenn ich =Test(E6) in Zelle E1, Excel zeigt den angegebenen text in E6.

InformationsquelleAutor Vantomex | 2010-10-02

  1. 3

    Excel-VBA wird nicht zulassen, einen Benutzer-definierten Funktion zu ändern, den Wert einer anderen Zelle.
    Das einzige, was eine UDF machen darf (mit ein paar kleinen Ausnahmen) ist die Rückgabe von Werten an den Zellen, heißt es.

    Danke @Charles. 🙂

    InformationsquelleAutor Charles Williams

  2. 4

    Einen VBA-UDF verwendet werden kann, wie eine array-Funktion, um Ergebnisse zu mehreren benachbarten Zellen.
    Geben Sie die Formel in E1 und E2 und drücken Sie Strg-Shift-Enter erstellen einer multi-cell array-Formel. Ihre UDF würde wie folgt Aussehen:

    Public Function TestArray(rng As Range)
    Dim Ansa(1 To 2, 1 To 1) As Variant
    Ansa(1, 1) = "First answer"
    Ansa(2, 1) = "Second answer"
    TestArray = Ansa
End Function
    Aha, das ist eine schöne Lösung zu. Danke @Charles, ich weiß es zu schätzen. 🙂

    InformationsquelleAutor Charles Williams

  3. 0

    Warum nicht einfach eingeben, Sie die Formel in E6 dann ? Das ist die Excel-Logik: setzen Sie Ihre Formel, wo das Ergebnis angezeigt werden.

    Ich bin momentan dabei, eine lange Funktion, die zurückkehren wird zwei Ergebnis. Da es eine lange Funktion und die Ergebnisse berechnet werden können, nur einmal, nannte es zweimal aus verschiedenen Zellen verringern sollte die Geschwindigkeit der Platte, wenn die Anzeige der Ergebnisse. Allerdings, wenn die Antwort meiner Frage ist unmöglich, ich denke, ich werde fügen Sie einen weiteren parameter, der angibt, welche der das Ergebnis benötigt wird.

    InformationsquelleAutor Patrick Honorez

  4. 0

    JA, natürlich, es ist möglich. Fügen Sie diesen code in Modul1 der VBA-editor:

    Function Rectangle(A As Integer, B As Integer)
    Evaluate "Adjacent(" & Application.Caller.Offset(0, 1).Address(False, False) & "," & A & "," & B & ")"
    Rectangle = "Area:"
End Function

Private Sub Adjacent(CellToChange As Range, A As Integer, B As Integer)
    CellToChange = A * B
End Sub

    Das Ergebnis dieser Beispiel-UDF ist wieder in einem anderen, benachbarten Zelle. Die Benutzer-definierte Funktion Rectangle berechnet das Rechteck Bereich, basierend auf zwei Parameter A und B und gibt das Ergebnis in einer Zelle auf der rechten Seite.

    Können Sie leicht ändern Sie das Beispiel-Funktion. Der job ist getan, durch geheime undokumentierte VBA-Funktion Evaluate. Spaß haben!

    Dies ist ein link zu der UDF-Beschränkung durch Microsoft. https://support.microsoft.com/en-us/help/170787/description-of-limitations-of-custom-functions-in-excel

    InformationsquelleAutor Przemyslaw Remin

Schreibe einen Kommentar