Die Verwendung von benannten Zellen in einer VBA-Funktion

Ich habe ein Arbeitsblatt, wo ich den vorgegebenen Namen für bestimmte Zellen. Diese Zellen werden verwendet in der Funktion und ich rufe Sie mit Ihren Namen.

Allerdings bekomme ich 0 als Rückgabe der Funktion wenn ich es mit Excel, als wenn die Namen nicht verknüpft waren) oder ein 0-Wert.

Unten ist der code, den ich schrieb. "Sum_Len_1", "L_W_2" und "L_W_1" sind die Namen, ich gab die Quelle Zellen.

Function min_w(depth)

    If depth < Sum_Len_1 Then
        min_w = L_W_1 * 0.868 * depth / 1000
    Else
        min_w = L_W_1 * 0.868 * Sum_Len_1 / 1000 + L_W_2 * 0.868 * (depth - Sum_Len_1) / 1000
    End If

End Function

Wie ich das problem lösen kann?

Können Sie ein Beispiel geben, welche Werte Tiefe, L_W_1, L_W_2 und Sum_Len_1 haben könnte?
L_W_1 = 105 L_W_2 = 96 Sum_Len_1 = 37

InformationsquelleAutor user2453446 | 2013-06-21

  1. 9

    Wenn Sie nur schreiben min_w = L_W_1 * 0.868 * depth /1000 vba meint L_W_1 es die variable (vom Typ variant mit dem Wert=0).
    Sie haben es zu tun wie dieser Range("L_W_1").Value Verweis auf die benannte Zelle.

    Sollte es funktionieren, wenn Sie es zu ändern:

    Function min_w(depth As Long)
If depth < Range("SUM_LEN_1").Value Then
    min_w = Range("L_W_1").Value * 0.868 * depth / 1000
Else
    min_w = Range("L_W_1").Value * 0.868 * Range("SUM_LEN_1").Value / 1000 + Range("L_W_2").Value * 0.868 * (depth - Range("SUM_LEN_1").Value) / 1000
End If
End Function
    Danke das funktioniert Super !

    InformationsquelleAutor MiVoth

  2. 4

    Können Sie einfach legen Sie Sie in eckige Klammern zu markieren, die Sie als eine Reihe:
    [Sum_Len_1].Wert, [L_W_2].Wert und [L_W_1].Wert

    InformationsquelleAutor robotik

Schreibe einen Kommentar