0
Undo
Bình chọn
Xin chào. Chỉ với một trong các trang tính của tôi, bất cứ khi nào tôi nhấp vào một trong các tab được liệt kê ở bên trái của màn hình, tab đó sẽ chuyển đến đầu danh sách và các tab của tôi dọc theo cuối tệp Excel sẽ tự động được sắp xếp lại. Điều này không xảy ra với các trang tính Excel khác. Trong các trang tính khác đó, tôi có thể điều hướng đến tab này hoặc tab khác bằng cách nhấp vào danh sách và mọi thứ vẫn theo thứ tự như cũ. Nhưng không phải trên một trang tính Excel này. Tôi muốn ngăn các tab được sắp xếp lại. Ví dụ: trong ảnh chụp màn hình, bạn sẽ thấy ngày 6-12 tháng 13 và ngày 19-10 tháng 2007 được liệt kê ở cuối danh sách, trong khi trước đó chúng được liệt kê ở trên cùng. Bạn có thể giúp tôi về điều này? Đây là trên hệ thống Windows XNUMX với Excel XNUMX. Tôi đã cố gắng tải lên ảnh chụp màn hình bằng cách nhấp vào hộp Tệp đính kèm, nhưng dường như không được.
Thao tác này sẽ di chuyển trang tính ẩn của bạn đến cuối tất cả các trang tính hiển thị:
Kiểm tra phụ ()
Với Trang tính ("Trang 1")
.Vible = True
Trang tính ("Trang tính1"). Di chuyển sau: = Trang tính (Trang tính.Count)
.Vible = False
Kết thúc với
End Sub
Và điều này sẽ di chuyển trang tính ẩn của bạn đến cuối tất cả các trang tính ẩn và hiển thị:
Sub moveHiddenSheet ()
Làm mờ ws, x, lastSheet
x = 0
Đối với ws = Worksheets.Count Tới 0 Bước -1
x = x + 1
If Sheets (Worksheets.Count - x) .Vible = False Thì
Trang tính (ws) .Vosystem = xlSheetVosystem
lastSheet = Sheets (ws) .Name
Thoát cho
Cuối Nếu
Tuần tiếp theo
Với Trang tính ("Trang 1")
.Vible = True
Trang tính ("Trang tính1"). Di chuyển sau: = Trang tính (Worksheets.Count)
.Vible = False
Kết thúc với
Trang tính (lastSheet) .Vible = False
End Sub
Kiểm tra phụ ()
Với Trang tính ("Trang 1")
.Vible = True
Trang tính ("Trang tính1"). Di chuyển sau: = Trang tính (Trang tính.Count)
.Vible = False
Kết thúc với
End Sub
Và điều này sẽ di chuyển trang tính ẩn của bạn đến cuối tất cả các trang tính ẩn và hiển thị:
Sub moveHiddenSheet ()
Làm mờ ws, x, lastSheet
x = 0
Đối với ws = Worksheets.Count Tới 0 Bước -1
x = x + 1
If Sheets (Worksheets.Count - x) .Vible = False Thì
Trang tính (ws) .Vosystem = xlSheetVosystem
lastSheet = Sheets (ws) .Name
Thoát cho
Cuối Nếu
Tuần tiếp theo
Với Trang tính ("Trang 1")
.Vible = True
Trang tính ("Trang tính1"). Di chuyển sau: = Trang tính (Worksheets.Count)
.Vible = False
Kết thúc với
Trang tính (lastSheet) .Vible = False
End Sub
- Trang :
- 1
Không có câu trả lời cho bài viết này.