FormShow เมื่อคลิ้ก sheet show

[godman]

ผมได้ลองปรับโค้ดจากเวปอาจารย์จากสมาชิกคุณ snoopy ไปปรับใช้
แต่ปรากฏว่าใช้ได้ดีครับ แต่มีโค้ดนึงที่ไม่ตรงความต้องการคือ อาจารย์ลองเข้าไปที่ formArm ที่เป็น userform เมื่อผมคลิก 15720 ชี้ต Details Arm จะโชว์ เมื่อผมคล้ก 16033 ชี้ต DetailsDamper จะ show และชี้ตที่ไม่เกี่ยวข้องจะหายไป ใช้ได้ดี
แต่ เมื่อผมกด Back to menu ปรากฏว่าชี้ตอีกอันยังค้างอยู่ ไม่หายไป ผมอยากให้มันหายไป จะเหลือเฉพาะหน้า Main Menu ครับ ผมทำไม่ได้ครับ ขออาจารย์ดูให้ด้วยนะครับ ผมแนบโค้ดมาด้วย ใน attached file

Code: Select all

Option Explicit
Private Sub CommandButton1_Click()
On Error Resume Next
    frmArm.Hide
    Sheets("DetailsArm").Visible = False
    Sheets("DetaisDamper").Visible = False
    Sheets("Main Menu").Select
    frmMain.Show
End Sub

Private Sub Label1_Click()
Sheets("DetailsArm").Visible = True
Sheets("DetailsArm").Select
Sheets("DetailsDamper").Visible = False
End Sub


Private Sub Label2_Click()
Sheets("DetailsDamper").Visible = True
Sheets("DetailsDamper").Select
Sheets("DetailsArm").Visible = False
End Sub

[snasui]

จาก Code นี้ DetailsDamper เขียนไม่ถูกต้องครับ การตรวจสอบ Code ให้ Mark On Error Resume Next เป็น Comment ก่อน แล้ว Run ทีละ Step เพื่อดูว่าเกิดความผิดพลาดที่ตรงไหน

Code: Select all

Private Sub CommandButton1_Click()
    On Error Resume Next
    frmArm.Hide
    Sheets("DetailsArm").Visible = False
    Sheets("DetaisDamper").Visible = False
    Sheets("Main Menu").Select
    frmMain.Show
End Sub

[godman]

อาจารญ์ครับเมื่อผมคลิก Back to menu ใน frmArm ผมรู้สึกว่า sheet DetailsDamper ยังอยู่ครับ ทำอย่างไรจะให้มันหายไปด้วย ให้คงเหลืออยู่เฉพาะ sheet main menu ครับ

[snasui]

ปรับ Code ให้ถูกต้องตามที่ผมบอกแล้วยังครับ ถ้าปรับแล้วลอง ลอง Run ทีละ Step ดูว่าติดตรงไหน แจ้ง Code นั้นมาครับ

[godman]

ไฟล์ที่ผมแก้ โค้ดแล้ว

[snasui]

ไฟล์ที่แนบมายังไม่แก้ Code ครับ

[godman]

ขอโทษอย่างแรง ผมปรับโค้ดไม่เรียบร้อยเอง ตอนนี้ผมแก้ให้ตรงแล้วใช้ได้แล้ว ขอบคุณครับ ผมสะเพร่าเอง