Formule Excel actuelle au format VBA

Question

Comment écrire la formule ci-dessous au format VBA? J'ai essayé tellement d'options, mais elles donnent toutes des erreurs de compilation.

=COUNTFS(A2:A9,="2013",B2:B9,="Bikes") 

Answer 1

Excel Formule:

=COUNTIFS(A2:A9,"2013",B2:B9,"Bikes") 

en VBA:

Dim count As Integer 
count = WorksheetFunction.CountIfs(Range("A2:A9"), "2013", Range("B2:B9"), "Bikes") 

espère que vous chercher cela?

Answer 2

La première étape est d'utiliser une formule correcte:

=SUMPRODUCT((A2:A9=2013)*(B2:B9="Bikes")) 

et VBA, nous devons double sur les guillemets doubles !:

Sub dural() 
    Dim s As String 
    s = "=SUMPRODUCT((A2:A9=2013)*(B2:B9=""Bikes""))" 
    MsgBox Evaluate(s) 

    Range("C1").Formula = s 
End Sub