Hello. With only one of my worksheets, whenever I click on one of the tabs listed on the left side of the screen, that tab then goes to the top of the list and my tabs along the bottom of the Excel file are automatically reordered. This is not occurring with other Excel worksheets. In those other worksheets, I can navigate to one tab or another by clicking on the list and everything stays in the same order. But not on this one Excel worksheet. I want to stop the tabs from being re-ordered. In the screenshot, for example, you'll see Jan 6-12 and Jan 13-19 listed at the bottom of the list, whereas before those were listed at the top. Can you help me out on this? This is on a Windows 10 system with Excel 2007. I tried to upload a screenshot by clicking on the Attachments box, but don't seem to be able to.

Νέα

Τα φύλλα εργασίας αναδιατάσσονται όποτε κάνω κλικ σε ένα

Σάββατο, Μάιος 09, 2020

1 Απαντήσεις

7.8K Επισκέψεις

Γειά σου. Με ένα μόνο από τα φύλλα εργασίας μου, κάθε φορά που κάνω κλικ σε μία από τις καρτέλες που αναφέρονται στην αριστερή πλευρά της οθόνης, αυτή η καρτέλα πηγαίνει στην κορυφή της λίστας και οι καρτέλες μου στο κάτω μέρος του αρχείου Excel αναδιατάσσονται αυτόματα. Αυτό δεν συμβαίνει με άλλα φύλλα εργασίας του Excel. Σε αυτά τα άλλα φύλλα εργασίας, μπορώ να πλοηγηθώ στη μία ή την άλλη καρτέλα κάνοντας κλικ στη λίστα και όλα παραμένουν με την ίδια σειρά. Αλλά όχι σε αυτό το φύλλο εργασίας του Excel. Θέλω να σταματήσω την αναδιάταξη των καρτελών. Στο στιγμιότυπο οθόνης, για παράδειγμα, θα δείτε τις 6-12 Ιανουαρίου και τις 13-19 Ιανουαρίου να εμφανίζονται στο κάτω μέρος της λίστας, ενώ προηγουμένως αυτές αναφέρονται στην κορυφή. Μπορείτε να με βοηθήσετε σε αυτό; Αυτό είναι σε ένα σύστημα Windows 10 με Excel 2007. Προσπάθησα να ανεβάσω ένα στιγμιότυπο οθόνης κάνοντας κλικ στο πλαίσιο Συνημμένα, αλλά δεν φαίνεται να μπορώ.

Lewis-H

4 χρόνια πριν

#2132

Αυτό θα μετακινήσει το κρυφό σας φύλλο στο τέλος όλων των ορατών φύλλων:
Sub test ()
Με Φύλλα ("Φύλλο1")
.Ορατό = Αληθινό
Φύλλα("Φύλλο1").Μετακίνηση Μετά:=Φύλλα(Φύλλα.Αριθμός)
.Ορατό = Λάθος
Τέλος με
Sub End
Και αυτό θα μετακινήσει το κρυφό σας φύλλο στο τέλος όλων των κρυφών και ορατών φύλλων:
Sub moveHiddenSheet()
Dim ws, x, lastSheet
x = 0
Για ws = Φύλλα εργασίας. Μετρήστε στο 0 Βήμα -1
x = x + 1
If Sheets(Worksheets.Count - x).Visible = False Τότε
Φύλλα(ws).Visible = xlSheetVisible
lastSheet = Φύλλα(ws).Όνομα
Έξοδος για
End If
Επόμενα ws
Με Φύλλα ("Φύλλο1")
.Ορατό = Αληθινό
Φύλλα("Φύλλο1").Move After:=Φύλλα(Φύλλα εργασίας.Count)
.Ορατό = Λάθος
Τέλος με
Φύλλα(lastSheet).Visible = False
Sub End

σελίδα:
1

Δεν υπάρχουν ακόμη απαντήσεις για αυτήν την ανάρτηση.

Παρακαλούμε συνδεθείτε για να δημοσιεύσετε μια απάντηση

Θα χρειαστεί να συνδεθείτε για να μπορέσετε να δημοσιεύσετε μια απάντηση. Συνδεθείτε χρησιμοποιώντας τη φόρμα στα δεξιά ή εγγραφείτε λογαριασμό εάν είστε νέος εδώ. Εγγραφείτε εδώ "