<p>rivate Sub test1()</p><p><br/>燵C10] = Application.Evaluate("SUM(C2:C8)")<br/>?br/>燵C12] = Application.Evaluate("sumif(B2:B8,""a"",C2:C8)")<br/>Dim mon As Integer<br/>mon = 2<br/>燵C16] = Application.Evaluate("Sumproduct((MONTH(A2:A8)=" & mon & ")*(B2:B8=B16)*C2:C8)")</p><p>End Sub</p>