Text Functions

Text Functions คือกลุ่มฟังก์ชั่นที่ใช้ในการจัดการข้อความ เช่นการตัดคำ การนับ การเปลี่ยนแทนค่าเดิมเป็นค่าใหม่ การนับจำนวนอักขระ การแสดงเป็นอักษรตัวใหญ่ แสดงเป็นอักษรตัวเล็ก การ Clean หรือลบอักขระที่เกินจำเป็นเช่นค่าที่ไม่สามารถแสดงทาง เครื่องพิมพ์ทิ้งไป เป็นต้น ซึ่งเป็นประโยชน์อย่างมากกับการจัดการข้อมูลให้เป็นไปตามรูปแบบ ตามค่าที่ต้องการ

Video ด้านล่างนี้อธิบายความหมายและสาธิตการใช้งานฟังก์ชั่นในหมวด Text ซึ่งเป็นฟังก์ชั่นที่ใช้บ่อยครั้งในการทำงานกับ Excel จึงควรศึกษาให้เข้าใจ ใช้ให้เป็น ประโยชน์ที่สำคัญยิ่งอีกประการคือ ฟังก์ชั่นเหล่านี้จะเป็นพื้นฐานในการประยุกต์ใช้งานที่ซับซ้อนในลำดับสูง ๆ ขึ้นไป

Video แสดงการใช้งาน Text Functions

สอบถามปัญหาการใช้งาน Excel และ VBA ได้ที่ snasui.com

ฟังก์ชันการเชื่อมข้อมูล

ปกติการเชื่อมข้อมูลเราสามารถใช้เครื่องหมาย & หรือฟังก์ชัน Concatenate มาช่วยได้ ยกตัวอย่างเช่น ต้องการเชื่อมข้อมูลที่อยู่ในช่วงเซลล์ A1:A5 เราสามารถเขียนสูตรได้ดังต่อไปนี้

1. =A1&A2&A3&A4&A5
2. =Concatenate(A1,A2,A3,A4,A5)

กรณีที่มีเซลล์จำนวนมากหากจะต้องเชื่อมกันในลักษณะนี้จะเกิดความไม่สะดวก ผมจึงเขียนเป็น Function VBA สำหรับการใช้งานดังกล่าวชื่อว่า Mconc โดยสามารถกำหนดตัวคั่นข้อความได้ด้วย ยกตัวอย่างเช่นหากต้องการเชื่อมข้อความในช่วงเซลล์ A1:A5 แล้วให้แสดงเครื่องหมาย / คั่นระหว่างข้อความ สามารถใช้สูตรได้ดังนี้

=Mconc(A1:A5,”/”)

ซึ่งเทียบเท่ากับ

=A1&”/”&A2&”/”&A3&”/”&A4&”/”&A5

โดย Code VBA ของฟังก์ชั่น Mconc เป็นตามด้านล่างครับ

Function MCONC$(range As range, Optional s As String)
    Dim r As range
    Dim i As Integer
    Dim a() As Variant
    For Each r In range
        If r <> "" Then
            i = i + 1
            ReDim Preserve a(i - 1)
            a(i - 1) = r
        End If
    Next r
    MCONC = Join(a, s)
End Function

จัดรูปแบบตัวเลขในข้อความที่นำมาเชื่อมกัน

ปกติแล้วเราสามารถนำข้อความมาเชื่อมกันได้ด้วยเครื่องหมาย & หรือฟังก์ชั่น Concatenate แต่หากเชื่อมข้อความกับตัวเลขแล้ว ข้อความที่เป็นตัวเลขจะไม่มีคอมม่าคั่น แถมหากมีจุดทศนิยมด้วย จะแสดงจุดทศนิยมทั้งหมดเท่าที่มี

สมมุติ

• A1 = ยอดขายต่อหน่วย
• B1 = 2,030.648395

ที่เซลล์ใด ๆ หากเราเชื่อมข้อความ A1 และ B1 เข้าด้วยกันโดยใช้สูตร

=A1&" เท่ากับ "&B1&" บาท"

จะแสดงผลเป็น ยอดขายต่อหน่วย เท่ากับ 2030.648395 บาท

ซึ่งมีทศนิยมเกินความจำเป็น นอกจากนี้ยังไม่มีคอมม่าคั่นในตำแหน่งหลักพัน

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

=A1&" เท่ากับ "&Text(B1,"#,##0.00")&" บาท" หรือ

=A1&" เท่ากับ "&Fixed(B1,2)&" บาท"

จะแสดงผลลัพธ์เป็น ยอดขายต่อหน่วย เท่ากับ 2,030.65 บาท

ซึ่งมีคอมม่าคั่นสำหรับหลักพันและปัดเศษให้เป็น 2 ตำแหน่ง