Excel Hinzufügen mit einer Reihe von Rangenamen

Question

Also, wenn ich eine Reihe von Bereichsnamen habe.

MasterRange zu B2 beziehen: B4

dann in B2 Crange dann Crange bis C2 bezieht, ist der Wert 1 dann in B3 DRange dann Bezugnahme DRange zu D2 ist der Wert 2 dann in B4 ERANGE dann auf ERANGE Bezug E2 ist Wert 3

Gibt es eine Möglichkeit, einen Bereich zu verwenden, um auf andere Bereiche zu verweisen, um sie anzuzeigen?

Wenn I = SUMME (INDIREKT (MasterRange)) sagt nur 1. Es scheint nicht DRange & ERANGE

Answer 1

Versuchen Sie, diese Funktion unten hinzufügen. Es ist noch nicht getestet, aber sollte dir einen guten Start geben.

Function SumRangeOfRangeNames(SourceRange as Range, SheetName as String) as Double 

    Dim celRange as Range 
    For each celRange in SourceRange 

     Dim Total as Double 
     Total = Total + Worksheets(SheetName).Range(SheetName).Value 

    Next 

    SumRangeOfRangeNames = Total 

End Function 

Aufruf wie folgt aus vba

Sub Test() 

    Dim mySum as Double 
    mySum = SumRangeOfRangeNames(Worksheets(Sheet1").Range("MasterRange"),"Sheet1") 

    debug.print mySum 

End Test 

Oder diese Art und Weise über Zelle

=SumRangeOfRangeNames(MasterRange,"Sheet1")