Somme de la fonction en VBA

J'ai un problème avec résumant les cellules en vba. J'ai besoin d'utiliser des Cellules(a,b):

Range("A1").function="=SUM(Range(Cells(2,1),Cells(3,2)))"

mais ça ne fonctionne pas.

  • "ça ne marche pas" n'est probablement pas assez précis pour vous aider. Qu'attendez-vous d'arriver? Ce qui se passe à la place? Obtenez-vous un message d'erreur? Si oui, quel message d'erreur?
InformationsquelleAutor haver24 | 2012-07-29
  1. 31

    Fonction n'est pas une propriété/méthode de gamme.

    Si vous souhaitez calculer la somme des valeurs puis utilisez la commande suivante:

    Range("A1").Value = Application.Sum(Range(Cells(2, 1), Cells(3, 2)))

    EDIT:

    si vous voulez la formule pour ensuite les utiliser comme suit:

    Range("A1").Formula = "=SUM(" & Range(Cells(2, 1), Cells(3, 2)).Address(False, False) & ")"

'The two false after Adress is to define the address as relative (A2:B3).
'If you omit the parenthesis clause or write True instead, you can set the address
'as absolute ($A$2:$B$3).

    Dans le cas où vous êtes toujours va utiliser la même plage d'adresses ensuite vous pouvez l'utiliser comme Rory suggérée:

    Range("A1").Formula ="=Sum(A2:B3)"
    • Grâce Cabieberach ! Il fonctionne, mais j'ai besoin de qqch d'autre. Codo est droit. Il faut que j'écrive ce que j'attends. Je voudrais avoir la formule (et pas seulement un résultat) en Range("A1") qui additionne deux cellules. Je veux dire, si je change la valeur dans les Cellules(2,1) la valeur en Range("A1") doit aussi changer. Merci d'avance et désolé pour mon mauvais anglais.
    • Essayez Range("A1").Formula = "=Sum(A2,B3)" Vous devez utiliser le nom de l'emplacement de cellule (A2) plutôt que d'utiliser les Cellules(2,1) fonction vba.
    • La fonction qui fonctionne le mieux pour moi est Excel.WorksheetFunction.Somme()
    InformationsquelleAutor CaBieberach
  2. 8

    Place la fonction valeur dans la cellule

    Application.Somme souvent ne fonctionne pas bien dans mon expérience (ou au moins le développeur VBA environnement ne l'aime pas, pour quelque raison que ce soit).

    La fonction qui fonctionne le mieux pour moi est Excel.WorksheetFunction.Sum()

    Exemple:

    Dim Report As Worksheet 'Set up your new worksheet variable.
Set Report = Excel.ActiveSheet 'Assign the active sheet to the variable.

Report.Cells(11, 1).Value = Excel.WorksheetFunction.Sum(Report.Range("A1:A10")) 'Add the function result.

    Place la fonction directement dans la cellule

    L'autre méthode qui vous ont été à la recherche pour, je pense, est de placer la fonction directement dans la cellule. Cela peut être fait par la saisie de la fonction de chaîne dans la valeur de la cellule. Voici un exemple qui fournit le même résultat que ci-dessus, à l'exception de la valeur de la cellule est donnée à la fonction et non pas le résultat de la fonction:

        Dim Report As Worksheet 'Set up your new worksheet variable.
    Set Report = Excel.ActiveSheet 'Assign the active sheet to the variable.

    Report.Cells(11, 1).Value = "=Sum(A1:A10)" 'Add the function.
    • Concernant le second point: Si vous vous demandez pourquoi votre formule dans la cellule de droite, mais ne change pas de zéro et ne pas jeter des erreurs, vous pourriez avoir accidentellement inclus votre formule de la cellule dans les cellules d'entrée (off-by-one erreurs sont durs...)
    InformationsquelleAutor Lopsided
  3. 3
    Range("A1").Function="=SUM(Range(Cells(2,1),Cells(3,2)))"

    ne fonctionnera pas parce que les fonctions de feuille de calcul (lorsqu'ils sont effectivement utilisés sur une feuille de calcul) ne comprennent pas Range ou Cell

    Essayer

    Range("A1").Formula="=SUM(" & Range(Cells(2,1),Cells(3,2)).Address(False,False) & ")"
    • Merci man ! J'ai supprimé False, False dans l'Adresse() et ça marche!!! Maintenant, je peux terminer ma demande. Salutations de Varsovie, Bartek
    • Salut Tim, Êtes-vous à l'aide de .function ou avez-vous signifié .WorksheetFunction ?
    • Ha - devrait être .De la formule. Qui vient de la copie de l'OP sans regarder. Va le corriger. Merci.
    • Merci à vous , vous êtes mon héros!! J'ai passé tout l'après-midi pour une solution générique donc je peux l'utiliser à l'intérieur d'une boucle for et votre réponse m'a aidé à obtenir 'rowRange.Les cellules(LastRow+1, j) = "=SOMME(" & Range(Cells(i, j), les Cellules(LastRow, j)).Adresse(False, False) & ")"'
    InformationsquelleAutor Tim Williams
  4. 1
    Range("A10") = WorksheetFunction.Sum(Worksheets("Sheet1").Range("A1", "A9"))

    Où

    Range("A10") est la réponse de la cellule

    Range("A1", "A9") est la gamme de calculer

    InformationsquelleAutor Mohamed Khairt