FormShow เมื่อคลิ้ก sheet show
Posted: Sun Jun 24, 2012 2:02 pm
ผมได้ลองปรับโค้ดจากเวปอาจารย์จากสมาชิกคุณ snoopy ไปปรับใช้
แต่ปรากฏว่าใช้ได้ดีครับ แต่มีโค้ดนึงที่ไม่ตรงความต้องการคือ อาจารย์ลองเข้าไปที่ formArm ที่เป็น userform เมื่อผมคลิก 15720 ชี้ต Details Arm จะโชว์ เมื่อผมคล้ก 16033 ชี้ต DetailsDamper จะ show และชี้ตที่ไม่เกี่ยวข้องจะหายไป ใช้ได้ดี
แต่ เมื่อผมกด Back to menu ปรากฏว่าชี้ตอีกอันยังค้างอยู่ ไม่หายไป ผมอยากให้มันหายไป จะเหลือเฉพาะหน้า Main Menu ครับ ผมทำไม่ได้ครับ ขออาจารย์ดูให้ด้วยนะครับ ผมแนบโค้ดมาด้วย ใน attached file
แต่ปรากฏว่าใช้ได้ดีครับ แต่มีโค้ดนึงที่ไม่ตรงความต้องการคือ อาจารย์ลองเข้าไปที่ 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
จาก Code นี้ DetailsDamper 
ปรับ Code ให้ถูกต้องตามที่ผมบอกแล้วยังครับ ถ้าปรับแล้วลอง ลอง Run ทีละ Step ดูว่าติดตรงไหน แจ้ง Code นั้นมาครับ
ไฟล์ที่แนบมายังไม่แก้ Code ครับ