Page 1 of 1
กำหนดรูปตัวเลขใน Textbox เวลาคีย์ข้อมูล
Posted: Fri Apr 12, 2013 10:34 pm
by jaruek
ws.Cells(iRow, 4).Value = Me.txtQty.Value
จะกำหนดรูปแบบตัวเลขเวลาคีย์ใน Textbox จะต้องกำหนด Format อย่างไรครับ ตามตัวอย่างเป็น Textbox สำหรับใส่ตัวเลข ตอนนี้เวลาคีย์แล้วจะแสดงเป็น 10000 ต้องการให้เวลาคีย์ตัวเลขแล้วแสดงเป็น 10,000.00 จะต้องเขียน Code อย่างไรครับ
Re: กำหนดรูปตัวเลขใน Textbox เวลาคีย์ข้อมูล
Posted: Fri Apr 12, 2013 11:35 pm
by nattasiray
Code: Select all
ws.Cells(iRow, 4).Value = WorksheetFunction.Text(Me.txtQty.Value,"#,##0.00")
หรือ
Code: Select all
ws.Cells(iRow, 4).Value = format(Me.txtQty.Value,"#,##0.00")
Re: กำหนดรูปตัวเลขใน Textbox เวลาคีย์ข้อมูล
Posted: Sat Apr 13, 2013 12:33 pm
by jaruek
nattasiray wrote:Code: Select all
ws.Cells(iRow, 4).Value = WorksheetFunction.Text(Me.txtQty.Value,"#,##0.00")
หรือ
Code: Select all
ws.Cells(iRow, 4).Value = format(Me.txtQty.Value,"#,##0.00")
ขอบคุณสำหรับ Code ครับ ตอนนี้เวลา Save ลงใน Sheet โอเคครับเป็นตาม Format ที่ต้องการ แต่ที่ต้องการคือ หลังจากเราคีย์ตัวเลขลงในช่อง Textbox แล้วกด Enter หลังจากด Enter จะให้แสดง ตัวเลข ที่มี คอมม่า และ ทศนิยมให้เห็นเลยครับ จะต้องสร้าง Code อย่างไรได้ครับ
Re: กำหนดรูปตัวเลขใน Textbox เวลาคีย์ข้อมูล
Posted: Sat Apr 13, 2013 3:11 pm
by joo
ลองแนบไฟล์มาดูกันหน่อยครับเพื่อเพื่อนๆ จะได้ช่วยกันทดสอบได้
Re: กำหนดรูปตัวเลขใน Textbox เวลาคีย์ข้อมูล
Posted: Sat Apr 13, 2013 6:23 pm
by nattasiray
ต้องเขียนใน AfterUpdate Event ของ Textbox
ดับเบิลคลิก Textbox ที่ต้องการ
ที่คอมโบบ็อกซ์ด้านขวาบนของหน้า VBE ตลิกเลือก AfterUpdate
แล้วพิมพ์รหัสต่อไปนี้ลงใน Event Procedure
me.textbox1.text =format(ค่า,"#,###0.00")
Re: กำหนดรูปตัวเลขใน Textbox เวลาคีย์ข้อมูล
Posted: Sun Apr 14, 2013 2:13 am
by jaruek
nattasiray wrote:ต้องเขียนใน AfterUpdate Event ของ Textbox
ดับเบิลคลิก Textbox ที่ต้องการ
ที่คอมโบบ็อกซ์ด้านขวาบนของหน้า VBE ตลิกเลือก AfterUpdate
แล้วพิมพ์รหัสต่อไปนี้ลงใน Event Procedure
me.textbox1.text =format(ค่า,"#,###0.00")
ได้แล้วครับ ขอบคุณ คุณณัฐศิระ เยาวสุด มากครับ
