การสร้างปุ่มเปิด sheet

[chanakan Cherdchoo]

ต้องการสร้างปุ่ม macro ที่ไว้ใช้เปิด sheet ที่ต้องการค่ะ แต่ว่าต้องการ hide sheet ที่จะเปิดเอาไว้ด้วยค่ะ ปัจจุบันใช้เป็นสูตร
ค่ะ รบกวนช่วยดูโค้ดให้หน่อยนะคะพอดี hide sheet ที่จะเปิดไว้แล้ว macro ไม่ทำงานค่ะ

Code: Select all

Sub Jan_Click()
ThisWorkbook.Sheets("Jan").Activate
End Sub

[puriwutpokin]

ปรับดูตามนี้ครับ

Code: Select all

Sub Jan_Click()
Sheets("Jan").Visible = False
End Sub
Sub Feb_Click()
Sheets("Feb").Visible = False
End Sub

[chanakan Cherdchoo]

ไม่ได้เหมือนกันค่ะ

[puriwutpokin]

ต้องการสร้างปุ่ม macro ที่ไว้ใช้เปิด sheet ที่ต้องการค่ะ แต่ว่าต้องการ hide sheet ที่จะเปิดเอาไว้ด้วยค่ะ ปัจจุบันใช้เป็นสูตร
ค่ะ รบกวนช่วยดูโค้ดให้หน่อยนะคะพอดี hide sheet ที่จะเปิดไว้แล้ว macro ไม่ทำงานค่ะ

Code: Select all

Sub Jan_Click()
ThisWorkbook.Sheets("Jan").Activate
End Sub
[/quote]

คือต้องการ เปิดชีทที่ Hide อยู่ และ Hide Sheet ตามชื่อปุ่มที่กดใช่ไหมครับ โดยกดครั้งแรก Hide กดอีกครั้ง Unhide ใช่ไหมครับ เข้าใจถูกไหมครับ

[chanakan Cherdchoo]

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

Code: Select all

Sub Jan_Click()
ThisWorkbook.Sheets("Jan").Activate
End Sub 

อันนี้เวลากดแล้วจะไปเปิด sheet ที่นั้นได้ค่ะ ถ้าไม่ได้ hide sheet ปลายไว้ค่ะ

[puriwutpokin]

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

Code: Select all

Sub Jan_Click()
ThisWorkbook.Sheets("Jan").Activate
End Sub 

อันนี้เวลากดแล้วจะไปเปิด sheet ที่นั้นได้ค่ะ ถ้าไม่ได้ hide sheet ปลายไว้ค่ะ

หมายถึงกดปุ่มแล้วเปิด ชีทชื่อนั้นๆ แล้ว บันทึกหน้าที่ เปิดอยู่ให้ Hide ถูกต้องไหมครับ
ถ้าใช้ต้อง Event
ที่ VBA ThisWorkbook ใช้โค้ดนี้ครับ

Code: Select all

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
ActiveWindow.SelectedSheets.Visible = False
End Sub

ทุกครั้งที่ Save จะซ้อนชีทนั้นๆ แต่ไม่สามารถใช้ เมื่อเหลือ ชีทเดียวอยู่
แต่ถ้าเป็นการใช้ ปุ่มเดียว แล้ว ซ่อน และเปิดได้ใน ปุ่มเดียวกันใช้แบบนี้

Code: Select all

Sub Jan_Click()
If Sheets("Jan").Visible = False Then
   Sheets("Jan").Visible = True
Else
   Sheets("Jan").Visible = False
End If
End Sub
Sub Feb_Click()
If Sheets("Feb").Visible = False Then
    Sheets("Feb").Visible = True
Else
    Sheets("Feb").Visible = False
End If
End Sub

[chanakan Cherdchoo]

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

[puriwutpokin]

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

อัพเดตไฟล์ที่ แจ้งมาด้วยครับ เพราะไม่พบปุ่มบันทึกในไฟล์เดิมครับ

[chanakan Cherdchoo]

อันนี้ไฟล์ที่ใช้จริงเลยค่ะ

[puriwutpokin]

ในส่วนที่ปรับ

Code: Select all

Sub Maturation1_Click()
Sheets("M1").Visible = True
Sheets("M1").Activate
End Sub
Sub Maturation2_Click()
Sheets("M2").Visible = True
Sheets("M2").Activate
End Sub
Sub ND_Click()
Sheets("ND").Visible = True
Sheets("ND").Activate
End Sub

และ

Code: Select all

Sub SaveM1_Click()
'Other Code
 ActiveSheet.Visible = False
 End Sub
 Sub SaveM2_Click()
'Other Code
 ActiveSheet.Visible = False
 End Sub
 SaveND_Click()
'Other Code
 ActiveSheet.Visible = False
 End Sub

[chanakan Cherdchoo]

ได้แล้วค่ะ ขอบคุณสำหรับคำแนะนำนะคะ