By เจสัน ในวันเสาร์ที่ 09 พฤษภาคม 2020
โพสต์ใน Kutools สำหรับ Excel
ตอบกลับ 1
การกดไลค์ 0
เข้าชม 5.7K
โหวต 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
ย่อยสิ้นสุด
·
3 ปีที่ผ่านมา
·
0 ชอบ
·
0 คะแนน
·
0 คอมเมนต์
·
ดูโพสต์แบบเต็ม