เปิด Userform ซ้อนกันหลายอัน
Posted: Wed Jan 31, 2018 7:43 pm
ขอสอบถามการแก้ไข code ในการเลือก Userform โดยยกเลิกคำสั่ง modeless
โดยใน sheet2 จะมีปุ่ม Back Menu เมื่อกดแล้วจะกลับไปยัง Sheet1 จะมี UserForm แสดงซ้อนกัน คือ UserForm1 ,UserForm2 และ UserForm3 สิ่งที่ต้องการคือ เมื่อ UserForm3 อยู่บนสุด ไม่อยากให้คลิ๊ก UserForm2 หรือ UserForm1 ได้ ผมจะต้องปรับหรือแก้ไข code อย่างไรครับ
code ที่ผมเขียนที่ปุ่ม Back Menu ใน sheet2 คือ
ขอขอบคุณครับ
โดยใน sheet2 จะมีปุ่ม Back Menu เมื่อกดแล้วจะกลับไปยัง Sheet1 จะมี UserForm แสดงซ้อนกัน คือ UserForm1 ,UserForm2 และ UserForm3 สิ่งที่ต้องการคือ เมื่อ UserForm3 อยู่บนสุด ไม่อยากให้คลิ๊ก UserForm2 หรือ UserForm1 ได้ ผมจะต้องปรับหรือแก้ไข code อย่างไรครับ
code ที่ผมเขียนที่ปุ่ม Back Menu ใน sheet2 คือ
Code: Select all
Private Sub CommandButton1_Click()
Application.Goto (ActiveWorkbook.Sheets("sheet1").Range("A1"))
UserForm1.Show modeless
UserForm2.Show modeless
UserForm3.Show modeless
End Sub