0
แก้
โหวต
สวัสดี. ด้วยเวิร์กชีตของฉันเพียงแผ่นเดียว ทุกครั้งที่ฉันคลิกบนแท็บใดแท็บหนึ่งที่แสดงไว้ทางด้านซ้ายของหน้าจอ แท็บนั้นก็จะไปที่ด้านบนสุดของรายการ และแท็บของฉันที่อยู่ด้านล่างของไฟล์ Excel จะถูกจัดลำดับใหม่โดยอัตโนมัติ สิ่งนี้จะไม่เกิดขึ้นกับเวิร์กชีต Excel อื่น ในเวิร์กชีตอื่นๆ เหล่านั้น ฉันสามารถนำทางไปยังแท็บใดแท็บหนึ่งโดยคลิกที่รายการและทุกอย่างจะอยู่ในลำดับเดียวกัน แต่ไม่ใช่ในแผ่นงาน Excel แผ่นเดียวนี้ ฉันต้องการหยุดการสั่งซื้อแท็บใหม่ ตัวอย่างเช่น ในภาพหน้าจอ คุณจะเห็นวันที่ 6-12 ม.ค. และ 13-19 ม.ค. อยู่ที่ด้านล่างสุดของรายการ ในขณะที่ก่อนหน้านั้นจะปรากฏที่ด้านบน คุณช่วยฉันเกี่ยวกับเรื่องนี้ได้ไหม นี่เป็นระบบ Windows 10 ที่มี Excel 2007 ฉันพยายามอัปโหลดภาพหน้าจอโดยคลิกที่กล่องสิ่งที่แนบมา แต่ดูเหมือนจะไม่สามารถทำได้
การดำเนินการนี้จะย้ายแผ่นงานที่ซ่อนอยู่ไปยังส่วนท้ายของแผ่นงานที่มองเห็นได้ทั้งหมด:
การทดสอบย่อย ()
ด้วยชีต("Sheet1")
.Visible = จริง
ชีต("Sheet1") ย้ายหลัง:=ชีต(ชีต.นับ)
.Visible = เท็จ
จบด้วย
ย่อยสิ้นสุด
และสิ่งนี้จะย้ายแผ่นงานที่ซ่อนอยู่ของคุณไปยังส่วนท้ายของแผ่นงานที่ซ่อนอยู่และมองเห็นได้ทั้งหมด:
ย้ายย่อยHiddenSheet()
Dim ws, x, แผ่นงานล่าสุด
x = 0
สำหรับ ws = Worksheets.Count To 0 Step -1
x = x + 1
ถ้าชีต (Worksheets.Count - x).Visible = False แล้ว
ชีต(ws).Visible = xlSheetVisible
lastSheet = ชีต (ws).Name
ออกสำหรับ
End If
ถัดไป ws
ด้วยชีต("Sheet1")
.Visible = จริง
ชีต("Sheet1") ย้ายหลังจาก:=ชีต(Worksheets.Count)
.Visible = เท็จ
จบด้วย
ชีต (lastSheet).Visible = False
ย่อยสิ้นสุด
การทดสอบย่อย ()
ด้วยชีต("Sheet1")
.Visible = จริง
ชีต("Sheet1") ย้ายหลัง:=ชีต(ชีต.นับ)
.Visible = เท็จ
จบด้วย
ย่อยสิ้นสุด
และสิ่งนี้จะย้ายแผ่นงานที่ซ่อนอยู่ของคุณไปยังส่วนท้ายของแผ่นงานที่ซ่อนอยู่และมองเห็นได้ทั้งหมด:
ย้ายย่อยHiddenSheet()
Dim ws, x, แผ่นงานล่าสุด
x = 0
สำหรับ ws = Worksheets.Count To 0 Step -1
x = x + 1
ถ้าชีต (Worksheets.Count - x).Visible = False แล้ว
ชีต(ws).Visible = xlSheetVisible
lastSheet = ชีต (ws).Name
ออกสำหรับ
End If
ถัดไป ws
ด้วยชีต("Sheet1")
.Visible = จริง
ชีต("Sheet1") ย้ายหลังจาก:=ชีต(Worksheets.Count)
.Visible = เท็จ
จบด้วย
ชีต (lastSheet).Visible = False
ย่อยสิ้นสุด
- หน้า:
- 1
ไม่มีคำตอบสำหรับโพสต์นี้