ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://www.snasui.com/
Code: Select all
Sub Jan_Click()
ThisWorkbook.Sheets("Jan").Activate
End SubCode: Select all
Sub Jan_Click()
Sheets("Jan").Visible = False
End Sub
Sub Feb_Click()
Sheets("Feb").Visible = False
End Sub
chanakan Cherdchoo wrote: ↑Wed May 18, 2022 8:48 am ต้องการสร้างปุ่ม 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 ใช่ไหมครับ เข้าใจถูกไหมครับ
Code: Select all
Sub Jan_Click()
ThisWorkbook.Sheets("Jan").Activate
End Sub หมายถึงกดปุ่มแล้วเปิด ชีทชื่อนั้นๆ แล้ว บันทึกหน้าที่ เปิดอยู่ให้ Hide ถูกต้องไหมครับchanakan Cherdchoo wrote: ↑Wed May 18, 2022 4:11 pm คือต้องการเปิดชีทที่ hide ไว้เพื่อเข้าไปบันทึกข้อมูลค่ะ หลังจากนั้นบันทึกเสร็จก็อยากให้ hide ไว้เหมือนเดิมค่ะ
ปัจจุบันสูตรที่ใช้อยู่ จะเป็นอันนี้ค่ะอันนี้เวลากดแล้วจะไปเปิด sheet ที่นั้นได้ค่ะ ถ้าไม่ได้ hide sheet ปลายไว้ค่ะCode: Select all
Sub Jan_Click() ThisWorkbook.Sheets("Jan").Activate End Sub
Code: Select all
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
ActiveWindow.SelectedSheets.Visible = False
End SubCode: 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 wrote: ↑Thu May 19, 2022 8:58 am ปุ่มสำหรับเปิด sheet ที่ hide ไว้ค่ะ เมื่อเปิดเข้าไป sheet นั้นจะเป็นฟอร์มกรอกนู่นนี่นั่นแล้วจะมีปุ่มบันทึกข้อมูลค่ะ พอกดปุ่มบันทึกข้อมูลเสร็จก็อยากให้ hide ไว้เหมือนเดิมค่ะ
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