Numtoengtext เปลี่ยนตัวเลข เป็นตัวอักษรภาษาอังกฤษ excel

ใครทราบวิธีแปลงตัวเลขเป็นภาษาอังกฤษได้บ้าง
โดยปกติแล้ว Microsoft Excel สามารถแปลงตัวเลขเป็นตัวอักษรได้โดยการใช้ฟังก์ชั่นที่มีใน Excel ชื่อว่า BAHTTEX() แต่สำหรับภาษาอังกฤษกลับไม่มี ก็ไม่ทราบเหมือนกันว่าทำไม Microsoft ไม่ได้เพิ่มความสามารถนี้.. แล้วยังงี้ User อย่างเราๆ จะทำอย่างไร

ทำความรู้จัก Add-Ins ของ Microsoft Excel
เพื่อเพิ่มศักยภาพของโปรแกรม Microsoft Excel ทาง Microsoft ได้พัฒนาช่องทางในการเพิ่มเติมความสามารถต่างๆ ให้กับ Excel โดยการพัฒนาโปรแกรมที่เรียกว่า Add-Ins ทำให้เราสามารถทำการผนวกความสามารถของ Excel กับโปรแกรมที่เราพัฒนาขึ้นมาได้ (ตัวอย่างเช่น ผู้ใช้โปรแกรม SUN Account ซึ่งเป็นโปรแกรมระบบบัญชี ได้มีการใช้โปรแกรมเสริม Add-Ins ที่ชื่อว่า "Vision" ปัจจุบันได้เปลี่ยนชื่อเป็น "Q&A" ทำให้โปรแกรม SUN Account มีความสามารถเพิ่มเติมในการ Import & Export ข้อมูลได้อย่างง่ายและสะดวกยิ่งขึ้น เป็นต้น)

ดาวน์โหลดที่นี่ 

วิธีติดตั้งโปรแกรม Add-Ins Money
1.Download ไฟล์ Add-ins มาเรียบร้อยแล้ว ให้แตกไฟล์ จะได้ไฟล์ NumToEngText.xla มา
2.เปิดโปรแกรม Microsoft Excel
3.คลิ๊กปุ่ม Office Button ด้านบน(มุมบนซ้ายมือ)
4.ไปที่ Excel Option >> Add-ints >> Go >> Browse เลือกไฟล์ NumToEngText.xla
5.กด OK เรียบร้อย ครับ

รูปแบบการให้งาน NumToEngText เปลี่ยนตัวเลข เป็นตัวอักษรภาษาอังกฤษ

=NumToEngText(A, B, C, D, E, F, G) เปลี่ยนตัวเลข เป็นตัวอักษรภาษาอังกฤษ

=BAHTTEXT(A) เปลี่ยนตัวเลข เป็นตัวอักษรภาษาไทย 

HowTo

	A	B
1	6.25
2		รูปแบบการใช้
3		=NumToEngText(A, B, C, D, E, F, G)
4
5		Argument B C D E F G อาจจะไม่ใส่ก็ได้เช่น
6		=NumToEngText(6.25)
7		ได้ผลเป็น
8		BAHT Six AND Twenty Five STG. ซึ่งเป็นวิธีเรียกใช้ที่ง่ายที่สุด
9
10		A เป็นค่าตัวเลขที่จะให้แปลงเป็นตัวอักษร
11
12		B มีค่าใดค่าหนึ่งดังนี้ 0,1,2,3 ถ้าไม่กำหนดถือเป็น 0 โดย
13		B=0 จะได้ BAHT Six AND Twenty Five STG.
14		B=1 จะได้ BAHT six AND twenty five STG. เปลี่ยนเป็นตัวเล็ก
15		B=2 จะได้ Six BAHT Twenty Five STG. BAHT หลัง Six
16		B=3 จะได้ Six BAHT twenty five STG. เปลี่ยนเป็นตัวเล็ก BAHT หลัง Six
17
18		C จำนวนหลักหลังจุดทศนิยมที่จะอ่าน
19		ถ้าไม่กำหนดถือเป็น 2 ปกติการอ่านค่าเงินก็ควรเป็น 2
20		แต่ถ้าอ่านค่าหน่วยอื่นๆ เช่น
21
22		เรามีค่าความยาวเป็นเมตรเก็บไว้ที่ A1=6.25 เมตร
23		=NumToEngText(A1,2,3,"metre","mm.")
24		ได้ผลเป็น
25		Six metre Two Hundred Fifty mm.
26
27		D เป็นหน่วยนับของเลขหน้าจุดทศนิยม
28		ถ้าไม่กำหนดถือว่าเป็น BAHT
29
30		ถ้าต้องการให้จำนวนที่เป็นพหูพจน์อ่านหน่วยต่างกับเอกพจน์ ให้กำหนดคำอ่านพหูพจน์เพิ่มเติม คั่นด้วย comma เช่น BAHT,BAHTS
31
32		E เป็นหน่วยนับของเลขหลังจุดทศนิยม
33		ถ้าไม่กำหนดถือว่าเป็น STG. ( สามารถกำหนดคำอ่านพหูพจน์เช่นเดียวกับ D )
34
35		=NumToEngText(A1,2,2,"Baht,Bahts","Stang,Stangs")
36		ได้ผลเป็น
37		Six Bahts Twenty Five Stangs
38
39		F เป็นคำที่ต้องการใส่ที่ส่วนท้ายถ้าไม่มีจุดทศนิยม
40		ถ้าไม่กำหนดถือว่าเป็น ONLY
41
42		=NumToEngText(6,2,2,"บาท","สต.","ถ้วน")
43		ได้ผลเป็น
44		Six บาท ถ้วน
45
46		G เป็นคำที่ต้องการให้วางข้างหน้าเมื่อตัวเลขติดลบ
47		ถ้าไม่กำหนดถือว่าเป็น LESS
48
49
50		' พัฒนาโดยคุณสาธิตและคุณอรวีร์
51		' http://forum.onecenter.com/excel/
52		' September 2001
53		' xla โดย สมเกียรติ ฟุ้งเกียรติ Excel Expert Training
54		' www.geocities.com/xlsiam