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]เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) - กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
-
ekkaluk_suk
- Member
- Posts: 126
- Joined: Mon Jul 19, 2010 7:58 am
ต้องการตัดตัวเลขและอักขระออกจากเซล
ในเซลเท่ากับ 50-ABCD115.6 ต้องการใช้สูตรตัดตัวเลขกับอักขระออก เพื่อให้ได้ผลลัพธ์ ABCD ไม่ทราบว่าต้องใช้สูตรอย่างไรครับ
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
ไม่ทราบว่าใช้ Excel เวอร์ชันอะไรครับ หากเป็น 2007 ขึ้นไป (ไม่แน่ใจว่าจะใช้ได้ไหม เพราะผมใช้ 2010 ครับ)
สมมติว่าข้อความนั้นอยู่ในเซลล์ A1
ที่ B1 คีย์
=CONCATENATE(C1,D1,E1,F1,G1,H1,I1,J1,K1,L1,M1)
ที่ C1 คีย์
=IFERROR(INDEX(MID($A$1,ROW(INDIRECT("1:"&LEN($A$1))),1),SMALL(IF(CODE(MID($A$1,ROW(INDIRECT("1:"&LEN($A$1))),1))>64,IF(CODE(MID($A$1,ROW(INDIRECT("1:"&LEN($A$1))),1))<91,ROW(INDIRECT("1:"&LEN($A$1))))),COLUMNS($C1:C1))),"")
กด Ctrl+Shift ค้างไว้ แล้ว Enter -> คัดลอกไปทางขวาเรื่อยๆ จนเห็นว่าสูตรแสดงค่าว่างๆ ครับ
สมมติว่าข้อความนั้นอยู่ในเซลล์ A1
ที่ B1 คีย์
=CONCATENATE(C1,D1,E1,F1,G1,H1,I1,J1,K1,L1,M1)
ที่ C1 คีย์
=IFERROR(INDEX(MID($A$1,ROW(INDIRECT("1:"&LEN($A$1))),1),SMALL(IF(CODE(MID($A$1,ROW(INDIRECT("1:"&LEN($A$1))),1))>64,IF(CODE(MID($A$1,ROW(INDIRECT("1:"&LEN($A$1))),1))<91,ROW(INDIRECT("1:"&LEN($A$1))))),COLUMNS($C1:C1))),"")
กด Ctrl+Shift ค้างไว้ แล้ว Enter -> คัดลอกไปทางขวาเรื่อยๆ จนเห็นว่าสูตรแสดงค่าว่างๆ ครับ
-
ekkaluk_suk
- Member
- Posts: 126
- Joined: Mon Jul 19, 2010 7:58 am
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
เด่วนะคัรบ อาจจะไม่ตรงความต้องการ คือ มันเป็น ค่าแบบนี่อ่ะครับ 30CARTON116 โดยต้องการให้แสดงผลเป็น คำว่า CARTON ออกมาน่ะครับ
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
คำว่า "อ่ะ" "เด่ว" เป็นภาษาแชท ซึ่งผิดกฎการใช้บอร์ดข้อ 1 ด้านบนครับ โปรดใช้ภาษาเขียนให้ถูกต้องครับ
หากยังไม่ได้คำตอบ รบกวนแนบไฟล์ที่ได้ลองทำแล้วมาดูครับ จะได้แนะนำได้ตรงจุด เพราะผมลองทำดูแล้ว ได้ตามรูปครับ
ตำแหน่งที่ 1 คือ คอลัมน์ช่วย (ถัดไปทางขวาคือสูตรหมดเลย)
ตำแหน่งที่ 2 คือ คำตอบครับ
หากยังไม่ได้คำตอบ รบกวนแนบไฟล์ที่ได้ลองทำแล้วมาดูครับ จะได้แนะนำได้ตรงจุด เพราะผมลองทำดูแล้ว ได้ตามรูปครับ
ตำแหน่งที่ 1 คือ คอลัมน์ช่วย (ถัดไปทางขวาคือสูตรหมดเลย)
ตำแหน่งที่ 2 คือ คำตอบครับ
You do not have the required permissions to view the files attached to this post.
-
ekkaluk_suk
- Member
- Posts: 126
- Joined: Mon Jul 19, 2010 7:58 am
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
ลองทดสอบแล้ว ค่าไม่แสดงครับ
You do not have the required permissions to view the files attached to this post.
-
snasui
- Site Admin
- Posts: 30919
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
อีกสูตรครับC1 คีย์
=IFERROR(INDEX(MID($A1,ROW(INDIRECT("1:"&LEN($A$1))),1),SMALL(IF(CODE(LOWER(MID($A1,ROW(INDIRECT("1:"&LEN($A$1))),1)))>96,ROW(INDIRECT("1:"&LEN($A$1)))),COLUMNS($C1:C1))),"")
Ctrl+Shift+Enter > Copy ไปทางขวา
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
ขอบพระคุณอาจารย์ครับ อักษรภาษาอังกฤษตัวเล็ก ใหญ่ มี code ไม่เท่ากันนี่เอง
-
ekkaluk_suk
- Member
- Posts: 126
- Joined: Mon Jul 19, 2010 7:58 am
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
ขอบคุณคัรบ ได้แล้วครับ แต่จะสอบถามเพิ่มเติมหน่อย มีแบบไม่ต้องสร้าง cell อ้างอิงหรือไม่ครับ คือให้แสดงที่ cell ฺB1 ไปเลย โดยไม่ต้องใช้ cell ช่วย
-
snasui
- Site Admin
- Posts: 30919
- Joined: Sun Jan 24, 2010 12:33 pm
- Location: Songkhla, Thailand
- Excel Ver: 2010, 365
- Contact:
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
ทำได้ด้วย VBA ครับ 
แต่หากว่าค่าใน A1 มีรูปแบบเหมือนกันคือตัวเลขนำตามด้วยชุดตัวอักษรแล้วปิดท้ายด้วยชุดตัวเลขเสมอ สามารถใช้สูตรมาช่วยได้ครับ เข่น
=MID(A1,1+LEN(LOOKUP(9.99999999999999E+307,--MID(A1,MIN(SEARCH({0,1,2,3,4,5,7,8,9},A1&"01234567890"),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&LEN(A1)))))),LEN(LEFT(A1,LEN(A1)-MATCH(9.99999999999999E+307,--MID(A1,LEN(A1)-ROW(INDIRECT("1:"&LEN(A1)))+1,ROW(INDIRECT("1:"&LEN(A1)))),1)))-LEN(LOOKUP(9.99999999999999E+307,--MID(A1,MIN(SEARCH({0,1,2,3,4,5,7,8,9},A1&"01234567890"),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&LEN(A1)))))))
Ctrl+Shift+Enter
-
ekkaluk_suk
- Member
- Posts: 126
- Joined: Mon Jul 19, 2010 7:58 am
Re: ต้องการตัดตัวเลขและอักขระออกจากเซล
สูตรล่าสุด OK เลยครับ แต่ขอลองก่อนว่าถ้าเจออักขระ จะเอามาแสดงด้วยหรือไม่ คือผลลัพธ์ไม่ต้องการให้แสดงอักขระ