Snasui Excel Forum

เรียน อาจารย์ที่เคารพครับ

ผมอยากได้สูตรการค้นหา โดยพิมพ์ตัวอักษรหรือบางคำแล้วแสดงผลออกมาโดยมีๆฟล์แนบมาอธิบายครับ

ขอบคุณมากครับ

ลองดูตามไฟล์แนบครับ เป็นการใช้ VBA ในการแสดงข้อมูล ซึ่งจะต้องกำหนดให้ Excel ยอมรับการใช้งาน Macro ก่อนครับ

ขอบคุณมากครับ ขอโหลดครับ นี่หละสิ่งที่อยากได้มานาน คือเทคนิคสุดล้ำแบบนี้ จะได้ไม่ต้อง filter หลายๆเงือนไข

ต้องขอโทษครับผมแกะรอย Macro ไม่เป็นครับ ทำยังไงบ้างครับ ขอบคุณมากครับ

ไม่เข้าใจครับ ไฟล์ที่ส่งให้ไม่จำเป็นต้องทำอะไรกับ Macro เนื่องจากเขียนไว้ให้แล้ว สามารถใช้งานตามปกติได้เลยคือคีย์ข้อมูลที่ต้องการค้นหา โปรแกรมก็จะทำการ Filter ข้อมูลมาให้ หากว่าคีย์ข้อมูลแล้วโปรแกรมไม่ทำงานก็ต้องเข้าไปทำการ Enable Macro ก่อน โดยดูตัวอย่างจากที่นี่ครับ http://www.snasui.com/viewtopic.php?p=2680#p2680

กราบขอบคุณมากเลยครับ ทำได้แล้วครับ ดีใจมากเลยครับ โอกาสหน้าผมขอปรึกษาอีกนะครับอาจารย์

อาจารย์ครับ ผมมีเรื่องเดือดร้อนอีกจนได้เพราะจะนำไปใช้จริงแล้ว แต่เมื่อเอาไปใช้ ค้นหาได้พักนึง แล้วมันขึ้น Run-time error '1004' เลยครับอย่างที่แนบภาพให้ดูครับ

ปกติการทำตัวอย่าง ควรเป็นตัวแทนของข้อมูลหรือรูปแบบที่จะใช้งานจริงครับ บางเซลล์ผมเขียนสูตรไว้ด้วย หากคุณ chatsri999 ลบออกไปหรือวางเซลล์อื่น ๆ ทับสูตรนั้น หรือย้ายสูตรนั้นออกไปก็ทำให้ Code Error ครับ ลองส่งตัวอย่างไฟล์ตามที่จะใช้งาน โดยลบข้อมูลสำคัญออกไปมาอีกครั้งครับ

หรือผมแนบไฟล์ให้ดูดีกว่าครับ

ผมกำหนดไปแค่ Range("A4:E300") เองครับ มันยัง Filter อืดมากเลยครับอาจารย์

ผมทดสอบแล้วไม่พบ Error ครับ ไม่ทราบว่าเกิด Error เมื่อคีย์ค่าใด หรือ ทำอย่างไรถึงเกิด Error ครับ

ตอนนั้นมันมีอยู่ประมาณ 100 กว่ารายการครับ แล้วก็ผมก็คีย์ปกติดครับลองค้นประมาณ2-3 ครั้ง กด Delete / Backspace ก็เกิด Error ขึ้นมาเลยครับ

ตอนนี้ยังเป็นอยู่หรือไม่ครับ ช่วยสังเกตว่าข้อมูลจำนวนเท่าใด คีย์ค่าใดหรือมีการกระทำใดแล้วพบ Error จะได้ช่วยกันทดสอบครับ

chatsri999 wrote:ผมกำหนดไปแค่ Range("A4:E300") เองครับ มันยัง Filter อืดมากเลยครับอาจารย์

เนื่องจากมีการจองพื้นที่ใช้งานไว้จำนวนมาก จึงทำให้โปรแกรมทำงานช้าครับ วิธีการแก้ไขคือ

1. กดแป้น Ctrl+End สังเกตว่า Cursor วางอยู่ที่ไหน
2. ลบบรรทัดว่างหลังจากมีข้อมูลหรือมีสูตรจนกระทั่งถึงบรรทัดที่ตำแหน่ง Cursor วางอยู่ออกไป ในด้านคอลัมน์ก็ให้ลบออกเช่นเดียวกัน จากนั้น Save เพื่อกำหนดเซลล์สุดท้ายเสียใหม่ จะทำให้ไฟล์เล็กลง คำนวณเร็วขึ้นมาก

ขอบคุณมากครับอาจารย์
ผมตามหาสูตรนี้มาพักใหญ่แล้วครับ
ซื้อหนังสือไปหลายเล่มแต่ก็ไม่เคยเจอ
ได้เจอเสียทีวันนี้ ขอให้เจริญๆ ครับอาจารย์