Snasui Excel Forum

อยากให้ดึงข้อมูลจากSheetนึ่งมาแสดงที่ Form VBA ค่ะ แต่ลองเขียนCode แล้วมัน debug ค่ะ

กรุณาอธิบายว่าต้องการจะดึงข้อมูลด้วยเงื่อนไขใด แสดงตัวอย่างคำตอบที่ต้องการมาด้วยจะได้สะดวกในการทำความเข้าใจครับ

ต้องการดึงข้อมูลด้วย Filter จากชีทTR ให้แสดงใน ListBox ค่ะ

Code ที่ใช้คือ Code ใด อยู่ที่ Module ใด เขียนไว้ว่าอย่างไร ติดขัดที่บรรทัดใด

ใช้ AutoFilter ค่ะ code อยู่ที่ Modules DMCC code อยู่ที่ปุ่ม Search ค่ะ เวลาคลิ๊กที่ปุ่ม search แล้วข้อมูลไม่แสดงในList Box ค่ะ

บรรทัดนี้ต้องการจะทำอะไรครับ Application.WorksheetFunction.CountIf(TR.Range("B" & 2, "H" & j), TR.Cells(i, j))

คำสั่ง TR.Range ไม่สามารถทำงานได้ โปรแกรมจะไม่รู้จักว่า TR คือชื่อชีต จะต้องเขียนเป็น Worksheets("TR").Range คือระบุว่ามันเป็น Worksheet ถึงจะทำงานได้และต้องเปลี่ยนในทุกตำแหน่ง ไม่ใช่เฉพาะเท่าที่ผมยกมาครับ

หรือจะใช้ Sheets("TR").Range ก็ได้เช่นกัน Code นี้จะกินขอบเขตกว้างกว่า (รวมถึง Macro Sheet, Chart Sheet)

ขอบคุณค่ะ เดี๋ยวหนูลองแก้ไขค่ะ