วธการแปลงเลขอาราบกเปนเลขไทยบน MS Word/MS Excel 2007/2010 ใหขอมลโดย www.itmanage.info

บทนา ถาเราตองพมพเลขไทยซงตาแหนงตวเลขบนคยบอรดไมตรงกบเลขอาราบคจะมความยงยากและเสยเวลาครบ จงตองหา

วธการแปลง ดวยในตอนแรกเราพมพเปนเลขอาราบคซงทกคนมความชานาญกอน แลวคอยแปลงเปนเลขไทยในภายหลง วธการในทนเปนการสราง Macro ไวบน MS Word/Excel ครบ แตบน Excel การทาโดยใช Macro นน ใชงานไดไม

สมบรณผเขยนจงไดแนะนาวธการกาหนดรปแบบเซลสาหรบ Excel ไวตอนทายดวย ขนตอนสาหรบ MS Word

1. เปด MS Word 2010/2007 ขนมา ไปทเมน View แลวคลกทป ม Macros และเลอก View Macros ดงรป

2. ปอนชอ Macro name เปนชออะไรกไดทสอใหคณเขาใจและเลอก Macros in เปน Normal.dotm (global template) และ

คลกปม Create ดงรป

3. จะมคาสงของฟงกชนขนมาดงรป

4. ใหใชขอความของฟงกชนตอไปนเขาไปแทน และไดดงรป

Sub arabic_to_thai() For i = 0 To 9 With Selection.Find .Text = Chr(48 + i) .Replacement.Text = Chr(240 + i) .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub

5. เปนอนเสรจขนตอนการสราง ตอไปกเรยกใชงาน สมมตเรามขอความ Word ดงตอไปน

6. เมอตองการเปลยนไฟลขอความทงหมดทกาลงเปดใหเปลยนตวเลขอาราบคเปนเลขไทย กทาไดดวยการไปทเมน View , คลกปม Macros, เลอกเมน View Macros, เลอก Macro ทไดสรางไวแลวคลกปม Run ดงรป

7. จากนนตวเลขในไฟลทกาลงเปดอยท งหมดจะเปลยนเปนเลขไทยดงรป

8. และหลงจากนไปแมวาเราจะปดโปรแกรมแลว Macro ทไดสรางไวจะยงคงอยและสามารถใชไดตลอดไป 9. ในกรณทตองการแปลงกลบจากเลขไทยเปนเลขอาราบคกใหเพม Macro ทมฟงกชนตอไปน ดวยวธการเดยวกนครบ

Sub thaitoarabic() For i = 0 To 9 With Selection.Find .Text = Chr(240 + i) .Replacement.Text = Chr(48 + i) .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub

10. และจะได Macro เพมเตมดงรปและสามารถใชงานแปลงกลบไปกลบมาไดสะดวกครบ

ขนตอนการสราง Macro สาหรบ MS Excel

1. เมอเปด Excel แลว ไปทเมน View, ปม Macros, เมน View macros แลวพมพชอ Macro ทจะสราง ในทนชอวา arbictothai แลวคลกปม Create และจะไดผลดงรป

2. เมอปรากฎหนาตางใหปอนคาสงกใหปอนคาสงตอไปนเขาไป

Sub arabictothai() For i = 0 To 9 Cells.Replace What:=Chr(48 + i), Replacement:=Chr(240 + i) Next End Sub

3. แลวจะไดผลดงรป

4. การใชงานกใหพมพตวเลขเปนอาราบกกอนดงตวอยางในรป

5. เมอตองการจะแปลงเปนตวเลขไทยกใหไปทเมน View, ปม Macros, เมน View Macros, เลอก Macro ทไดสรางไว แลว

คลกปม Run กจะไดผลดงรป

6. Unfortunately, แตนาเสยดายครบวธนใชไมไดกบเซลทมการจดรปแบบแลว และเมอมการผดโปรแกรม Excel, Macro

ทไดสรางไวกไมคงอย จงขอแนะนาสาหรบ Excel อาจจะตองใชวธการกาหนดรปแบบเซล ดงหวขอตอไป

ขนตอนการแปลงอาราบคเปนไทยบน Excel โดยใชวธการกาหนดรปแบบเซล (Format cell)

1. กอนเปดโปรแกรม Excel ขนมา ให ทาการ คดลอก โดยการลากระบายดา และสง copy ไวกอน [$-D07041E]t#,##0.00 [คดลอกขอความสแดง]

2. เลอก เซลลทตองการวางตวเลข ** ถาตองการทงชต กเลอก เซลล ทงหมด และจงกาหนดรปแบบ

3. เลอกเมน รปแบบ (Format Cells)

4. เลอกแทบ Number และ Custom

5. ใหวางขอความทเรา copy ใสลงไป ในชอง Type และคลก Ok

6. จากนนเมอเราพมพตวเลขอาราบคลงไปใน Cell และ Enter แลว ตวเลขกจะถกแปลงเปนเลขไทย

จบครบ