กำหนดรูปตัวเลขใน Textbox เวลาคีย์ข้อมูล

[jaruek]

ws.Cells(iRow, 4).Value = Me.txtQty.Value
จะกำหนดรูปแบบตัวเลขเวลาคีย์ใน Textbox จะต้องกำหนด Format อย่างไรครับ ตามตัวอย่างเป็น Textbox สำหรับใส่ตัวเลข ตอนนี้เวลาคีย์แล้วจะแสดงเป็น 10000 ต้องการให้เวลาคีย์ตัวเลขแล้วแสดงเป็น 10,000.00 จะต้องเขียน Code อย่างไรครับ

[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")

[jaruek]

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 อย่างไรได้ครับ

[joo]

ลองแนบไฟล์มาดูกันหน่อยครับเพื่อเพื่อนๆ จะได้ช่วยกันทดสอบได้

[nattasiray]

ต้องเขียนใน AfterUpdate Event ของ Textbox

ดับเบิลคลิก Textbox ที่ต้องการ
ที่คอมโบบ็อกซ์ด้านขวาบนของหน้า VBE ตลิกเลือก AfterUpdate
แล้วพิมพ์รหัสต่อไปนี้ลงใน Event Procedure

me.textbox1.text =format(ค่า,"#,###0.00")

[jaruek]

ต้องเขียนใน AfterUpdate Event ของ Textbox

ดับเบิลคลิก Textbox ที่ต้องการ
ที่คอมโบบ็อกซ์ด้านขวาบนของหน้า VBE ตลิกเลือก AfterUpdate
แล้วพิมพ์รหัสต่อไปนี้ลงใน Event Procedure

me.textbox1.text =format(ค่า,"#,###0.00")

ได้แล้วครับ ขอบคุณ คุณณัฐศิระ เยาวสุด มากครับ