Note: The other languages of the website are Google-translated. Back to English

Πώς να ορίσετε τη σειρά καρτελών κελιών ή ξεκλειδωμένων κελιών στο Excel;

Ας υποθέσουμε ότι πρέπει να ορίσετε τη σειρά καρτελών για τα δικά σας καθορισμένα κελιά, για παράδειγμα, πατήστε το πλήκτρο Tab θα μετακινηθεί από το κελί B5 στο C6, από το C6 στο D7, από το D7 στο E8, και στη συνέχεια επιστρέψτε στο B5 όταν αφήνετε το κελί E8 σε ένα φύλλο εργασίας όπως φαίνεται παρακάτω στιγμιότυπο οθόνης. Πώς να το πετύχετε; Αυτό το άρθρο παρέχει μια μέθοδο VBA για εσάς.

Ορίστε τη σειρά καρτελών κελιών ή ξεκλειδωμένων κελιών με κώδικα VBA


Ορίστε τη σειρά καρτελών κελιών ή ξεκλειδωμένων κελιών με κώδικα VBA

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

1. Στο φύλλο εργασίας πρέπει να ορίσετε τη σειρά καρτελών, κάντε δεξί κλικ στην καρτέλα φύλλων και κάντε κλικ στο Προβολή κωδικού από το μενού περιβάλλοντος.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Κώδικας παράθυρο.

Κωδικός VBA: Ορισμός σειράς καρτελών καρτελών ή ξεκλειδωμένων κελιών

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tabArray As Variant
    Dim i As Long
    tabArray = Array("B5", "C6", "D7", "E8")
    Application.ScreenUpdating = False
    For i = LBound(tabArray) To UBound(tabArray)
        If tabArray(i) = Target.Address(0, 0) Then
            If i = UBound(tabArray) Then
                Me.Range(tabArray(LBound(tabArray))).Select
            Else
                Me.Range(tabArray(i + 1)).Select
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Notes:

1) Στον κωδικό, B5, C6, D7, E8 είναι η σειρά των κελιών εισαγωγής και πρέπει να χρησιμοποιήσετε το κεφαλαίο γράμμα της διεύθυνσης κελιού. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.
2) Για το προστατευμένο φύλλο εργασίας, τα κελιά εισόδου πρέπει να ξεκλειδωθούν.

3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Από τώρα και στο εξής, μετά την εισαγωγή δεδομένων στο B5, ο δρομέας πηγαίνει στο C6 πατώντας το πλήκτρο Tab ή Enter, μετά πηγαίνει στο D7 κατά την έξοδο από το C6 και μετά μετακινείται στο D7, E8 στο τρέχον φύλλο εργασίας.


Σχετικά Άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (14)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορεί να χρησιμοποιηθεί για να εξαναγκάσει μια καρτέλα στο επόμενο ξεκλείδωτο κελί του φύλλου εργασίας; Για παράδειγμα, χρειάζομαι τον χειριστή να εισαγάγει (σάρωση) δεδομένα στο κελί A15 και, στη συνέχεια, θα πρέπει να μεταβεί στο C15, μετά στο E15, μετά στο G15 (που είναι το τέλος της σειράς) και μετά να επιστρέψει στο πρώτο κελί στην επόμενη σειρά, A16 και επαναλάβετε τη σειρά. Πρέπει να επιβάλω αυτό το μοτίβο καθώς ορισμένοι χειριστές χρησιμοποίησαν σαρωτές προγραμματισμένους σε καρτέλα και άλλοι είναι προγραμματισμένοι να εισάγουν. Ευχαριστώ!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να χρησιμοποιήσετε αυτόν τον ίδιο κωδικό για να εξαναγκάσετε την καρτέλα σε κάθε σειρά σε κάθε μη προστατευμένο κελί; Πρέπει να κάνω καρτέλα ξεκινώντας από το κελί A15 και, στη συνέχεια, να μεταβώ στο επόμενο μη προστατευμένο κελί (C15), μετά στο E15 και μετά στο G15. Μόλις είμαι εδώ, πρέπει να κάνω καρτέλα στο A16 και να επαναλάβω τη διαδικασία για το υπόλοιπο της φόρμας. Ο λόγος που το χρειάζομαι είναι ότι τα δεδομένα εισάγονται μέσω σαρωτή γραμμωτού κώδικα και ορισμένα είναι προγραμματισμένα σε καρτέλα και άλλα για εισαγωγή. Ευχαριστώ για τη βοήθειά σας σε αυτό. Σπινάζ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας και σας ευχαριστώ για τον κωδικό VBA για να ορίσετε τη σειρά των καρτελών σε ένα προστατευμένο φύλλο όπου οι ετικέτες ελέγχου φόρμας και τα αναπτυσσόμενα πλαίσια ελέγχου φόρμας είναι ξεκλειδωμένα και ο χρήστης μπορεί να περάσει και να συμπληρώσει τις πληροφορίες σε μια ετικέτα και κατά την καρτέλα σε μια αναπτυσσόμενη λίστα επιλέξτε τον αριθμό των στοιχείων που του δίνουν οι οδηγίες και έχω σημειώσει πρόοδο με τον κωδικό σας. Στην αρχή μπορούσα να κάνω καρτέλα μόνο σε κάθε ένα από τα στοιχεία ελέγχου φόρμας ετικέτας, τώρα μερικές φορές χτυπάω τις αναπτυσσόμενες λίστες. Θα μου άρεσε πολύ ένα turorial για το πώς να το κάνω αυτό
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Με τη σειρά που τα έχετε αναφέρει, το excel κάνει χωρίς κωδικό VBA. Κάντε τα να πάνε προς τα πίσω, τότε έχετε κάτι.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πρώτα επιλέξτε ποια κελιά θέλετε να έχετε απροστάτευτα.

Όταν προστατεύετε το φύλλο σας, θα ορίζει αυτόματα τη σειρά καρτελών σύμφωνα με τα μη προστατευμένα κελιά σας. Θα προωθήσει την καρτέλα από αριστερά προς τα δεξιά και από πάνω προς τα κάτω. Shift+Tab προς τα πίσω από τα δεξιά προς τα αριστερά και από κάτω προς τα πάνω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Evan,
Σας ευχαριστούμε για την κοινή χρήση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστούμε για τον κωδικό κατά την παραγγελία. Εργάζομαι σε ένα υπολογιστικό φύλλο που εισάγει πληροφορίες γραμμωτού κώδικα και πρέπει να εκτείνω έως και 300 κελιά και το πρόγραμμα μου επιτρέπει να εισάγω μόνο 142 κελιά. Υπάρχει τρόπος να προσθέσω περισσότερα για να πάρω μέχρι και 300;



Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Jeanne,
Ευχαριστώ για το σχόλιό σας.
Αλλά ο κώδικας δεν μπορεί να βελτιστοποιηθεί για να καλύψει τις ανάγκες σας. Συγνώμη για αυτό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
No me funcionó, lo coloqué en la hoja de trabajo, debe haber algún error, me podrían ayudar, necesito implementarlo en mi trabajo,

Atte,

Collins Neptali Arráiz López
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, υπάρχει τρόπος να πατήσετε απλώς enter χωρίς να εισάγετε τίποτα και να το μεταβείτε στην επόμενη επιλογή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, Νέος εδώ Ο κωδικός VBA λειτουργεί μέχρι να πατήσω ένα Pull Down Box, φτάνω στο πρώτο που κάνω την επιλογή μου, πατάω Tab και μετακινείται σε ένα κλειδωμένο κελί, Λειτουργεί σαν κελί στο οποίο δεν έχω εισαγάγει δεδομένα. Οποιοδήποτε προτάσεις; GlennD24
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Olá, o código VBA para definir a ordem das células desejadas funcionou perfeitamente. Eu percebi que para que ele funcione, é necessário entrar com um dado na célula e pressionar TAB ou ENTER.
PERGUNTA: Você tem como fazer este código percorrer todas as células (no meu caso são 31, sendo algumas vazias e outras com valores padrão) sem ter que entrar com dados nelas, somente pressionando ENTER.ABou Como eu tenho algumas células vazias e outras com valores, por padrão, eu gostaria de percorrer as células sem precisar entrar com dados em todas elas novamente, mas, somente alterando as células que forem preciso alterar.

Κείμενο μεταφρασμένο από το Google Translator
Γεια σας, ο κώδικας VBA για να ορίσετε τη σειρά των επιθυμητών κελιών λειτούργησε τέλεια. Συνειδητοποίησα ότι για να λειτουργήσει, είναι απαραίτητο να εισάγετε δεδομένα στο κελί και να πατήσετε TAB ή ENTER.
ΕΡΩΤΗΣΗ: Μπορείτε να κάνετε αυτόν τον κωδικό να περάσει από όλα τα κελιά (στην περίπτωσή μου υπάρχουν 31, άλλα είναι άδεια και άλλα με προεπιλεγμένες τιμές) χωρίς να χρειάζεται να εισάγετε δεδομένα σε αυτά, απλώς πατώντας TAB ή ENTER. Καθώς έχω μερικά άδεια κελιά και άλλα με τιμές, από προεπιλογή θα ήθελα να κάνω κύκλο στα κελιά χωρίς να χρειάζεται να εισαγάγω ξανά δεδομένα σε όλα, αλλά μόνο αλλάζοντας τα κελιά που πρέπει να αλλάξω.att

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω αντιγράψει τον κώδικά σας στο φύλλο εργασίας μου, αλλά μόλις το κλείσω και το ανοίξω ξανά για να το χρησιμοποιήσω ξανά, ο κώδικας έχει φύγει. Πώς μπορώ να το αποθηκεύσω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Anita,
Εάν θέλετε να διατηρήσετε τον κωδικό VBA για χρήση δυνατοτήτων, αφού προσθέσετε τον κωδικό VBA, αποθηκεύστε το βιβλίο εργασίας σας ως Βιβλίο εργασίας με δυνατότητα μακροεντολής Excel όπως φαίνεται στο στιγμιότυπο οθόνης παρακάτω. Στη συνέχεια, χρησιμοποιήστε το νέο αποθηκευμένο αρχείο στο μέλλον.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/Excel_macro-enabled_workbook.png
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL