การเพิ่ม Function Excel BahtText ใน Access

Post date: Dec 30, 2017 9:54:14 AM

ขั้นตอนการเพิ่ม Function Excel BahtText ใน Access มีดังนี้

เปิดโปรแกรม Access ไปที่ Database Tools>Visual Basic

เลือก Tools>References...

ค้นหา Microsoft Excel 14.0 Object Library (อันนี้แล้วแต่ว่าใช้ Microsoft office อะไร เวอร์ชั่นอาจจะไม่เหมือนกัน)

สร้าง Modules ใหม่ขึ้นมา หรือมีอยู่แล้วก็ไม่ต้องสร่้างใหม่ แต่ให้พิมพ์

Public Function B(A As Variant)

On Error Resume Next

B = Excel.WorksheetFunction.BahtText(A)

End Function

(B หมายถึงชื่อฟังก์ชั่น ซึ่งไม่จำเป็นต้องตั้งเหมือนผมก็ได้ แล้วแต่เลยครับ) แต่เวลาเรียกให้เลือกให้ถูกต้องเท่านั้นเอง

ตัวอย่างการเรียกใช้งานฟังก์ชั่น เช่น B([ตัวเลขที่ต้องต้องการให้แปลเป็นไทย])