Excel-VBA Chiamato gamma fila somma

Question

Ho il seguente codice

For i = 1 To DepRng.Rows.Count 
    For j = 1 To DepRng.Columns.Count 
     DepRng.Cells(i, j) = Application.Sum(KidsRng.Row(i)) //Does not work 
    Next j 
Next i 

Anche se so che è sbagliato, non ho idea di come farlo per memorizzare in DepRng.Cells(i, j) la somma totale di tutta la KidsRng.Row[i] Qualsiasi aiuto?

Answer 1

ordinato, ringrazia tutti per aiutare ur

DepRng.Cells(i, j) = Application.Sum(KidsRng.Rows(i)) //just needed to add the "s" in rows 

Answer 2

Potrebbe esserci un modo migliore di questo, ma questa è la mia soluzione che dipende dal motore di formula di Excel interno, tuttavia, potrebbe essere sufficiente per quello che stai facendo ... Determina l'indirizzo completo di KidsRng. Riga (i) e lo alimenta in una stringa di formula = SUM() e valutata da Application.Evaluate.

For i = 1 To DepRng.Rows.Count 
    For j = 1 To DepRng.Columns.Count 

     DepRng.Cells(i, j).Value = Application.Evaluate("=SUM(" & KidsRng.Row(i).Address(True, True, xlA1, True) & ")") 

    Next j 
Next i 

aggiornato a funzionare se kidsrng esisteva in una diversa scheda/libro aggiornato per utilizzare Application.Evaluate

Answer 3

Il seguente codice funziona bene.

Forse si dovrebbe confrontarla con la vostra:

Sub a() 

Dim DepRng As Range 
Dim kidsrng As Range 
Set DepRng = Range("B1:B2") 
Set kidsrng = Range("C1:F2") 

For i = 1 To DepRng.Rows.Count 
     DepRng.Cells(i, 1) = Application.Sum(kidsrng.Rows(i)) 
Next i 

End Sub 

Basta riempire la gamma C1: apparirà F2 con i numeri e i totali per riga in B1: B2 al momento dell'esecuzione della macro.