BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: rtumayo ที่ เมษายน 11, 2011, 14:32:54 PM

หัวข้อ: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: rtumayo ที่ เมษายน 11, 2011, 14:32:54 PM

ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย ในการ qry รายงานเช่น เลข13 หลัก 0123456789012 เป็น ๐๑๒๓๔๕๖๗๘๙๐๑๒ บ้างครับ  ตัวอย่างการเขียน scrip pascal ครับ

หัวข้อ: Re: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: udomchok ที่ เมษายน 11, 2011, 14:41:45 PM

เปลี่ยน font เป็นตระกูล IT๙ ครับ
http://itplayroom.blogspot.com/2009/06/font-fontthai-itt-it.html

หัวข้อ: Re: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: muang ที่ เมษายน 11, 2011, 14:44:41 PM

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

สร้างเป็น Macro ครับ ใช้งานได้เลย สะดวกมาก

หัวข้อ: Re: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: rtumayo ที่ เมษายน 11, 2011, 15:16:51 PM

ขอบคุณ

หัวข้อ: Re: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: rtumayo ที่ เมษายน 18, 2011, 10:00:44 AM

ขอตัวอย่างการเขียน scrip pascal หน่อยครับ

หัวข้อ: Re: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: chaihosp ที่ เมษายน 18, 2011, 10:41:34 AM

ทำแล้วทุกอย่างอยู่ในนี้ ;D ;D

หัวข้อ: Re: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: rtumayo ที่ เมษายน 18, 2011, 13:34:23 PM

ขอบคุณครับ

หัวข้อ: Re: ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย
เริ่มหัวข้อโดย: rtumayo ที่ เมษายน 18, 2011, 13:58:16 PM

อ้างจาก: muang ที่ เมษายน 11, 2011, 14:44:41 PM

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

สร้างเป็น Macro ครับ ใช้งานได้เลย สะดวกมาก

ขอตัวอย่างการเขียน crip pascal ครับ