Πώς να ορίσετε τη σειρά καρτελών κελιών ή ξεκλειδωμένων κελιών στο 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:

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

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

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

• Πώς να αναφέρετε το όνομα της καρτέλας στο κελί στο Excel;
• Πώς να παραλείψετε κελιά ή στήλες κατά την καρτέλα στο Excel;