ขออนุญาตสอบถามแก้ไขสูตรใน VBA ผลลัพท์ไม่ตรงและเกิดCode error ครับ

[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 ด้วยครับ

ขอบพระคุณครับ

[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

[9KiTTi]

ตัวอย่างการปรับ 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 ไม่มีข้อมูลออกมาครับ

[snasui]

แนบไฟล์ที่ปรับปรุงล่าสุดมาด้วยจะได้ช่วยดูให้ได้ครับ

[9KiTTi]

แนบไฟล์ที่ปรับปรุงล่าสุดมาด้วยจะได้ช่วยดูให้ได้ครับ

ขอโทษครับอาจารย์ ผมวาง code ผิด ขออภัยด้วยครับ ขอบพระคุณอาจารย์เป็นอย่างสูงครับ

[9KiTTi]

แนบไฟล์ที่ปรับปรุงล่าสุดมาด้วยจะได้ช่วยดูให้ได้ครับ

ขอโทษครับอาจารย์ ผมวาง code ผิด ขออภัยด้วยครับ ขอบพระคุณอาจารย์เป็นอย่างสูงครับ

ต้องขออภัยครับอาจารย์ ข้อมูลไม่ขึ้นอีกแล้วครับ ต้องขอรบกวนอาจารย์แนะนำอีกครั้ง ขอบพระคุณครับ

[snasui]

สามารถเพิ่มการ Activate เพื่อเลือกชีต ncdscreen ขึ้นมาก่อนเนื่องจากสูตรนั้นจะทำงานบนชีตปัจจุบันครับ

Code: Select all

'Other code
With ws
    ws.Activate
    x = .Range("a" & .Rows.Count).End(xlUp).Row
'Other code

[9KiTTi]

สามารถเพิ่มการ Activate เพื่อเลือกชีต ncdscreen ขึ้นมาก่อนเนื่องจากสูตรนั้นจะทำงานบนชีตปัจจุบันครับ

Code: Select all

'Other code
With ws
    ws.Activate
    x = .Range("a" & .Rows.Count).End(xlUp).Row
'Other code

ขอบพระคุณครับอาจารย์ ผมจะจำวิธีนี้ไปใช้งานในคราวต่อๆไปครับ

[9KiTTi]

ขออนุญาตสอบถามปัญหาเพิ่มเติมครับ ผมนำมาปรับแก้เพิ่มครับ แต่เจอ Run-Time Error 1004 No cells were found สำหรับ textbox 1 - 10 แต่ textbox 11-12 สามารถคำนวณข้อมูลได้ ต้องแก้ไขโค้ดอย่างไรครับ ขอบพระคุณครับ

[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

[snasui]

Code นั้นใช้หาค่า Blank และในช่วงดังกล่าวไม่มีเซลล์ใดเป็น Blank ก็เลยฟ้องอย่างที่เห็นครับ

หากไม่ต้องการให้ฟ้องก็ดักด้วย on error resume next เอาไว้ก่อน หมายถึงแม้จะมี Error ก็ให้ทำงานต่อ ซึ่งจะต้องจัดการให้ดีว่าเมื่อใดจะเปิดให้ดักจับ Error ได้ต่อ หากเรามีการดักการฟ้องด้วย Statement ดังกล่าวแล้ว เมื่อต้องการจะให้สามารถดักจับ Error ได้อีกก็จะต้องเพิ่ม Statement on error goto 0 เข้าไปครับ

[9KiTTi]

Code นั้นใช้หาค่า Blank และในช่วงดังกล่าวไม่มีเซลล์ใดเป็น Blank ก็เลยฟ้องอย่างที่เห็นครับ

หากไม่ต้องการให้ฟ้องก็ดักด้วย on error resume next เอาไว้ก่อน หมายถึงแม้จะมี Error ก็ให้ทำงานต่อ ซึ่งจะต้องจัดการให้ดีว่าเมื่อใดจะเปิดให้ดักจับ Error ได้ต่อ หากเรามีการดักการฟ้องด้วย Statement ดังกล่าวแล้ว เมื่อต้องการจะให้สามารถดักจับ Error ได้อีกก็จะต้องเพิ่ม Statement on error goto 0 เข้าไปครับ

ผมทำตามที่อาจารย์แนะนำแล้วครับ ได้ผลดีครับ แต่อยากรบกวนสอบถามอาจารย์ครับ ถ้าหากว่าไม่พบเซลล์ใดที่เป็น blank สามารถใส่ค่าเป็น 0 ได้อย่างไรครับ ขอบพะคุณครับ

[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 จัดการงานลักษณะนี้ทำได้หลายแบบ ไม่จำเป็นต้องเลือกเพียงวิธีเช็คเซลล์ว่าง สามารถเลือกเป็นเช่น เมื่อนับเซลล์ไม่ว่างมีค่าเท่ากับจำนวนข้อมูลแสดงว่าไม่มีเซลล์ว่างเช่นนี้เป็นต้น

[9KiTTi]

ขอบพระคุณครับอาจารย์ ขอลองทดสอบอย่างที่อาจารย์แนะนำครับ