VBA วิธีใช้ Sumproduct ใน vba ครับ

[DhitiBank]

เรียนอาจารย์และสวัสดีเพื่อนๆ ครับ

ผมต้องการใช้สูตร Sumproduct ในโค้ด vba

Code: Select all

Sub text()
    Dim WF As WorksheetFunction
    Dim s1 As String, dateMain As Single, i As Integer
    Dim Ws1 As Worksheet, Ws2 As Worksheet
    Set WF = Application.WorksheetFunction
    Set Ws1 = Sheets(1)
    Set Ws2 = Sheets(2)
    s1 = Ws2.Range("a2")
    dateMain = Ws2.Range("b2")
    i = WF.SumProduct((Ws1.Range("a:a") = s1), (Ws1.Range("b:b") > dateMain))
    MsgBox i
End Sub

โดยเมื่อรับค่าตัวแปร s1 และ datemain จากชีท 2 แล้ว ให้เอาไปตรวจกับฐานข้อมูลในชีท 1
มีเงื่อนไขการนับคือ:
1. คอลัมน์ A ในชีท1 เท่ากับ s1 และ
2. วันที่คอลัมน์ B มากกว่า datemain

ที่จริงใช้สูตรก็ได้ แต่ที่อยากใช้ vba เพราะว่าค่า i เป็นสิ่งที่จะเอาไปตัดสินใจต่อครับ ไม่อยากให้ค้างเป็นสูตรเอาไว้ในไฟล์ และฐานข้อมูลมีเป็นจำนวนมาก อยากให้มีสูตรให้น้อยที่สุด เคยเขียนให้นับด้วย For... Next แล้ว แต่ใช้เวลาพอสมควร ขอคำแนะนำด้วยครับ สงสัยจะใช้ sumproduct ลักษณะเดียวกับสูตรใน worksheet ไม่ได้ ไม่รู้จะแก้อย่างไรครับ

[snasui]

ปรับ Code ที่ตัวแปร i เป็นตามด้านล่างครับ

Code: Select all

i = Evaluate("=Sumproduct(--(" & Ws1.Range("a:a").Address _
        & "=""" & s1 & """),--(" & Ws1.Range("b:b").Address & "=" & dateMain & "))")

[DhitiBank]

ขอบคุณมากเลยครับอาจารย์

[DhitiBank]

ปรับ Code ที่ตัวแปร i เป็นตามด้านล่างครับ

Code: Select all

i = Evaluate("=Sumproduct(--(" & Ws1.Range("a:a").Address _
        & "=""" & s1 & """),--(" & Ws1.Range("b:b").Address & "=" & dateMain & "))")

ตอนแรกคำนวณไม่ตรง นั่งงมอยู่พักใหญ่ด้วย immediate window ก็เลยลองใส่ชื่อชีทเข้าไปครับ ตอนนี้ได้แล้ว ขอบคุณอีกครั้งครับ

Code: Select all

i = Evaluate("=Sumproduct(--(Sheet1!" & Ws1.Range("a:a").Address _
        & "=""" & s1 & """),--(Sheet1!" & Ws1.Range("b:b").Address & "=" & dateMain & "))")