Page 1 of 1
ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 10:44 am
by 9KiTTi
ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
ผมสร้างฟอร์มชื่อ fr_NCDSCREEN เพื่อแสดงค่าใน Textbox จำนวน 4 box
Code: Select all
Sub ncdCountIf()
Dim ws As Worksheet
Dim x As Long
Set ws = Worksheets("ncdscreen")
RowCount = Application.CountA(Range("A:A"))
Me.TextBox1 = Application.WorksheetFunction.CountIf(Range("ncdscreen!Q4:Q100000"), ">=70") 'ผลลัพท์ไม่ตรง
Me.TextBox2 = Application.WorksheetFunction.CountIf(Range("ncdscreen!Q4:Q100000"), "<70") ผลลัพท์ตรง
Me.TextBox3 = Application.WorksheetFunction.CountA([ncdscreen!A4:A100000]) - _
Application.WorksheetFunction.CountA([ncdscreen!Q4:Q100000]) 'ผลลัพท์ตรง
Me.TextBox4 = ws.Range("Q4:Q" & RowCount).SpecialCells(xlCellTypeBlanks).Count 'เกิด error ตามภาพครับ
End Sub
Private Sub UserForm_Initialize()
Call ncdCountIf
End Sub
โดยที่รับค่าจาก Columm Q4 แต่พบปัญหาคือ
textbox1 ข้อมูลที่ได้รับไม่ตรง
textbox2 ข้อมูลตรง
textbox3 ข้อมูลตรง
textbox4 ผมลองใช้ SpecialCells(xlCellTypeBlanks) แต่เกิด error ครับ
รบกวนแนะนำวิธีแก้ไขข้อผิดพลาดของ textbox 1 และแนะนำวิธีใช้ vba ของ textbox4 ด้วยครับ
ขอบพระคุณครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 4:58 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Sub ncdCountIf()
Dim ws As Worksheet
Dim x As Long
Set ws = Worksheets("ncdscreen")
With ws
x = .Range("a" & .Rows.Count).End(xlUp).Row
Me.TextBox1.Text = [Sumproduct(--(q4:q10000>=70))]
Me.TextBox2.Text = [Sumproduct(--(q4:q10000<70),--(q4:q10000>0))]
Me.TextBox3.Text = [sumproduct(--(q4:q10000=""),--(a4:a10000<>""))]
Me.TextBox4.Text = .Range("Q4:Q" & x).SpecialCells(xlCellTypeBlanks).Count
End With
End Sub
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 5:28 pm
by 9KiTTi
snasui wrote: Tue Apr 12, 2022 4:58 pm
ตัวอย่างการปรับ Code ครับ
Code: Select all
Sub ncdCountIf()
Dim ws As Worksheet
Dim x As Long
Set ws = Worksheets("ncdscreen")
With ws
x = .Range("a" & .Rows.Count).End(xlUp).Row
Me.TextBox1.Text = [Sumproduct(--(q4:q10000>=70))]
Me.TextBox2.Text = [Sumproduct(--(q4:q10000<70),--(q4:q10000>0))]
Me.TextBox3.Text = [sumproduct(--(q4:q10000=""),--(a4:a10000<>""))]
Me.TextBox4.Text = .Range("Q4:Q" & x).SpecialCells(xlCellTypeBlanks).Count
End With
End Sub
อาจารย์ครับ textbox 1, 2 , 3 ไม่มีข้อมูลออกมาครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 5:31 pm
by snasui
แนบไฟล์ที่ปรับปรุงล่าสุดมาด้วยจะได้ช่วยดูให้ได้ครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 5:34 pm
by 9KiTTi
snasui wrote: Tue Apr 12, 2022 5:31 pm
แนบไฟล์ที่ปรับปรุงล่าสุดมาด้วยจะได้ช่วยดูให้ได้ครับ
ขอโทษครับอาจารย์ ผมวาง code ผิด ขออภัยด้วยครับ ขอบพระคุณอาจารย์เป็นอย่างสูงครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 5:50 pm
by 9KiTTi
9KiTTi wrote: Tue Apr 12, 2022 5:34 pm
snasui wrote: Tue Apr 12, 2022 5:31 pm
แนบไฟล์ที่ปรับปรุงล่าสุดมาด้วยจะได้ช่วยดูให้ได้ครับ
ขอโทษครับอาจารย์ ผมวาง code ผิด ขออภัยด้วยครับ ขอบพระคุณอาจารย์เป็นอย่างสูงครับ
ต้องขออภัยครับอาจารย์ ข้อมูลไม่ขึ้นอีกแล้วครับ ต้องขอรบกวนอาจารย์แนะนำอีกครั้ง ขอบพระคุณครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 10:01 pm
by snasui
สามารถเพิ่มการ Activate เพื่อเลือกชีต ncdscreen ขึ้นมาก่อนเนื่องจากสูตรนั้นจะทำงานบนชีตปัจจุบันครับ
Code: Select all
'Other code
With ws
ws.Activate
x = .Range("a" & .Rows.Count).End(xlUp).Row
'Other code
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Tue Apr 12, 2022 10:17 pm
by 9KiTTi
snasui wrote: Tue Apr 12, 2022 10:01 pm
สามารถเพิ่มการ Activate เพื่อเลือกชีต ncdscreen ขึ้นมาก่อนเนื่องจากสูตรนั้นจะทำงานบนชีตปัจจุบันครับ
Code: Select all
'Other code
With ws
ws.Activate
x = .Range("a" & .Rows.Count).End(xlUp).Row
'Other code
ขอบพระคุณครับอาจารย์ ผมจะจำวิธีนี้ไปใช้งานในคราวต่อๆไปครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Thu Apr 14, 2022 11:38 pm
by 9KiTTi
ขออนุญาตสอบถามปัญหาเพิ่มเติมครับ ผมนำมาปรับแก้เพิ่มครับ แต่เจอ Run-Time Error 1004 No cells were found สำหรับ textbox 1 - 10 แต่ textbox 11-12 สามารถคำนวณข้อมูลได้ ต้องแก้ไขโค้ดอย่างไรครับ ขอบพระคุณครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Fri Apr 15, 2022 12:44 am
by 9KiTTi
code ครับ ผมลืมลงครับ
Code: Select all
Sub ncdCountIf()
Dim ws As Worksheet
Dim x As Long
Set ws = Worksheets("ncdscreen")
With ws
ws.Activate
x = .Range("a" & .Rows.Count).End(xlUp).Row
Me.TextBox1.Text = .Range("A4:A" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox2.Text = .Range("B4:B" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox3.Text = .Range("D4:D" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox4.Text = .Range("E4:E" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox5.Text = .Range("J4:J" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox6.Text = .Range("K4:K" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox7.Text = .Range("L4:L" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox8.Text = .Range("M4:M" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox9.Text = .Range("N4:N" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox10.Text = .Range("U4:U" & x).SpecialCells(xlCellTypeBlanks).Count
Me.TextBox11.Text = [Sumproduct(--(q4:q10000<70),--(q4:q10000>0))] 'ใช้งานได้
Me.TextBox12.Text = [sumproduct(--(q4:q10000=""),--(a4:a10000<>""))] 'ใช้งานได้
End With
End Sub
Private Sub UserForm_Initialize()
Call ncdCountIf
End Sub
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Fri Apr 15, 2022 2:06 am
by snasui
Code นั้นใช้หาค่า Blank และในช่วงดังกล่าวไม่มีเซลล์ใดเป็น Blank ก็เลยฟ้องอย่างที่เห็นครับ
หากไม่ต้องการให้ฟ้องก็ดักด้วย
on error resume next เอาไว้ก่อน หมายถึงแม้จะมี Error ก็ให้ทำงานต่อ ซึ่งจะต้องจัดการให้ดีว่าเมื่อใดจะเปิดให้ดักจับ Error ได้ต่อ หากเรามีการดักการฟ้องด้วย Statement ดังกล่าวแล้ว เมื่อต้องการจะให้สามารถดักจับ Error ได้อีกก็จะต้องเพิ่ม Statement
on error goto 0 เข้าไปครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Fri Apr 15, 2022 8:23 am
by 9KiTTi
snasui wrote: Fri Apr 15, 2022 2:06 am
Code นั้นใช้หาค่า Blank และในช่วงดังกล่าวไม่มีเซลล์ใดเป็น Blank ก็เลยฟ้องอย่างที่เห็นครับ
หากไม่ต้องการให้ฟ้องก็ดักด้วย
on error resume next เอาไว้ก่อน หมายถึงแม้จะมี Error ก็ให้ทำงานต่อ ซึ่งจะต้องจัดการให้ดีว่าเมื่อใดจะเปิดให้ดักจับ Error ได้ต่อ หากเรามีการดักการฟ้องด้วย Statement ดังกล่าวแล้ว เมื่อต้องการจะให้สามารถดักจับ Error ได้อีกก็จะต้องเพิ่ม Statement
on error goto 0 เข้าไปครับ
ผมทำตามที่อาจารย์แนะนำแล้วครับ ได้ผลดีครับ แต่อยากรบกวนสอบถามอาจารย์ครับ ถ้าหากว่าไม่พบเซลล์ใดที่เป็น blank สามารถใส่ค่าเป็น 0 ได้อย่างไรครับ ขอบพะคุณครับ
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Fri Apr 15, 2022 8:32 am
by snasui
กรณีเช่นนี้ควรทำมาเองก่อนครับ
หลักการคือเมื่อ Error ไม่เป็น 0 แสดงว่าเกิด Error ก็ให้ TextBox นั้นมีค่าเป็น 0
วิธีการตรวจสอบว่า Error เป็น 0 หรือไม่หลังจากที่ได้บังคับให้ทำงานต่อแม้จะมี Error แล้วนั้น จะใช้ Statement นี้เป็นตัวตรวจสอบได้
Code: Select all
'Other code
on error resume next
'Other code
if err <> 0 then
'Other code
end if
on error goto 0
'Other code
การใช้ Code จัดการงานลักษณะนี้ทำได้หลายแบบ ไม่จำเป็นต้องเลือกเพียงวิธีเช็คเซลล์ว่าง สามารถเลือกเป็นเช่น เมื่อนับเซลล์ไม่ว่างมีค่าเท่ากับจำนวนข้อมูลแสดงว่าไม่มีเซลล์ว่างเช่นนี้เป็นต้น
Re: ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ
Posted: Fri Apr 15, 2022 8:34 am
by 9KiTTi
ขอบพระคุณครับอาจารย์ ขอลองทดสอบอย่างที่อาจารย์แนะนำครับ