Utilizzando SUM() in VBA

Question

Se ho una serie di celle di un foglio di lavoro che voglio aggiungere, posso usare la formula:

=SUM(Sheet1!A1:A10) 

di fare questo in un sub, userei:

Sub example1() 
    Dim r As Range, v As Variant 

    Set r = Sheets("Sheet1").Range("A1:A10") 
    v = Application.WorksheetFunction.Sum(r) 
End Sub 

Se, tuttavia, voglio aggiungere una singola cella in molti fogli di lavoro, io uso la formula:

=SUM(Sheet1:Sheet38!B2) 

in VBA questa linea fallisce miseramente, come spiegato in Specify an Excel range across sheets in VBA:

Sub dural() 
    v = Application.WorksheetFunction.Sum("Sheet1:Sheet3!B2") 
End Sub 

Ho due soluzioni. Posso la somma programmando un ciclo:

Sub example2() 
    Dim i As Long 
    Dim v As Variant 

    v = 0 
    For i = 1 To 38 
     v = v + Sheets(i).Range("B2") 
    Next i 
End Sub 

o utilizzando Evaluate():

v = Evaluate("Sum(Sheet1:Sheet3!B2)") 

E 'possibile utilizzare Application.WorksheetFunction.Sum() per questo calcolo, o devo attaccare il ciclo?

Answer 1

Credo che il problema con il worksheetfunction.sum sia che ha bisogno di argomenti per valutare non stringa. WorksheetFunction.Sum ("Sheet1! A1: A3") ha esito negativo. Tuttavia, questo succede a

Application.WorksheetFunction.Sum(Sheet1.Range("A1"), Sheet2.Range("A1")) 

Gli intervalli potrebbero essere quello che vuoi.

Answer 2

È necessario utilizzare il loop per eseguire il calcolo su tutti i fogli, è il modo più efficiente per l'aspetto delle cose. Come menzionato sopra, puoi invece digitare ogni intervallo separatamente.

Potrebbe valere la pena convertire l'intervallo sommato in un doppio (o singolo, intero, ecc.) Perché a volte VBA legge numeri come testo.

v = v + Cdbl(Sheets(i).Range("B2"))

Il motivo per cui hai problemi con Application.WorksheetFunction.Sum("Sheet1:Sheet3!B2") è perché se si digita questa formula in Excel, la gamma 'Foglio1:! Sheet3 B2' non sarà riconosciuto da Excel.

Per utilizzare un Application.WorksheetFunction deve lavorare in excel al di fuori della VBA.

Spero che questo aiuti.