:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

รบกวนแยกกลุ่มตามชื่อหรือตามอักษรที่กำหนด

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Torisan2015
Member
Member
Posts: 63
Joined: Tue Mar 01, 2016 9:49 am
Excel Ver: 2010,365

รบกวนแยกกลุ่มตามชื่อหรือตามอักษรที่กำหนด

#1

Post by Torisan2015 »

หากอยากจะนำข้อมูลรวมจากคอลั่ม A( ชีทข้อมูลรวม ) ไปแยกออกเป็นกลุ่มตามชีท ที่ชื่อว่า
Sheet3 (เป็นเลขที่ไม่มีอักษร)
Sheet A (เป็นเลขที่มีอักษร "A" )
Sheet C (เป็นเลขที่มีอักษร "C ")
Sheet A (เป็นเลขที่มีอักษร "A" )
Sheet G (เป็นเลขที่มีอักษร "G ")
Sheet T (เป็นเลขที่มีอักษร "T" )
Sheet p (เป็นเลขที่มีอักษร "p ")
ตามลำดับจะมีสูตรไหนที่สามารถนำข้อมูลไปวางได้ครับ
ทั้งนี้ได้แนบไฟล์ตัวอย่างมาด้วยครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30744
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: รบกวนแยกกลุ่มตามชื่อหรือตามอักษรที่กำหนด

#2

Post by snasui »

:D ตัวอย่างสูตรครับ
  1. กำหนดรูปแบบเซลล์ของ A2 ในแต่ละชีตที่จะเขียนสูตรให้เป็น General เสียก่อน ไม่เช่นนั้นเมื่อคีย์สูตรไปแล้วจะเป็น Text ไม่ใช่ผลลัพธ์ของสูตร
  2. ที่ Sheet3 เซลล์ A2 คีย์สูตร
    =IFERROR(INDEX(ข้อมูลรวม!$A$2:$A$339,SMALL(IF(ISNUMBER(SUBSTITUTE(ข้อมูลรวม!$A$2:$A$339,"-","")+0),ROW(ข้อมูลรวม!$A$2:$A$339)-ROW(ข้อมูลรวม!$A$2)+1),ROWS(A$2:A2))),"")
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  3. ที่ Sheet A เซลล์ A2 คีย์สูตร
    =IFERROR(INDEX(ข้อมูลรวม!$A$2:$A$339,SMALL(IF(ISNUMBER(SEARCH(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31),ข้อมูลรวม!$A$2:$A$339)),ROW(ข้อมูลรวม!$A$2:$A$339)-ROW(ข้อมูลรวม!$A$2)+1),ROWS(A$2:A2))),"")
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  4. คัดลอกสูตรในข้อ 3 ไปใช้กับชีตอื่น ๆ
Torisan2015
Member
Member
Posts: 63
Joined: Tue Mar 01, 2016 9:49 am
Excel Ver: 2010,365

Re: รบกวนแยกกลุ่มตามชื่อหรือตามอักษรที่กำหนด

#3

Post by Torisan2015 »

เรียนอาจารย์ จากสูตรที่อาจารย์ให้มา สามารถทำได้ครับ แต่จะมีจุดสังเกตุตรงไหนบ้างครับที่เราใช้ในการแบ่งกลุ่มตามอักษรที่กำหนดข้างต้น เพราะสูตรที่อาจารย์ให้มาผมไม่สามารถจับจุด หรือสามารถแยกออกเลยว่า =IFERROR(INDEX(ข้อมูลรวม!$A$2:$A$339,SMALL(IF(ISNUMBER(SEARCH(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31),ข้อมูลรวม!$A$2:$A$339)),ROW(ข้อมูลรวม!$A$2:$A$339)-ROW(ข้อมูลรวม!$A$2)+1),ROWS(A$2:A2))),"")

สูตรนี้จะเปลี่ยนยังไงในการนำไปดัดแปลงใช้งานหากมีข้อมูลกลุ่มใหม่หรืออักษรใหม่ๆเพิ่มเข้ามาครับ

รบกวนอาจารย์ด้วยครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30744
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: รบกวนแยกกลุ่มตามชื่อหรือตามอักษรที่กำหนด

#4

Post by snasui »

:D ผมจะบอกหลักการนะครับ ในรายละเอียดต้องอาศัยการทำความเข้าใจและแกะสูตรไปทีละฟังก์ชั่นครับ

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

สูตรที่สองเราจำเป็นต้องทราบว่าชีตปัจจุบันที่เขียนสูตรคือชีตใด ฟังก์ชั่นที่จะใช้สกัดเอาค่าชีตปัจจุบันคือ MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31) โดยเราจะใช้ชื่อชีตปัจจุบันไปหาจากค่าต้นทางด้วยฟังก์ชั่น Search หากพบจะเป็นตัวเลขหรือ Number จะเห็นว่าเราใช้ Isnumber ครอบเพื่อตรวจสอบว่าเป็น Number หรือไม่ หากเป็น Number ก็ให้แสดงรายการทั้งหมดที่พบครับ
Torisan2015
Member
Member
Posts: 63
Joined: Tue Mar 01, 2016 9:49 am
Excel Ver: 2010,365

Re: รบกวนแยกกลุ่มตามชื่อหรือตามอักษรที่กำหนด

#5

Post by Torisan2015 »

:D เรียนอาจารย์ครับ :D
ก่อนอื่นต้องขอบคุณอาจารย์นะครับที่ทั้งคอยช่วยเหลือ และให้ความรู้ครับ
ลองมานั่งดัดแปลงเพื่อใช้กับงานจริงสามารถใช้งานได้จริงครับ
ต้องขอบคุณอาจารย์อีกครั้งครับ
จากนี้ไปสำหรับตัวผมยังต้องศึกษาอีกเยอะอีกทั้งยังแอบมาดูกระทู้จากท่านอื่นด้วยเพื่อเก็บความรู้ไปด้วยครับ
:cp: :cp: :cp: :cp: :cp: :cp: :cp: :cp:
Post Reply