Page 1 of 1
ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Mon May 02, 2022 11:38 pm
by 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
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Tue May 03, 2022 12:29 am
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Me.TextBox1.Text = Evaluate("SUMPRODUCT((B2:B" & LastRow & "<24)+0)")
ถ้ายังติดปัญหาแสดงว่าเป็นปัญหาที่
LastRow จะต้องเขียนให้ Return ค่าออกมาให้ได้ก่อนครับ
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Tue May 03, 2022 1:15 pm
by 9KiTTi
snasui wrote: Tue May 03, 2022 12:29 am
ตัวอย่างการปรับ 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 จะไม่ได้แสดงข้อมูลครับอาจารย์ รบกวนขอคำแนะนำด้วยครับ
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Tue May 03, 2022 2:08 pm
by snasui
ช่วยขยายความว่าไม่แสดงข้อมูลอย่างไร ที่ผมทดสอบคือแสดงค่าเป็น 0 ตามผลลัพธ์ของฟังก์ชั่น Sumproduct ที่หาว่าคอลัมน์ B มีค่าน้อยกว่า 24 กี่ตัวครับ
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Tue May 03, 2022 3:29 pm
by 9KiTTi
snasui wrote: Tue May 03, 2022 2:08 pm
ช่วยขยายความว่าไม่แสดงข้อมูลอย่างไร ที่ผมทดสอบคือแสดงค่าเป็น 0 ตามผลลัพธ์ของฟังก์ชั่น Sumproduct ที่หาว่าคอลัมน์ B มีค่าน้อยกว่า 24 กี่ตัวครับ
คอลัมม์ A จะมีจำนวนที่มีข้อมูลตายตัว เช่น 25 แถว แต่คอลัมม์ B จะมีข้อมูลที่ไม่แน่นอนครับ อาจจะมีจำนวนที่น้อยกว่าหรือเท่ากับคอลัมม์ A เช่น 25 แถว หรือ 20 แถว โดยการคำนวณจะคำนวณจากคอลลัม์ B ว่ามีจำนวน cell ที่มีจำนวนตัวอักษรที่น้อยกว่า 24 ตัวหรือเป็นค่าว่างครับ อย่างตามไฟล์ที่แนบมาครับ ค่าที่ได้จะเท่ากับ 10 เพราะมีจำนวนตัวอักษรและเป็นค่าว่างครับ
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Tue May 03, 2022 9:45 pm
by 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
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Tue May 03, 2022 11:53 pm
by 9KiTTi
snasui wrote: Tue May 03, 2022 9:45 pm
ตัวอย่างการปรับ 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
แก้ตามอาจารย์แนะนำแล้วครับ ข้อมูลก็ยังไม่แสดงครับ
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Wed May 04, 2022 12:08 am
by 9KiTTi
ผมแก้ไขได้แล้วครับอาจารย์ ขอบพระคุณมากครับ
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Wed May 04, 2022 12:08 pm
by 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
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Wed May 04, 2022 8:27 pm
by snasui
9KiTTi wrote: Wed May 04, 2022 12:08 pm
ค้นหาข้อมูลที่ค่าน้อยกว่า 100 และเป็นค่าว่าง
ค่าว่างเปล่า Excel จะมองว่าเป็นค่า 0 ดังนั้นหาเพียงเงื่อนไข < 100 เพียงเงื่อนไขเดียวก็จะครอบคลุมทั้งค่าที่น้อยก่า 100 และเซลล์ว่างครับ
ตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Me.TextBox2.Text = Evaluate("SUMPRODUCT((C2:C" & LastRow & "<100)+0)")
Re: ขออนุญาตสอบถามเรื่องการใช้ sumproduct ร่วมกับ End(xlUp)
Posted: Wed May 04, 2022 8:49 pm
by 9KiTTi
ขอบพระคุณครับอาจารย์