Snasui Excel Forum

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

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

ไฟล์งานจะอยู่ใน form ที่ชื่อ S1test S2test และ S3test ครับผม ขอบคุณครับ

ค้างเพราะบรรทัดนี้ครับ
ถ้ายังไม่เข้าเงื่อนไขก็จะ Loop ไม่รู้จบ วิธีการ Debug ให้คลิกตรงที่ลูกศรชี้แล้วค่อย Run Code จากนั้นกดแป้น F8 ซ้ำ ๆ เพื่อจะ Run ไปทีละบรรทัดครับ

ขอบคุณครับ โค๊ดบรรทัดที่เกิดปัญหา ผมทำขึ้นเพื่อเป็นเงื่อนไข โดยเงื่อนไขคือให้ Textbox ทั้งหมดที่สุ่มเลขได้ใน S3test มีผลรมเท่ากับ ช่องล่างสุดใน S1test ครับ แต่ผมไม่ทราบว่าทำไมลูปถึงไม่หยุดตามเงื่อนไขนี้ ขอคามกรุณาช่วยตรวจสอบได้ไหมครับ

ผมแจ้งวิธี Debug เพื่อที่จะตรวจสอบได้เองให้เรียบร้อยแล้ว กรุณาทำตามนั้นจะได้ทราบว่าผิดพลาดตรงไหน อย่างไร ครับ

ตอนนี้สามารถรันโปรแกรมได้แล้วครับ ขอบคุณอาจารย์มากครับ