Page 1 of 1
ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่าง
Posted: Wed Jul 13, 2022 2:59 pm
by wisitsakbenz
เรียน อาจารย์
เมื่อเลือก Template ที่ต้องการแล้ว ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่างด้วย
ต้องปรับสูตร หรือ Code อย่างไรครับ ขอบคุณครับ
Re: ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่าง
Posted: Wed Jul 13, 2022 4:16 pm
by snasui
ตัวอย่างการปรับ Code ครับ
TextBox1.Text = Application.Text(TextBox1.Text, "0;;;@")
Re: ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่าง
Posted: Wed Jul 13, 2022 4:54 pm
by wisitsakbenz
เรียน อาจารย์ snasui
ลองเปลี่ยนข้อมูล error ตามไฟล์แนบครับ
ขอบคุณครับ
Re: ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่าง
Posted: Wed Jul 13, 2022 5:11 pm
by snasui
TextBox รับข้อความได้แค่ 255 อักขระ ตัวอย่างการตัดข้อความตาม Limit ของ TextBox ครับ
TextBox1.Text = Application.Text(VBA.Left(TextBox1.Text, 255), "0;;;@")
Re: ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่าง
Posted: Thu Jul 14, 2022 8:14 am
by wisitsakbenz
เรียน อาจารย์ snasui
แก้ไข Code แล้ว ค่าที่เป็น Blank ยังโขว์เป็น 0 ครับ ตามไฟล์แนบครับ
ขอบคุณครับ
Re: ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่าง
Posted: Thu Jul 14, 2022 8:31 am
by snasui
ผมทดสอบแล้ว Code ทำงานได้ปกติ เป็นไปได้ว่า Event ไม่ทำงานเนื่องจากการแก้ไข Code ที่อยู่ระหว่างการ Run ทำให้ Event ถูก Disable ไป
เข้าไป Active Event เสียใหม่โดยกดแป้น Alt+F11 เพื่อเข้าหน้าจอ VBE > กดแป้น Ctrl+G เพื่อเปิดหน้าต่าง Immediate Window > วาง Code
application.EnableEvents = true แล้ว Enter
Re: ถ้าเป็นค่าว่างต้องการให้ Textbox แสดงเป็นค่าว่าง
Posted: Thu Jul 14, 2022 8:40 am
by wisitsakbenz
เรียน อาจารย์ snasui
ได้แล้วครับ ขอบคุณครับ