Tips Tec.

สูตรการตั้งค่า เปลี่ยนเลขอารบิค เป็นไทย และ ไทยเป็นอารบิค ใช้งานในส่วนของโปรแกรม Word และ Excel All Version เหมาะสำหรับการพิมพ์หนังสือราชการได้ 2 รูปแบบ และเพิ่มประสิทธิภาพให้กับการทำงานได้ดียิ่งขี้น เทคนิคมีดังนี้

1. เปิดโปรแกรม Microsoft Office Word เวอร์ชั่นไหนก็ได้ ณ ปัจจุบันที่นิยมใช้งาน คือ 2007,2010,2013 และที่กำลังมาใหม่ใน Version 2016 สามารถใช้งานได้

2. เข้าไปสู่ เมนู View ----> Macro

    2.1 คลิกที่ View Macro จะขึ้นหน้าต่างให้เรา สร้างชื่อ Macro ที่เราต้องการสร้างในที่นี้เราจะใส่คำว่า
         ArabictoThai แล้วกดปุ่ม Create

    2.2 เข้าสู่ระบบ Visual สำหรับการตั้งค่า ให้เรา Copy สูตรด้านล่างนี้ มาไว้โดยลบข้อมูลเดิมทิ้งทั้งหมด
          ตามรูปประกอบ

Sub Arabic2thai()
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

Sub Thai2Arabic()
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

รูปประกอบ การตั้งค่าสูตร

3. กดปุ่ม Save เสร็จสิ้นการตั้งค่า Macro

4. จากนั้นมาดูที่ โปรแกรม Word ให้เรานำเมนู Macro ที่ตั้งค่าไว้มาใช้งานในเอกสารได้เลยดังนี้

    4.1 ในที่นี้จะนำเมนู Macro มาวาง ตรงเมนู Customize Quick Access Toolbar เพื่อความสะดวกและรวดเร็วในการใช้งาน

           - คลิก ลูกศร ลง เลือกคำว่า More Command
จากนั้นเข้าสู่เมนู Choose Commands from: ค้นหาคำว่า Macro แล้วคลิกเลือก

    4.2 จะพบเมนู Macro เพิ่มในส่วนของเมนู ทำการ Add ทั้ง 2 เมนู ไปด้านขวา

 

   4.3  ทำการเปลี่ยนสัญลักษณ์ให้กับเมนูใหม่ของ Macro คลิกคำว่า Modify เปลี่ยนได้ตามที่ชอบ

5. คลิก OK เป็นอันเสร็จสิ้นการตั้งค่า Macro พร้อมใช้งาน
6. ทดสอบการใช้งาน

       

--------------------------------------------------------------------------------------

***ในกรณีที่การตั้งค่าแล้วไม่เปลี่ยนรูปแบบตัวเลข ตัวอย่างเช่น n๐๐๐๐ ฯลฯ

เรามีวิธีแก้ไข ให้เข้าไปแก้ Code สูตร Macro โดยนำสูตรนี้ไปไว้แทน

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

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

-----------------------------------------------------------------------------------------------
สูตรสำหรับ EXCEL All Version 

Sub Arabic2Thai()
For i = 0 To 9
Cells.Replace What:=Chr(48 + i), Replacement:=Chr(240 + i)
Next
End Sub
Sub Thai2Arabic()
For i = 0 To 9
Cells.Replace What:=Chr(240 + i), Replacement:=Chr(48 + i)
Next
End Sub
หรือกำหนดรูปแบบข้อมูลให้เป็น t0 (ตัว T และ เลขศูนย์ 0)

-----------------------------------------------------------------------------------------------
ขอบคุณที่มาข้อมูล CS.Moe.co.th  และ http://www.kaepe.net/