réglé la somme de la formule dans excel à l'aide de vba

De travail sur un des macros excel où je suis en train d'ajouter les valeurs de cellule de au-dessus des cellules pour calculer le total de la valeur. C'est ce que mon apparence des donnéesréglé la somme de la formule dans excel à l'aide de vba

Ici, je tiens à ajouter au-dessus des valeurs de cellule pour chaque colonne pour calculer la somme. Pour accomplir cela, j'ai écrit une macro comme suit.

For cl = 2 To 5    
    Worksheets(5).Cells(4, cl).Formula = "=SUM(B4:B6)"        
Next cl

Cela devrait être la formule pour chaque cellule dans une ligne jusqu'à 5 colonnes.
Mais il définit de la même formule dans toutes les cellules dans une ligne, elle doit obtenir le changement en fonction de la colonne. Comment définir la somme formule dans chaque cellule correspondante de la colonne ?

OriginalL'auteur suds | 2013-07-25

  1. 9

    Pas sûr que je comprends très bien votre code. Vous semblez être écrit dans la ligne 4, mais vous aussi, vous souhaitez calculer la somme à partir de la ligne 4 à la ligne 6. Qui permettra de créer une référence circulaire.

    Supposons la formule est écrite dans la ligne 3 à la place. Vous souhaitez utiliser le style de référence L1C1 pour rendre les cellules de la somme relative à l'actuelle cellules.

    Un truc à apprendre de référence à utiliser est:

    • Obtenir une nouvelle feuille de calcul, entrez =SUM(B4:B6) dans la cellule B3 et copie vers la droite.
    • Puis cliquez sur Fichier > Options > Formules et sélectionnez Style de Référence L1C1.
    • Maintenant inspecter les formules dans la feuille. Vous verrez ceci: =SUM(R[1]C:R[3]C)

    C'est ce que vous avez besoin dans la macro. 

    For cl = 2 To 5    
    Worksheets(5).Cells(3, cl).FormulaR1C1 = "=SUM(R[1]C:R[3]C)"    
Next cl

    OriginalL'auteur teylyn

  2. 1

    Pour votre cas, vous pouvez utiliser ceci:

    For cl = 2 To 5
    ColName = Left(Cells(1, cl).Address(0, 0), (Cells(1, cl).Column < 27) + 2)
    ValueSum = "=SUM(" & ColName & "4:" & ColName & "6)"
    Worksheets(5).Cells(4, cl).Formula = ValueSum
Next

    OriginalL'auteur Serafin William

  3. 0

    Essayer quelque chose comme cela.

    For cl = 2 To 5
    ColName = Left(Cells(1, cl).Address(False, False), 1 - (cl > 26))
    Worksheets(5).Cells(4, cl).Formula = "=SUM(" & ColName & "4:" & ColName & "6)"
Next cl

    OriginalL'auteur user1685490

  4. 0

    un peu plus de détails à L1C1 et R[1]C[1] style dans les formules.
    Autant que je sache, R[1]C[1] crée une référence relative et R1C1 crée une référence absolue. Mais gardez à l'esprit que les chiffres de R[x] et C[y] sont un décalage de la cellule qui contient la formule.

    Qui signifie que si vous voulez afficher la somme de A1:B4 en C5 le code doit ressembler à ceci:

    Worksheets(5).Cells(5, 3).FormulaR1C1 = "=SUM(R[-4]C[-2]:R[-1]C[-1])"

    Si vous voulez le même, mais se retrouver avec une référence absolue est aht ressembler à ça.

     Worksheets(5).Cells(5, 3).FormulaR1C1 = "=SUM(R1C1:R4C2)"

    OriginalL'auteur Stefan

  5. 0

    Vous pouvez utiliser la formule très simple comme ci-dessous: 

    Sub sum_month()
Sheets("13").Activate
Range("D2").Formula = "=SUM(A1+A2+A3)"
End Sub

    Et juste à côté, maintenez et faites glisser la cellule à remplir un autre lignes automatiquement.

    OriginalL'auteur Mariusz Krukar

  6. 0

    Je pense que vous pouvez simplement référence à la totalité de la formule gamme et Excel sera assez intelligent pour ajuster les colonnes.

    Sans boucle:

    Feuilles de calcul(5).Les cellules(4 cl).redimensionner(1,4).Formula = "=SOMME(B4:B6)"

    OriginalL'auteur wallyeye