ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
chatsri999
Member
Posts: 39 Joined: Mon Jun 27, 2011 6:50 pm
#1
Post
by chatsri999 Wed Jun 29, 2011 7:38 pm
เรียน อาจารย์ที่เคารพครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#2
Post
by snasui Wed Jun 29, 2011 9:00 pm
ลองดูตามไฟล์แนบครับ เป็นการใช้ VBA ในการแสดงข้อมูล ซึ่งจะต้องกำหนดให้ Excel ยอมรับการใช้งาน Macro ก่อนครับ
You do not have the required permissions to view the files attached to this post.
godman
Silver
Posts: 643 Joined: Mon Jul 05, 2010 6:18 pm
#3
Post
by godman Wed Jun 29, 2011 10:02 pm
ขอบคุณมากครับ ขอโหลดครับ นี่หละสิ่งที่อยากได้มานาน คือเทคนิคสุดล้ำแบบนี้ จะได้ไม่ต้อง filter หลายๆเงือนไข
chatsri999
Member
Posts: 39 Joined: Mon Jun 27, 2011 6:50 pm
#4
Post
by chatsri999 Thu Jun 30, 2011 8:48 am
ต้องขอโทษครับผมแกะรอย Macro ไม่เป็นครับ ทำยังไงบ้างครับ ขอบคุณมากครับ
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#5
Post
by snasui Thu Jun 30, 2011 9:27 am
ไม่เข้าใจครับ ไฟล์ที่ส่งให้ไม่จำเป็นต้องทำอะไรกับ Macro เนื่องจากเขียนไว้ให้แล้ว สามารถใช้งานตามปกติได้เลยคือคีย์ข้อมูลที่ต้องการค้นหา โปรแกรมก็จะทำการ Filter ข้อมูลมาให้ หากว่าคีย์ข้อมูลแล้วโปรแกรมไม่ทำงานก็ต้องเข้าไปทำการ Enable Macro ก่อน โดยดูตัวอย่างจากที่นี่ครับ
http://www.snasui.com/viewtopic.php?p=2680#p2680
chatsri999
Member
Posts: 39 Joined: Mon Jun 27, 2011 6:50 pm
#6
Post
by chatsri999 Thu Jun 30, 2011 4:40 pm
กราบขอบคุณมากเลยครับ ทำได้แล้วครับ ดีใจมากเลยครับ โอกาสหน้าผมขอปรึกษาอีกนะครับอาจารย์
chatsri999
Member
Posts: 39 Joined: Mon Jun 27, 2011 6:50 pm
#7
Post
by chatsri999 Fri Jul 01, 2011 8:24 am
อาจารย์ครับ ผมมีเรื่องเดือดร้อนอีกจนได้เพราะจะนำไปใช้จริงแล้ว แต่เมื่อเอาไปใช้ ค้นหาได้พักนึง แล้วมันขึ้น Run-time error '1004' เลยครับอย่างที่แนบภาพให้ดูครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#8
Post
by snasui Fri Jul 01, 2011 8:31 am
ปกติการทำตัวอย่าง ควร
เป็นตัวแทน ของข้อมูลหรือรูปแบบที่จะใช้งานจริงครับ บางเซลล์ผมเขียนสูตรไว้ด้วย หากคุณ chatsri999 ลบออกไปหรือวางเซลล์อื่น ๆ ทับสูตรนั้น หรือย้ายสูตรนั้นออกไปก็ทำให้ Code Error ครับ ลองส่งตัวอย่างไฟล์ตามที่จะใช้งาน โดยลบข้อมูลสำคัญออกไปมาอีกครั้งครับ
chatsri999
Member
Posts: 39 Joined: Mon Jun 27, 2011 6:50 pm
#9
Post
by chatsri999 Fri Jul 01, 2011 8:36 am
หรือผมแนบไฟล์ให้ดูดีกว่าครับ
You do not have the required permissions to view the files attached to this post.
chatsri999
Member
Posts: 39 Joined: Mon Jun 27, 2011 6:50 pm
#10
Post
by chatsri999 Fri Jul 01, 2011 8:51 am
ผมกำหนดไปแค่ Range("A4:E300") เองครับ มันยัง Filter อืดมากเลยครับอาจารย์
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#11
Post
by snasui Fri Jul 01, 2011 8:52 am
ผมทดสอบแล้วไม่พบ Error ครับ ไม่ทราบว่าเกิด Error เมื่อคีย์ค่าใด หรือ ทำอย่างไรถึงเกิด Error ครับ
chatsri999
Member
Posts: 39 Joined: Mon Jun 27, 2011 6:50 pm
#12
Post
by chatsri999 Fri Jul 01, 2011 10:17 am
ตอนนั้นมันมีอยู่ประมาณ 100 กว่ารายการครับ แล้วก็ผมก็คีย์ปกติดครับลองค้นประมาณ2-3 ครั้ง กด Delete / Backspace ก็เกิด Error ขึ้นมาเลยครับ
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#13
Post
by snasui Fri Jul 01, 2011 10:20 am
ตอนนี้ยังเป็นอยู่หรือไม่ครับ
ช่วยสังเกตว่าข้อมูลจำนวนเท่าใด คีย์ค่าใดหรือมีการกระทำใดแล้วพบ Error จะได้ช่วยกันทดสอบครับ
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#14
Post
by snasui Fri Jul 01, 2011 10:49 am
chatsri999 wrote: ผมกำหนดไปแค่ Range("A4:E300") เองครับ มันยัง Filter อืดมากเลยครับอาจารย์
เนื่องจากมีการจองพื้นที่ใช้งานไว้จำนวนมาก จึงทำให้โปรแกรมทำงานช้าครับ วิธีการแก้ไขคือ
1. กดแป้น Ctrl+End
สังเกตว่า Cursor วางอยู่ที่ไหน
2.
ลบบรรทัดว่าง หลังจากมีข้อมูลหรือมีสูตรจนกระทั่งถึงบรรทัดที่ตำแหน่ง Cursor วางอยู่ออกไป ในด้านคอลัมน์ก็ให้ลบออกเช่นเดียวกัน จากนั้น Save เพื่อกำหนดเซลล์สุดท้ายเสียใหม่ จะทำให้ไฟล์เล็กลง คำนวณเร็วขึ้นมาก
megatui
Member
Posts: 1 Joined: Thu Jan 03, 2013 1:52 pm
#15
Post
by megatui Thu Jan 03, 2013 3:17 pm
ขอบคุณมากครับอาจารย์
ผมตามหาสูตรนี้มาพักใหญ่แล้วครับ
ซื้อหนังสือไปหลายเล่มแต่ก็ไม่เคยเจอ
ได้เจอเสียทีวันนี้ ขอให้เจริญๆ ครับอาจารย์
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
คำแสดงเจตนา
