une plage nommée Excel VBA ligne somme

Question

Je le code suivant

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 

Bien que je sais est faux, je ne sais pas comment l'obtenir à stocker dans DepRng.Cells(i, j) la somme totale de l'ensemble KidsRng.Row[i] Toute aide?

Answer 1

Classées, merci à tous pour l'aide ur

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

Answer 2

Il y a peut-être un meilleur moyen que cela, mais c'est ma solution qui dépend du moteur interne de formule Excel, elle pourrait suffire pour ce que vous faites ... Elle détermine l'adresse complète de KidsRng. Row (i) et l'envoie dans une chaîne de formule = SUM() et évaluée par 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 

mis à jour pour fonctionner si kidsrng existait dans une autre feuille/livre mis à jour pour utiliser Application.Evaluate

Answer 3

Le code suivant fonctionne bien.

Peut-être que vous devriez le comparer avec le vôtre:

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 

Il suffit de remplir la gamme C1: F2 avec les chiffres et les totaux par ligne apparaît dans B1: B2 lors de l'exécution de la macro.