Snasui Excel Forum

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

[quote="snasui"]:D ปรับ Code ที่ตัวแปร i เป็นตามด้านล่างครับ
[code]i = Evaluate("=Sumproduct(--(" & Ws1.Range("a:a").Address _
& "=""" & s1 & """),--(" & Ws1.Range("b:b").Address & "=" & dateMain & "))")[/code][/quote]

ตอนแรกคำนวณไม่ตรง นั่งงมอยู่พักใหญ่ด้วย immediate window ก็เลยลองใส่ชื่อชีทเข้าไปครับ ตอนนี้ได้แล้ว ขอบคุณอีกครั้งครับ
[code]i = Evaluate("=Sumproduct(--(Sheet1!" & Ws1.Range("a:a").Address _
& "=""" & s1 & """),--(Sheet1!" & Ws1.Range("b:b").Address & "=" & dateMain & "))")[/code]

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

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

:D ปรับ Code ที่ตัวแปร i เป็นตามด้านล่างครับ
[code]i = Evaluate("=Sumproduct(--(" & Ws1.Range("a:a").Address _
& "=""" & s1 & """),--(" & Ws1.Range("b:b").Address & "=" & dateMain & "))")[/code]

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

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

ผมต้องการใช้สูตร Sumproduct ในโค้ด vba
[code]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[/code]

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

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