Excel Forum

snasui wrote: ควรจะมีการ Validate หมายถึงตรวจสอบความสมบูรณ์ของข้อมูลที่จำเป็นว่าถูกต้องและมีครบทุกช่อง หากมีไม่ครบทุกช่อง หรือ มีครบแต่ไม่อยู่ในรูปแบบที่กำหนดจะต้องไม่วางลงไปในพื้นที่เป้าหมาย สำหรับการ Validate ให้ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

ขอบคุณครับ

สอบถามเพิ่มเติมครับ
ในกรณีที่ในช่องว่าง (textbox) ลืมใส่คำตอบ หรือข้อมูล แล้วมี ข้อความขึ้นเตือน หลังจากปิดไปแล้วจะเกิด เหตุการณ์ ข้ึน 2 เหตุการณ์ ดังนี้ครับ
1. ข้อมูลถูกเติมลงไปใน ชีทงาน
2.ข้อมูลที่กรอกไว้แล้วหายไป


อยากทราบวิธีแก้ไขครับ ไม่ให้เกิดเหตุการณ์ ทั้ง 2 เหตุการณ์ ครับ

snasui wrote:

snasui wrote:ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยได้ไหมครับ

ใน Sub Cmb1_Click() ลบบรรทัดนี้ทิ้งไปครับ TbDate.Text = ""

ขอบคุณครับ

สำหรับ Code ด้านล่างเป็นการตรวจสอบเมื่อ TbDate มีการ Update ซึ่งจะถูกตรวจสอบทุกอักขระที่คีย์แม้แต่การลบให้เป็นค่าว่าง จึง ไม่เหมาะที่จะนำมาใช้สำหรับการจัดการค่าในช่อง TbDate เพราะจะควบคุมลำบาก แต่ควรใช้ปุ่มอื่นเช่น ปุ่ม Done เข้ามาตรวจสอบแทน ยกตัวอย่างเช่น หากคีย์ไม่เป็นวันที่จะฟ้องให้คีย์ใหม่ เช่นน...

:D ตัวอย่างการใส่ Code ใน TextBox tbDate ตามด้านล่างครับ Private Sub UserForm_Initialize() Me.TbDate.Value = Application.Text(Date, "mm/dd/yyyy") End Sub ขอบคุณครับ ได้อย่างที่ต้องการเลยครับ แต่ว่าหลังผมกด ตกลง(done) เพื่อ กรอกข้อมูล ไปในครั้งแรก วันที่ก็หายไปเลยครับ ให้มันค้างไว้จนจบเลยไ...

ชอบคุณคุณ คนควน ครับ combobox คือกดเลือกเอาใช่ไหมครับ ผมต้องการให้มันแสดงเลยตอนที่เปิดฟอร์มขึ้นมา ไม่ทราบว่าสามารถทำได้ไหมครับ ขอบคุณครับ ป.ล. code อยู่ด้านล่างครับ Dim intRows As Integer Dim dDate As Date Private Sub Cblist_Change() End Sub Private Sub Cmb2_Click() CbList.Text = "" TbDate...

1.อยากให้เวลาเรียกใช้ Userform ขึ้นมาแล้ว ในช่อง วันที่ มีค่า วันที่ตั้งต้นเป็นวัน/เดือน/ปี ปัจจุบันครับ และ สามารถแก้ไขวันที่ได้ด้วยครับ 2.กรณีที่ใส่ข้อมูลไม่ครบ แล้วมี ข้อความขึ้นเตือน "fill missing" หลังกด ok - 2.1 ไม่ให้ ล้างข้อมูลที่ใส่ไว้ก่อนหน้า - 2.2 และไม่ให้ข้อมูลที่ไม่ครบ กรอกลง...