SpellNumber

[impim]

รบกวนเรียนสอบถามค่ะ

ตามไฟล์แนบ ไม่สามารถแปลงตัวเลขเป็นตัวหนังสือภาษาอังกฤษได้ ไม่ทราบว่าเพราะอะไรค่ะ

[snasui]

เนื่องจากยังไม่ได้ติดตั้ง Add-ins หรือติดตั้งแล้วแต่ยังไม่ Active ครับ

ฟังก์ชั่น SpellNumber เป็นการเขียนฟังก์ชั่นขึ้นมาใช้เองด้วย VBA หากมีการติดตั้งในเครื่องแล้วต้องการจะ Active ขึ้นมาใช้งาน ให้เข้าเมนู File > Options > Add-ins > ตรง Manage ให้เลือก Excel Add-ins > Go > เลือก Add-ins ที่ประกอบด้วย Function SpellNumber > OK

[impim]

เรียน อาจารย์ snasui ค่ะ

ตามไฟล์แนบ
เข้าเมนู File > Options > Add-ins > ตรง Manage ให้เลือก Excel Add-ins > Go > เลือก Add-ins แต่ไม่มี Function SpellNumber ค่ะ
ต้องทำอย่างไรคะ

[snasui]

ทำตาม Link นี้คีรับ https://support.office.com/en-us/articl ... 442cd55d98

[impim]

ทำแล้วนะคะ อาจารย์

แต่ไม่มีฟังก์ชั่น SpellNumbe ขึ้นมาค่ะ

[snasui]

Save File นั้นเป็น .xlam แล้วเก็บไว้ใน Folder ใด ๆ ในเครื่อง จากนั้นเข้าไป Add มาไว้ใน Excel Add-ins ด้วยการคลิกปุ่ม Browse ใน โพสต์ #3 ครับ

[impim]

เรียน อาจารย์ snasui ค่ะ

เลือก save type as "Excel Add-In" หรือเปล่าคะ
ถ้าใช่ตอนเซฟ เค้าไปที่ Folder WINDOWS10 เลยค่ะ
แล้วได้ File ที่เซฟ กับไว้ที่ Microsoft > Addins

แล้วมาที่ไฟล์งานที่เราต้องการใช้ เลือก Add-ins มี SpellNumber ติ๊กถูกอยู่แล้ว แต่ไม่สามารถใช้ได้ค่ะ
เขียนสูตร แล้วยังได้ผลลัพท์ตามไฟล์แนบค่ะ ตามภาพ SpellNumber 2

ถ้า Add-Ins ได้แล้ว ตามภาพ SpellNumber3 ควรแสดงฟังก์ชั่น SpellNumber หรือเปล่าคะ

[snasui]

แสดงว่า Add-ins นั้นไม่สมบูรณ์ครับ

หากสมบูรณ์และใช้การได้เมื่อ Add มาแล้วจะต้องแสดง Function SpellNumber ให้เห็นครับ

[impim]

รบกวนด้วยค่ะ..อาจารย์ snasui ไม่ทราบว่าจะต้องทำอย่างไรคะ

คำสั่งที่ Copy มา วาง ก็มาจาก link นะคะ

[snasui]

แนบไฟล์นั้นมาด้วยจะช่วยดูให้ได้ หากแนบไม่ได้ให้ทำการ Zip มาก่อนครับ

[impim]

เรียน อาจารย์ snasui ค่ะ

ตามไฟล์แนบนะคะ

[snasui]

Code เว้นบรรทัดไม่ถูกต้อง สังเกตว่า Code เป็นสีแดง จะใช้งานไม่ได้ นอกจากนี้ยังมีความผิดพลาดที่สำคัญมากคือวาง Code ผิดที่

Function จะทำงานได้เมื่อวางใน Module เท่านั้น ให้เข้าเมนู Insert > Module แล้ววาง Code ลงใน Module ที่ได้และลบ Code เดิมทิ้ง

สิ่งที่ต้องแก้ไขคือตามด้านล่างครับ

จาก Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) ให้แก้เป็น
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))

เครื่องหมาย _ แสดงว่าจะเป็นการขึ้นบรรทัดใหม่ Code หลังจากนั้นต้องอยู่บรรทัดล่างที่ติดกันครับ

จาก Result = Result & GetDigit _

(Right(TensText, 1)) ' Retrieve ones place.

แก้เป็น
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.

[impim]

เรียน อาจารย์ snasui ค่ะ

แก้ไขเรียบร้อยแล้วแจ้งผลกลับไปนะคะ

ขอบคุณค่ะ

[impim]

เรียน อาจารย์ snasui ค่ะ
รบกวนสอบถามอีก 2 เรื่องค่ะ
1. Save as type เป็น Excel Workbook หรือ ต้อง Save as type เป็น Excel Macro-Enabled Workbook คะ
2. ถ้าส่งไฟล์ที่มี SpellNumber ไปที่เครื่องอื่น ฟังก์ชั่น SpellNumber จะไปด้วยมั๊ยคะ หรือ เครื่องนั้นต้อง Add-ins ด้วยคะ
ขอบคุณค่ะ

[snasui]

1. Save as type เป็น Excel Workbook หรือ ต้อง Save as type เป็น Excel Macro-Enabled Workbook คะ

ต้อง Save เป็น Excel Add-ins (*.xlam) ครับ

2. ถ้าส่งไฟล์ที่มี SpellNumber ไปที่เครื่องอื่น ฟังก์ชั่น SpellNumber จะไปด้วยมั๊ยคะ หรือ เครื่องนั้นต้อง Add-ins ด้วยคะ

เครื่องที่รับไฟล์จะต้อง Add เข้าไปเป็น Excel Add-ins ด้วยจึงจะมี Function SpellNumber ให้ใช้ครับ

[impim]

เรียน อาจารย์ snasui ค่ะ
เข้าใจแล้วค่ะ
ขอบคุณมากนะคะ

[impim]

เรียน อาจารย์ snasui ค่ะ

ตามภาพ เพื่อส่งให้อาจารย์ดูว่ามีข้อผิดพลาดอะไรหรือเปล่าค่ะ

คือเรียกใช้งาน ฟังก์ชั่น spellnumber ไม่ได้ค่ะ

จึงเรียนมาเพื่อขอคำแนะนะ

ขอบคุณค่ะ

[snasui]

จากภาพไม่มีอะไรผิดปกติครับ

ที่บอกว่าเรียกใช้งานไม่ได้นั้นมีอาการเป็นแบบไหนครับ ทำครบทุกขั้นตอนตามที่ผมแจ้งไปในโพสต์ #12 แล้วหรือไม่ ลองส่งไฟล์นั้นมาดูกันครับ

[impim]

อาจารย์คะ

ไฟล์แรก เดิมใช้ ฟังก์ชั่น SpellNumber ได้ค่ะ
ไฟล์ที่ 2 เป็นภาพ ที่ไม่สามารถ Load File มาให้อาจารย์ดูได้ค่ะ เพราะมองไม่เห็นค่ะ

รบกวนนะคะ

ขอบคุณคะ

[puriwutpokin]

ไม่ทราบว่า Add-In ได้ว่างไว้ในตำแหน่งเดิมในคอมฯ ที่ใช้งาน หรือไม่ครับ หรือฝังไว้ในไฟล์ที่ใช้งานครับ ถ้าเป็นกรณีที่2จะใช้ Add-in ได้เฉพาะไฟล์นั้นหรือต้องเปิดไฟล์นั้นไว้เวลาจะใช้กับไฟล์อื่น นอกจาก2กรณีนี้ก็ต้องมาดูว่าเป็นเพราะอะไรไฟล์หนึ่งใช้ได้อีกไฟล์ใช้ไม่ได้