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

การแยกตัวเลขออกจากตัวอักษร

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
pongpang
Member
Member
Posts: 242
Joined: Fri Jul 05, 2013 9:35 pm

การแยกตัวเลขออกจากตัวอักษร

#1

Postby pongpang » Thu Oct 06, 2016 8:23 am

เรียน อาจารย์ทุกท่านครับ
ต้องการแยกตัวเลขใน คอลัมน์ A ออกจากตัวอักษร ไว้ในคอลัมน์ B โดยใช้สูตร ครับ
แยกตัวเลขออกจากตัวอักษร.xlsx
You do not have the required permissions to view the files attached to this post.

User avatar
puriwutpokin
Silver
Silver
Posts: 931
Joined: Fri Jan 04, 2013 9:49 pm

Re: การแยกตัวเลขออกจากตัวอักษร

#2

Postby puriwutpokin » Thu Oct 06, 2016 1:36 pm

แก้ไขตัวสีแดงใหม่อีกทีครับ ให้เป็น" =LOOKUP(9.99999999999999E+307,--ID(A1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},A1&0123456789)),ROW(INDIRECT("1:"&LEN(A1)))))
เป็น=LOOKUP(9.99999999999999E+307,--MID(A1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),ROW(INDIRECT("1:"&LEN(A1)))))

pongpang
Member
Member
Posts: 242
Joined: Fri Jul 05, 2013 9:35 pm

Re: การแยกตัวเลขออกจากตัวอักษร

#3

Postby pongpang » Thu Oct 06, 2016 2:30 pm

ขอบคุณครับที่ให้คำแนะนำ แต่ยังไม่ได้ตามต้องการ ปัญหา คือ เมื่อตัวเลขกับตัวพยัญชนะอยู่ระหว่างตัวเลข เช่น 1หนึ่ง2สอง3สาม จะแสดงตัวเลข เฉพาะเลข1 เท่านั้น หรือ ห้าหกเจ็ด567แปดเก้าสิบ8910 จะแสดงเฉพาะ 567 คือกลุ่มแรกเท่านั้นครับ
สรุปว่า แสดงได้เฉพาะตัวเลขตัวแรกหรือกลุ่มแรกเท่านั้น ถ้ามีตัวพยัญชนะคั่นอยู่เลขตัวหลังหรือกลุ่มหลังไม่แสดงครับ
ความต้องการ ต้องการให้แสดงตัวเลขทุกตัวครับ
แยกตัวเลขออกจากตัวอักษร.xlsx
You do not have the required permissions to view the files attached to this post.

User avatar
puriwutpokin
Silver
Silver
Posts: 931
Joined: Fri Jan 04, 2013 9:49 pm

Re: การแยกตัวเลขออกจากตัวอักษร

#4

Postby puriwutpokin » Thu Oct 06, 2016 2:55 pm

ถ้าเอาทุกตัวที่เป็นตัวเลข คงต้องใช้ VB ครับ เขียนหรือค้นหามาก่อนครับ ตามกฏข้อ5 ครับ แล้วเพื่อนๆจะได้ช่วยดูได้ครับ

vichaim
Member
Member
Posts: 31
Joined: Thu Sep 08, 2016 4:15 pm

Re: การแยกตัวเลขออกจากตัวอักษร

#5

Postby vichaim » Thu Oct 06, 2016 5:19 pm

แบบนี้หรือเปล่าครับที่ต้องการ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 22238
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: การแยกตัวเลขออกจากตัวอักษร

#6

Postby snasui » Thu Oct 06, 2016 7:35 pm

pongpang wrote:เรียน อาจารย์ทุกท่านครับ
ต้องการแยกตัวเลขใน คอลัมน์ A ออกจากตัวอักษร ไว้ในคอลัมน์ B โดยใช้สูตร ครับ
แยกตัวเลขออกจากตัวอักษร.xlsx


:D ตัวอย่างสูตรครับ

ที่เซลล์ B1 คีย์

=SUM(MID(A1,SMALL(IF(ISNUMBER(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1)),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1))))),1)*10^(COUNT(ROW(INDIRECT("1:"&COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1)))))+1-ROW(INDIRECT("1:"&COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1)))))/10)

Ctrl+Shift+Enter > Copy ลงด้านล่าง สูตรนี้มีข้อจำกัดคือหากมีเลข 0 อยู่ด้านหน้าจะไม่สามารถนำมาแสดงได้ครับ

pongpang
Member
Member
Posts: 242
Joined: Fri Jul 05, 2013 9:35 pm

Re: การแยกตัวเลขออกจากตัวอักษร

#7

Postby pongpang » Sat Oct 08, 2016 5:12 pm

เรียน อาจารย์ทุกท่านครับ
ขอบคุณมากครับ ใช้ได้แล้วครับ

User avatar
DhitiBank
Gold
Gold
Posts: 1604
Joined: Mon Oct 15, 2012 12:07 am

Re: การแยกตัวเลขออกจากตัวอักษร

#8

Postby DhitiBank » Sat Oct 08, 2016 11:02 pm

snasui wrote:ที่เซลล์ B1 คีย์

=SUM(MID(A1,SMALL(IF(ISNUMBER(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1)),ROW(INDIRECT("1:"&LEN(A1)))),ROW(INDIRECT("1:"&COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1))))),1)*10^(COUNT(ROW(INDIRECT("1:"&COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1)))))+1-ROW(INDIRECT("1:"&COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1)))))/10)

Ctrl+Shift+Enter > Copy ลงด้านล่าง สูตรนี้มีข้อจำกัดคือหากมีเลข 0 อยู่ด้านหน้าจะไม่สามารถนำมาแสดงได้ครับ


:o โอ้ว... มีให้นั่งแกะอีกแล้ว ขอบคุณอาจารย์มากๆ ครับ ปกติใช้วิธีเขียนสูตรแยกเลขออกมาทีละตัวแล้วค่อยเชื่อมกลับเข้าไปใหม่ ตอนนี้ก็ไม่ต้องแล้ว

ขออนุญาตนำมาคิดต่อครับ หากมี 0 นำหน้า ผมเอา "1" มาเชื่อม แล้วใช้ Mid ตัดผลลัพธ์สุดท้ายตั้งแต่ตำแหน่ง 2 เป็นต้นไปครับ

=MID(SUM(MID("1"&A1,SMALL(IF(ISNUMBER(-MID("1"&A1,ROW(INDIRECT("1:"&LEN("1"&A1))),1)),ROW(INDIRECT("1:"&LEN("1"&A1)))),ROW(INDIRECT("1:"&COUNT(-MID("1"&A1,ROW(INDIRECT("1:"&LEN("1"&A1))),1))))),1)*10^(COUNT(-MID("1"&A1,ROW(INDIRECT("1:"&LEN("1"&A1))),1))-ROW(INDIRECT("1:"&COUNT(-MID("1"&A1,ROW(INDIRECT("1:"&LEN("1"&A1))),1)))))),2,255)

User avatar
snasui
Site Admin
Site Admin
Posts: 22238
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: การแยกตัวเลขออกจากตัวอักษร

#9

Postby snasui » Sat Oct 08, 2016 11:17 pm

:thup: ผมเขียนห้วนไปหน่อยครับ

ผมหมายถึงว่าเมื่อแปลงให้เป็น Number มันจะตัดศูนย์ด้านหน้าทิ้งไป ซึ่งเป็นข้อจำกัดพื้นฐานของตัวเลขแบบ Text ที่ถูกแปลงไปเป็น Number ครับ :mrgreen:

กรณีต้องการตัวเลขแบบ Text สามารถเชื่อม 0 เข้าไปก่อนจำนวนหนึ่งมาช่วยก็เป็นอีกทางเลือกครับ สูตรก็จะอยู่ใน Form ตามด้านล่างครับ

=Right(Rept(0,15)&OldExtractNumberFromText_formula,COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1))

User avatar
DhitiBank
Gold
Gold
Posts: 1604
Joined: Mon Oct 15, 2012 12:07 am

Re: การแยกตัวเลขออกจากตัวอักษร

#10

Postby DhitiBank » Sun Oct 09, 2016 10:40 pm

snasui wrote:กรณีต้องการตัวเลขแบบ Text สามารถเชื่อม 0 เข้าไปก่อนจำนวนหนึ่งมาช่วยก็เป็นอีกทางเลือกครับ สูตรก็จะอยู่ใน Form ตามด้านล่างครับ

=Right(Rept(0,15)&OldExtractNumberFromText_formula,COUNT(--MID($A1,ROW(INDIRECT("1:"&LEN(A1))),1))


:thup: :thup: ขอบคุณมากๆ เลยครับ

หาก Excel มีฟังก์ชันสำเร็จที่เชื่อมอักขระที่ได้จากการตัดแบบอาร์เรย์ด้วยคงสะดวกขึ้นมากๆ เลยนะครับ


Return to “Excel”

Who is online

Users browsing this forum: No registered users and 29 guests