การแยกตัวเลขออกจากเซลล์
Posted: Wed Apr 06, 2011 11:36 pm
สวัสดีค่ะ รบกวนขอสูตรในการแยกตัวเลขหน่อยค่ะ
มีหลายขั้นตอนหน่อยครับ
1. ใช้ Excel 4 Macro Function โดยคลิกที่ E6 > ไปที่ Formula > Name Manage > New > ช่อง Name ให้ชื่อว่า Eval > Refers to: คีย์สูตร =EVALUATE($D6) > OK
2. สร้างฟังก์ชั่นใน VBA โดยกดแป้น Alt+11 > เข้าเมนู Insert > Module แล้ว Copy Code ด้านล่างไปวาง
Code: Select all
Function ShowFormula(r As Range) As String
ShowFormula = r.Formula
End Function=SUBSTITUTE(("{"&SUBSTITUTE(showformula(C6),"+",",")&"}"),"=","")
Enter > Copy ลงด้านล่าง
4. ที่ E6 คีย์
=IFERROR(INDEX(eval,COLUMNS($E6:E6)),0)
Enter > Copy ไปด้านขวาและลงด้านล่าง
ไฟล์ตัวอย่างผมทำมาให้แล้วครับ สามารถนำข้อมูลจริงมาวางได้เลย