Snasui Excel Forum

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

เรียน อาจารย์ 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.

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

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

ขอบคุณค่ะ

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

impim wrote: Mon Apr 29, 2019 8:54 am 1. Save as type เป็น Excel Workbook หรือ ต้อง Save as type เป็น Excel Macro-Enabled Workbook คะ

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

impim wrote: Mon Apr 29, 2019 8:54 am 2. ถ้าส่งไฟล์ที่มี SpellNumber ไปที่เครื่องอื่น ฟังก์ชั่น SpellNumber จะไปด้วยมั๊ยคะ หรือ เครื่องนั้นต้อง Add-ins ด้วยคะ

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

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

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

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

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

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

ขอบคุณค่ะ

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

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

อาจารย์คะ

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

รบกวนนะคะ

ขอบคุณคะ

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