macro pour compter et donner le résultat

Quelqu'un peut m'aider. Je veux compter le nombre de numéros sont > 45 et mettre le résultat de 3 lignes en dessous de la dernière cellule de données. Permet de donner un nom - c'est le résultat. Puis vers la gauche de résultat, je tiens à mettre les mots Nombre > 45. Le montant des lignes de données va changer, donc, quand je lance la macro sur la colonne D, il va trouver le dernier point de données et de faire le calcul. Certaines des lignes vides. Merci pour l'aide

Ses aimerais que ce

     50          
     20

        100
    120
     45
     30
     30

Retour >45= 4 

Sub enter()
    Dim result As Integer
    Dim firstrow As Integer
    Dim lastwow As Integer
    Firstrow = d2 
    Result = ‘ Value of count
    Worksheets("sheet1").Range("c?").Value = "Total>45"
    Range("d100000").End(xlUp).Select
End Sub
  • >45 devrait être de 3 et pas 4 dans votre cas 🙂
  • A l'une des réponses répondu à votre question? Si donc s'il vous plaît aidez les autres utilisateurs en les marquant comme la réponse, voir tour.
InformationsquelleAutor user2254486 | 2013-04-10
  1. 2

    Essayer cette

    Sub Sample()
    Dim result As Long, firstrow As Long, lastrow As Long
    Dim ws As Worksheet
    Dim rng As Range

    '~~> Set this to the relevant worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        '~~> Find Lastrow in Col D
        lastrow = .Range("D" & .Rows.Count).End(xlUp).Row
        '~~> Set First row
        firstrow = 1

        '~~> Set your range
        Set rng = .Range("D" & firstrow & ":D" & lastrow)

        '~~> Put relevant values
        .Range("C" & lastrow + 3).Value = "Total>45"
        .Range("D" & lastrow + 3).Value = _
        Application.WorksheetFunction.CountIf(rng, ">45")

    End With
End Sub

    Capture d'écran

    macro pour compter et donner le résultat

    • Est-il une raison derrière pourquoi vous pouvez définir firstrow = 1 lorsque vous pourriez faire Set rng = .Range("D1:D" & lastrow) ? Ou comme l'OP semble vouloir Set rng = .Range("D2:D" & lastrow)
    • Oui il y a une raison 🙂 Et c'est la souplesse pour modifier le numéro de ligne. Je peux le faire comme vous l'avez suggéré, mais par habitude, j'ai toujours déclarer mes variables dans le début alors que je n'ai pas à modifier le code, en tous lieux, mais seulement à un seul endroit.
    • Cela fonctionne très bien grâce à vous et à tous ceux qui ont aidé
    InformationsquelleAutor Siddharth Rout
  2. 1

    Voici un qui vous permettra de passer dans n'importe quel nombre, non seulement 45

    Sub MakeCount(lGreaterThan As Long)

    Dim lLast As Long

    With Sheet1
        lLast = .Cells(.Rows.Count, 4).End(xlUp).Row
        .Cells(lLast + 3, 4).FormulaR1C1 = "=COUNTIF(R[-" & lLast + 1 & "]C:R[-3]C,"">""&RC[-1])"
        .Cells(lLast + 3, 3).Value = lGreaterThan
        .Cells(lLast + 3, 3).NumberFormat = """Number>""#"
    End With

End Sub
    InformationsquelleAutor Dick Kusleika
  3. 0

    vous pouvez pas utiliser une formule de feuille de calcul comme

    =COUNTIF(A2:A7,">45")

    sinon, en VBA que M. Siddharth Déroute l'indique dans sa réponse

    • Même que j'ai pensé de la formule de feuille de calcul, mais alors c'est ce que l'OP avait à dire The amount of data rows will change 😉
    • Merci à tous pour votre effort de cette aide
    • bien, veuillez cocher selon la réponse vous a aidé comme Acceptée
    InformationsquelleAutor Our Man in Bananas
  4. 0

    est vba nécessaire?

    si pas, la fonction =COUNTIF(C:C,">45") va vous donner la réponse que vous voulez.

    InformationsquelleAutor SeanC