EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ - กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
- การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
- สมัครสมาชิกดูขั้นตอนได้ที่ สมัครสมาชิก
- Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้
- การ Login ผ่าน Facebook ดูวิธีที่ Login ผ่าน Facebook
- ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ Reset รหัสผ่าน
- สมัครสมาชิกดูขั้นตอนได้ที่
- มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ ติดต่อผู้ดูแลระบบ
- กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ ตั้งค่าส่วนตัว
- การตั้งและตอบกระทู้ดูได้ที่ วิธีการตั้งและตอบกระทู้
- การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ จัดรูปแบบตัวอักษร
- กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ กำหนดขนาดตัวอักษรใน Browser
ดึงข้อมูลแบบยกทั้งชุด
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]เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) - กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
ดึงข้อมูลแบบยกทั้งชุด
รบกวนหน่อยนะครับ.....คือว่ามี่ข้อมูลอยู่ใน sheet2 คือ ชื่อแผนก ชื่อแต่ละคนในแผนกนั้นๆ แล้วก็เบอร์ติดต่อภายในของแต่ละคน ....ต้องการ search หาข้อมูลใน sheet1 โดยพิมพ์แค่ชื่อแผนก แล้วข้อมูลของแต่ละคนมาโชว์ทั้งหมดเลย ได้มั้ยครับ
You do not have the required permissions to view the files attached to this post.
-
snasui
- Site Admin
- Posts: 30920
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: ดึงข้อมูลแบบยกทั้งชุด
ลองตามนี้ครับ
1. ที่ Sheet2 เซลล์ D2 คีย์ 0 เพื่อเป็นตัวตั้งต้นให้กับข้อ 2
2. ที่ Sheet2 เซลล์ D3 คีย์เพื่อให้ลำดับข้อมูลที่เข้าเงื่อนไข
=IF(AND(A3="",B3<>"",LOOKUP(CHAR(255),A$2:A3)=Sheet1!$B$3),LOOKUP(9.99999999999999E+307,D$2:D2)+1,"")
Enter > Copy ลงด้านล่าง
3. ที่ Sheet1 เซลล์ C1 คีย์เพื่อนับว่าพบข้อมูลทั้งหมดจำนวนเท่าไร
=LOOKUP(9.99999999999999E+307,Sheet2!D:D)
Enter
4. ที่ Sheet1 เซลล์ A6 คีย์เพื่อให้ List รายการที่พบ
=IF(ROWS(A$6:A6)>$C$1,"",LOOKUP(ROWS(A$6:A6),Sheet2!$D$3:$D$43,Sheet2!B$3:B$43))
Enter > Copy ลงด้านล่าง
5. ที่ Sheet1 เซลล์ B6 คีย์เพื่อแสดงแผนกหากว่าคอลัมน์ข้างหน้าไม่เป็นเซลล์ว่าง
=IF(LEN(A6),$B$3,"")
Enter > Copy ลงด้านล่าง
6. ที่ Sheet1 เซลล์ C6 คีย์เพื่อ List รายการที่พบต่อจากข้อ 4
=IF(ROWS(C$6:C6)>$C$1,"",LOOKUP(ROWS(C$6:C6),Sheet2!$D$3:$D$43,Sheet2!C$3:C$43))
Enter > Copy ลงด้านล่าง
ดูไฟล์แนบประกอบครับ
1. ที่ Sheet2 เซลล์ D2 คีย์ 0 เพื่อเป็นตัวตั้งต้นให้กับข้อ 2
2. ที่ Sheet2 เซลล์ D3 คีย์เพื่อให้ลำดับข้อมูลที่เข้าเงื่อนไข
=IF(AND(A3="",B3<>"",LOOKUP(CHAR(255),A$2:A3)=Sheet1!$B$3),LOOKUP(9.99999999999999E+307,D$2:D2)+1,"")
Enter > Copy ลงด้านล่าง
3. ที่ Sheet1 เซลล์ C1 คีย์เพื่อนับว่าพบข้อมูลทั้งหมดจำนวนเท่าไร
=LOOKUP(9.99999999999999E+307,Sheet2!D:D)
Enter
4. ที่ Sheet1 เซลล์ A6 คีย์เพื่อให้ List รายการที่พบ
=IF(ROWS(A$6:A6)>$C$1,"",LOOKUP(ROWS(A$6:A6),Sheet2!$D$3:$D$43,Sheet2!B$3:B$43))
Enter > Copy ลงด้านล่าง
5. ที่ Sheet1 เซลล์ B6 คีย์เพื่อแสดงแผนกหากว่าคอลัมน์ข้างหน้าไม่เป็นเซลล์ว่าง
=IF(LEN(A6),$B$3,"")
Enter > Copy ลงด้านล่าง
6. ที่ Sheet1 เซลล์ C6 คีย์เพื่อ List รายการที่พบต่อจากข้อ 4
=IF(ROWS(C$6:C6)>$C$1,"",LOOKUP(ROWS(C$6:C6),Sheet2!$D$3:$D$43,Sheet2!C$3:C$43))
Enter > Copy ลงด้านล่าง
ดูไฟล์แนบประกอบครับ
You do not have the required permissions to view the files attached to this post.
Re: ดึงข้อมูลแบบยกทั้งชุด
ขอบคุณมากครับ.....หัวหน้าอยากให้เพิ่มข้อมูลด้านขวาอีกครับ รบกวนอีกครั้งนะครับ ตามเอกสารแนบ
ขอบพระคุณอีกครั้งครับ
ขอบพระคุณอีกครั้งครับ
You do not have the required permissions to view the files attached to this post.
-
snasui
- Site Admin
- Posts: 30920
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: ดึงข้อมูลแบบยกทั้งชุด
ลองทำตามตัวอย่างที่ให้ไปก่อนครับ ติดตรงไหนถามมาได้เรื่อย ๆ ครับ เพราะดูแล้วอยู่ในฟอร์มเดียวกัน เพียงแต่เพิ่มคอลัมน์เ้ข้ามาเท่านั้นครับลองแทรกคอลัมน์ใน Sheet2 ในไฟล์ที่ให้ไปให้เท่ากับจำนวนข้อมูลที่ใช้จริง ใน Sheet1 แค่ Copy สูตรใน คอลัมน์ C ไปด้านขวา เท่านั้นครับ
Re: ดึงข้อมูลแบบยกทั้งชุด
ขอบคุณมากครับ เดี๋ยวลองดูนะครับ
Re: ดึงข้อมูลแบบยกทั้งชุด
ลองดูให้หน่อยครับ มัผิดพลาดตรงไหนครับ ข้อมูลไม่มาเลย....ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
-
snasui
- Site Admin
- Posts: 30920
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: ดึงข้อมูลแบบยกทั้งชุด
ผิดนิดเดียวเท่านั้นครับสูตรที่ Sheet2 เซลล์ G3 เดิม
=IF(AND(A3="",B3<>"",LOOKUP(CHAR(255),A$2:A3)=Sheet2!$B$3),LOOKUP(9.99999999999999E+307,G$2:G2)+1,"")
แก้เป็น
=IF(AND(A3="",B3<>"",LOOKUP(CHAR(255),A$2:A3)=Sheet1!$B$3),LOOKUP(9.99999999999999E+307,G$2:G2)+1,"")
Re: ดึงข้อมูลแบบยกทั้งชุด
ได้แล้วครับ.........ขอบคุณมากๆเลยครับ
Re: ดึงข้อมูลแบบยกทั้งชุด
รบกวนอีกครั้งครับ.....คือว่าอยากเพิ่มขนาดตัวอักษรใน drop-down list โดยที่ไม่ได้ไปขยายที่ worksheet ไม่ทราบว่าทำได้มั้ยครับ......ขอบคุณครับ
-
snasui
- Site Admin
- Posts: 30920
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: ดึงข้อมูลแบบยกทั้งชุด
ไม่สามารถทำได้ครับตัว Drop-down List จะมีขนาดตามการ Zoom เพิ่มลดไม่สามารถกำหนดเองได้ครับ
Re: ดึงข้อมูลแบบยกทั้งชุด
ขอบคุณครับผม