แม้ Excel จะมีฟังก์ชั่นสำหรับการใช้งานมากมาย ซึ่ง ณ ปัจจุบันรวม ๆ แล้วเกิน 4 ร้อยฟังก์ชั่น แต่ก็ยังไม่เพียงพอแก่การใช้ในบางงาน หรือบางฟังก์ชั่นเริ่มนำมาใช้ใน Version ใหม่ ๆ ทำให้ผู้ใช้งาน Excel Version เก่า ๆ ต้องเขียนฟังก์ชั่นขึ้นมาใช้เองเพื่อให้สะดวกต่อการทำงาน ?
Video ด้านล่างนี้สาธิตการเขียนฟังก์ชั่นขึ้นมาใช้เองด้วย VBA เป็นการนำข้อความมาเชื่อมต่อกันคั่นด้วยอักขระที่ผู้ใช้งานสามารถกำหนดได้เอง หรือหากผู้ใช้งานไม่กำหนดอักขระที่จะใช้ในการเชื่อมข้อความ โปรแกรมก็จะเชื่อมข้อความเข้าด้วยกันโดยคั่นด้วยอักขระตั้งต้นที่กำหนดไว้ โดยมีตัวอย่าง Code ตามด้านล่างครับ
Function JoinString(rng As Range, Optional t As String = ",")
Dim r As Range, x As String
For Each r In rng
If r.Value <> "" Then
x = x & t & r.Value
End If
Next r
JoinString = Mid(x, 2)
End Function
เราสามารถนำฟังก์ชั่นนี้ไปใช้ใน Worksheet ด้วยการเขียนฟังก์ชั่นและอักขระที่จะใช้เชื่อมเป็นเช่น
=JoinString(A1:B10,”@”)
เป็นการเชื่อม A1:B10 ที่ไม่เป็นเซลล์ว่างเข้าด้วยกันโดยคั่นด้วยเครื่องหมาย @