Page 1 of 1

เปิด Userform ซ้อนกันหลายอัน

Posted: Wed Jan 31, 2018 7:43 pm
by sutham
ขอสอบถามการแก้ไข code ในการเลือก Userform โดยยกเลิกคำสั่ง modeless
โดยใน 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
ขอขอบคุณครับ

Re: เปิด Userform ซ้อนกันหลายอัน

Posted: Wed Jan 31, 2018 9:57 pm
by snasui
:D ตัวอย่าง Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    Application.Goto (ActiveWorkbook.Sheets("sheet1").Range("A1"))
    UserForm1.Show vbModeless
    UserForm2.Show vbModeless
    UserForm3.Show
End Sub

vbModeless เขียนเช่นนี้ ไม่ใช่เขียนเป็น modeless ครับ