คำสั่งใน Macro
===========
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
คลิกที่นี่เพื่อดูรายละเอียด
เปลี่ยนเลขอารบิกเป็นไทย และ ไทยเป็นอารบิก ใน Excel
ให้จัดรูปแบบด้วย t#,##0_);(t#,##0) เฉพาะเซลหรือทั้งหมดที่เราเลือก
ไม่มีความคิดเห็น:
แสดงความคิดเห็น