ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)

[9KiTTi]

เนื่องจากผมลองใช้ sumproduct ร่วมกับ End(xlUp) แต่ยังไม่เข้าใจอะไรมากนัก โดยที่ผมลองทำตัวอย่างตามนี้ครับ
กำหนดให้คำนวณจากจำนวน cell ของคอลลัมม์ A ว่ามีจำนวนเท่าไหร่ แล้วให้หาค่าจากคอลัมม์ B เอามาคำนวณเปรียบเทียบ หาค่าจำนวนตัวอักษรมากกว่า 25 หลัก เนื่องจาก คอลลัมม์ A บางครั้งมีค่าไม่ตายตัว ถ้ากำหนดสูตรตายตัว A2:A26 ผลที่ได้จะไม่ตรงกับความจริง ผมต้องการให้แสดงใน textbox ใน Form แต่ไม่แสดงข้อมูล รบกวนขอคำแนะนำด้วยครับ ขอบพระคุณครับ

Code: Select all

Private Sub UserForm_Click()
    Dim LastRow As Long
    LastRow = Range("A").End(xlUp).Row
     Me.TextBox1.Text = [SUMPRODUCT(B2:B" & LastRow & " <24)]
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Me.TextBox1.Text = Evaluate("SUMPRODUCT((B2:B" & LastRow & "<24)+0)")

ถ้ายังติดปัญหาแสดงว่าเป็นปัญหาที่ LastRow จะต้องเขียนให้ Return ค่าออกมาให้ได้ก่อนครับ

[9KiTTi]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Me.TextBox1.Text = Evaluate("SUMPRODUCT((B2:B" & LastRow & "<24)+0)")

ถ้ายังติดปัญหาแสดงว่าเป็นปัญหาที่ LastRow จะต้องเขียนให้ Return ค่าออกมาให้ได้ก่อนครับ

ผมพยายามทำอย่างที่อาจารย์แนะนำแล้วครับโดยเปลี่ยนไปใช้ code นี้ครับ

Code: Select all

Sub Last_Row()

  Dim LR As Long

  LastRow = Cells(Rows.Count, 2).End(xlUp).Row
  
  'Me.TextBox1.Text = Evaluate("SUMPRODUCT((B2:B" & LastRow & "<24)+0)")

  MsgBox LastRow

End Sub

จะสามารถแสดง Msgbox แสดงข้อมูลได้ครับ แต่ถ้ามาใส่ใน form จะไม่ได้แสดงข้อมูลครับอาจารย์ รบกวนขอคำแนะนำด้วยครับ

[snasui]

ช่วยขยายความว่าไม่แสดงข้อมูลอย่างไร ที่ผมทดสอบคือแสดงค่าเป็น 0 ตามผลลัพธ์ของฟังก์ชั่น Sumproduct ที่หาว่าคอลัมน์ B มีค่าน้อยกว่า 24 กี่ตัวครับ

[9KiTTi]

ช่วยขยายความว่าไม่แสดงข้อมูลอย่างไร ที่ผมทดสอบคือแสดงค่าเป็น 0 ตามผลลัพธ์ของฟังก์ชั่น Sumproduct ที่หาว่าคอลัมน์ B มีค่าน้อยกว่า 24 กี่ตัวครับ

คอลัมม์ A จะมีจำนวนที่มีข้อมูลตายตัว เช่น 25 แถว แต่คอลัมม์ B จะมีข้อมูลที่ไม่แน่นอนครับ อาจจะมีจำนวนที่น้อยกว่าหรือเท่ากับคอลัมม์ A เช่น 25 แถว หรือ 20 แถว โดยการคำนวณจะคำนวณจากคอลลัม์ B ว่ามีจำนวน cell ที่มีจำนวนตัวอักษรที่น้อยกว่า 24 ตัวหรือเป็นค่าว่างครับ อย่างตามไฟล์ที่แนบมาครับ ค่าที่ได้จะเท่ากับ 10 เพราะมีจำนวนตัวอักษรและเป็นค่าว่างครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub UserForm_Click()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Me.TextBox1.Text = Evaluate("SUMPRODUCT((Len(B2:B" & LastRow & ")<24)+0)")
End Sub

[9KiTTi]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub UserForm_Click()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Me.TextBox1.Text = Evaluate("SUMPRODUCT((Len(B2:B" & LastRow & ")<24)+0)")
End Sub

แก้ตามอาจารย์แนะนำแล้วครับ ข้อมูลก็ยังไม่แสดงครับ

[9KiTTi]

ผมแก้ไขได้แล้วครับอาจารย์ ขอบพระคุณมากครับ

[9KiTTi]

ขออนุญาตสอบถามเรื่อง Run-time error 13 Type mismatch ผมใช้ Code ที่อาจารย์แนะนำมาเพื่อปรับให้ค้นหาข้อมูลที่ค่าน้อยกว่า 100 และเป็นค่าว่าง แต่เกิด error ดังกล่าว พยายามปรับตัวแปรเป็น String และ code แล้วก็ยังไม่หาย รบกวนขอคำแนะนำด้วยครับ ขอบพระคุณครับ

Code: Select all

Sub lr()
    Dim LastRow As Long
    'On Error Resume Next
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    Me.TextBox1.Text = Evaluate("SUMPRODUCT((Len(B2:B" & LastRow & ")<24)+0)")
    
    'Me.TextBox2.Text = Evaluate("SUMPRODUCT((COUNTIF((C2:C,"<100")+COUNTBLANK(C2:C)" & LastRow & "))+0)")
    
    'Me.TextBox2.Text = Evaluate("SUMPRODUCT((COUNTIF(C2:C,"<100")+COUNTBLANK(C2:C)" & LastRow & "))<100)+0)")

    'Me.TextBox2.Text = Evaluate("SUMPRODUCT((COUNTIF((C2:C,"<100")+COUNTBLANK(C2:C)" & LastRow & ")<100)+0)")
    
    'Me.TextBox2.Text = Evaluate("SUMPRODUCT((COUNTIF(C2:C,"<100")+COUNTBLANK(C2:C)" & LastRow & ")+0)")
    
    'Me.TextBox2.Text = Evaluate("SUMPRODUCT((COUNTIF(C2:C," & LastRow & ")<100)+COUNTBLANK(C2:C," & LastRow & "))+0)")
    
    Me.TextBox2.Text = Evaluate("SUMPRODUCT((COUNTIF(C2:C," & LastRow & ")<100)+COUNTBLANK(C2:C," & LastRow & ")+0)")
    
End Sub
Private Sub UserForm_Initialize()
    Call lr
End Sub

[snasui]

ค้นหาข้อมูลที่ค่าน้อยกว่า 100 และเป็นค่าว่าง

ค่าว่างเปล่า Excel จะมองว่าเป็นค่า 0 ดังนั้นหาเพียงเงื่อนไข < 100 เพียงเงื่อนไขเดียวก็จะครอบคลุมทั้งค่าที่น้อยก่า 100 และเซลล์ว่างครับ

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Me.TextBox2.Text = Evaluate("SUMPRODUCT((C2:C" & LastRow & "<100)+0)")

[9KiTTi]

ขอบพระคุณครับอาจารย์