แชร์ทริคการทำงานด้านเอกสาร กับสำนักงานประมงจังหวัดสระบุรี แปลงเลขไทย (ที่เกิดจากการพิมพ์ด้วยคีย์บอร์ด) ให้เป็นเลขอารบิก ด้วย Macro

เคยเจอประสบปัญหา ที่อาจจะแปลงเลขไทย (ที่เกิดจากการพิมพ์ด้วยคีย์บอร์ด) ให้เป็นเลขอารบิกหรือไม่

arabictothai 1 -> ๑

thaitoarabic ๑ -> 1

เราแนะนำวิธีแก้ด้วยการสร้าง Macro ในโปรแกรม Microsoft word 2007 และ Microsoft Excel 2007 ด้วยวิธีดังนี้ สร้างเพียงครั้งเดียวใช้ได้ตลอด

MS-Word ขึ้นมา เรียกใช้จาก View > Macros ใส่ชื่ออะไรก็ได้ ในช่อง macro name คลิก Create เพื่อเข้าสู่ Visual basic ใส่คำสั่งนี้เข้าไป แล้วทำการบันทึกคำสั่ง (Ctrl+S) แล้วปิดโปรแกรม ------macro for MS-Word------

Sub arabictothai()

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 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

MS-Excel ขึ้นมา เรียกใช้จาก View > Macros ใส่ชื่ออะไรก็ได้ ในช่อง macro name คลิก Create เพื่อเข้าสู่ Visual basic ใส่คำสั่งนี้เข้าไป แล้วทำการบันทึกคำสั่ง (Ctrl+S) แล้วปิดโปรแกรม ------macro for MS-Excel------

Sub arabictothai()

For i = 0 To 9

Cells.Replace What:=Chr(48 + i), Replacement:=Chr(240 + i)

Next

End Sub

Sub Thaitoarabic()

For i = 0 To 9

Cells.Replace What:=Chr(240 + i), Replacement:=Chr(48 + i)

Next

End Sub

แชร์ทริคการทำงานด้านเอกสาร กับสำนักงานประมงจังหวัดสระบุรี

เคยเจอประสบปัญหา ที่อาจจะแปลงเลขไทย (ที่เกิดจากการพิมพ์ด้วยคีย์บอร์ด) ให้เป็นเลขอารบิกหรือไม่

arabictothai 1 -> ๑

thaitoarabic ๑ -> 1

เราแนะนำวิธีแก้ด้วยการสร้าง Macro ในโปรแกรม Microsoft word 2007 และ Microsoft Excel 2007 ด้วยวิธีดังนี้ สร้างเพียงครั้งเดียวใช้ได้ตลอด

MS-Word ขึ้นมา เรียกใช้จาก View > Macros ใส่ชื่ออะไรก็ได้ ในช่อง macro name คลิก Create เพื่อเข้าสู่ Visual basic ใส่คำสั่งนี้เข้าไป แล้วทำการบันทึกคำสั่ง (Ctrl+S) แล้วปิดโปรแกรม ------macro for MS-Word------

Sub arabictothai()

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 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

MS-Excel ขึ้นมา เรียกใช้จาก View > Macros ใส่ชื่ออะไรก็ได้ ในช่อง macro name คลิก Create เพื่อเข้าสู่ Visual basic ใส่คำสั่งนี้เข้าไป แล้วทำการบันทึกคำสั่ง (Ctrl+S) แล้วปิดโปรแกรม ------macro for MS-Excel------

Sub arabictothai()

For i = 0 To 9

Cells.Replace What:=Chr(48 + i), Replacement:=Chr(240 + i)

Next

End Sub

Sub Thaitoarabic()

For i = 0 To 9

Cells.Replace What:=Chr(240 + i), Replacement:=Chr(48 + i)

Next

End Sub