ขออนุญาตสอบถามเรื่องการใช้สูตรใน VBA หาผลมากกว่าหรือน้อยกว่าครับ

[9KiTTi]

ขออนุญาตสอบถามเรื่องการใช้สูตรใน VBA เพื่อหาจำนวนข้อมูลที่มีผลมากกว่าหรือน้อยกว่า โดยที่ผมสร้างฟอร์มเพื่อคำนวณหาค่าจากคอลัมม์ และสร้าง tesxbox เพื่อแสดงผลจากที่ได้จากสูตร
code ใน ฟอร์ม optest

Code: Select all

Sub TestCountIf()
   Me.TextBox1 = Application.WorksheetFunction.CountIf(Range("test!A2:A21"), ">10")
   
   Me.TextBox2 = Application.WorksheetFunction.CountIf(Range("test!B2:B21"), "<10")
End Sub

แต่ไม่แสดงผลอะไรเลย รบกวนแนะนำวิธีแก้ไขให้ด้วยครับ ขอบพระคุณครับ

[snasui]

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

Code: Select all

Sub TestCountIf()
   Me.TextBox1 = Application.WorksheetFunction.CountIf(Range("test!A2:A21"), ">10")
   
   Me.TextBox2 = Application.WorksheetFunction.CountIf(Range("test!B2:B21"), "<10")
End Sub

Private Sub UserForm_Initialize()
    Call TestCountIf
End Sub

[9KiTTi]

ขอบพระคุณครับอาจารย์ ได้ตรงที่ต้องการแล้วครับ ผมจะนำไปปรับใช้ในงานครับ