Η εισαγωγή μιας σειράς στο VBA είναι κάπως διαφορετική από την εισαγωγή μιας στήλης στο VBA, στις στήλες χρησιμοποιήσαμε ολόκληρη τη μέθοδο στήλης, αλλά για να εισαγάγουμε σειρές χρησιμοποιούμε τη μέθοδο φύλλου εργασίας με την εντολή εισαγωγής για να εισαγάγουμε μια σειρά, παρέχουμε επίσης μια αναφορά σειράς όπου θέλουμε να εισαγάγουμε μια άλλη σειρά παρόμοια με τις στήλες.
Εισαγωγή γραμμής με VBA Excel
Μπορούμε να εκτελέσουμε όλες τις ενέργειες που κάνουμε υπερέχοντας με κωδικοποίηση VBA. Μπορούμε να αντιγράψουμε, να επικολλήσουμε, μπορούμε να διαγράψουμε και μπορούμε να κάνουμε πολλά περισσότερα πράγματα μέσω της γλώσσας VBA. Το "Inserting Row" είναι μια από αυτές τις μεθόδους που κάνουμε συχνά στο Excel. Σε αυτό το άρθρο, θα σας δείξουμε πώς να εκτελέσετε τη μέθοδο εισαγωγής σειράς στο VBA.
Πώς να εισαγάγετε τη σειρά στο Excel VBA;
Ακολουθούν οι διάφορες μέθοδοι χρήσης του VBA για την εισαγωγή μιας σειράς στο Excel.
Μέθοδος # 1 - Χρήση της μεθόδου εισαγωγής
Στο VBA, για να εισαγάγουμε μια σειρά, πρέπει να χρησιμοποιήσουμε μια παρόμοια τεχνική που χρησιμοποιήσαμε στο φύλλο εργασίας του excel. Στο VBA, πρέπει να χρησιμοποιήσουμε το αντικείμενο εύρους για να εισαγάγουμε τη σειρά.
Για παράδειγμα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub InsertRow_Example1 () Range ("A1"). Εισαγάγετε End Sub
Αυτός ο κωδικός θα μετακινήσει προς τα κάτω το κελί A1 στο B1 και θα εισαγάγει το μόνο κελί.
Αυτό θα προκαλέσει τόσα πολλά προβλήματα όσον αφορά το χειρισμό των δεδομένων. Αυτό θα μετακινήσει το αναφερόμενο κελί προς τα κάτω και όλες οι άλλες σχετικές στήλες παραμένουν οι ίδιες.
Μέθοδος # 2 - Χρήση ολόκληρης της ιδιότητας σειράς
Επάνω σειρά εισαγωγής, μπορούμε πραγματικά να χρησιμοποιήσουμε διάφορες μεθόδους. Η παρακάτω μέθοδος θα εισαγάγει ολόκληρη τη σειρά πάνω από το επιλεγμένο κελί.
Βήμα 1: Αναφέρετε πρώτα τη διεύθυνση κελιού .
Κώδικας:
Sub InsertRow_Example2 () Εύρος ("A1"). Τέλος Υποτ
Βήμα 2: Αντί να χρησιμοποιείτε απλά επιλέξτε την ιδιότητα " Ολόκληρη σειρά "
Κώδικας:
Sub InsertRow_Example2 () Εύρος ("A1"). Ολόκληρη η σειρά. Τέλος Υποτ
Βήμα 3: Μετά την πρόσβαση σε ολόκληρη την ιδιότητα σειράς, χρησιμοποιήστε τη μέθοδο εισαγωγής .
Κώδικας:
Sub InsertRow_Example2 () Range ("A1"). EntireRow. Insert End Sub
Αυτό θα εισαγάγει τη σειρά πάνω από το κελί A1. Δεδομένου ότι το A1 είναι η πρώτη σειρά, θα μετακινηθεί προς τα κάτω το κελί A1 στο B1.
Όπως μπορείτε στην παραπάνω εικόνα, πρέπει να εισαγάγετε ολόκληρη τη σειρά και όχι το μεμονωμένο κελί.
Μέθοδος # 3 - Χρήση αριθμών σειράς
Στο παραπάνω παράδειγμα, μόλις χρησιμοποιήσαμε τη διεύθυνση ενός κελιού και εισαγάγαμε τη σειρά. Ωστόσο, μπορούμε επίσης να τα εισαγάγουμε χρησιμοποιώντας αριθμούς σειράς.
Ας υποθέσουμε ότι θέλετε να εισαγάγετε μια σειρά κάτω από την 5η σειρά. Πρώτον, πρέπει να αναφέρουμε τους αριθμούς σειράς χρησιμοποιώντας το αντικείμενο RANGE.
Κώδικας:
Sub InsertRow_Example3 () Εύρος ("6: 6"). Τέλος Υποτ
Δεδομένου ότι έχουμε αναφέρει ολόκληρη τη σειρά ως 6: 6, πρέπει να χρησιμοποιήσουμε ολόκληρη την ιδιότητα Row εδώ. Μπορούμε κατ 'ευθείαν να χρησιμοποιήσουμε τη μέθοδο "INSERT".
Κώδικας:
Sub InsertRow_Example3 () Εύρος ("6: 6"). Εισαγωγή End Sub
Αυτό θα εισαγάγει επίσης ολόκληρη τη σειρά και όχι το μεμονωμένο κελί.
Σε περίπτωση που θέλετε να εισαγάγετε δύο σειρές κάτω από την 5η σειρά, πρέπει πρώτα να επιλέξετε 2 σειρές και στη συνέχεια να χρησιμοποιήσετε τη μέθοδο INSERT.
Sub InsertRow_Example3 () Εύρος ("6: 7"). Εισαγωγή End Sub
Αυτό θα εισαγάγει δύο σειρές κάτω από την 5η σειρά.
Έτσι, μπορούμε να εισαγάγουμε όσο το δυνατόν περισσότερες σειρές στο φύλλο εργασίας.
Μέθοδος # 4 - Χρήση της ιδιότητας ενεργού κελιού
Μπορούμε να χρησιμοποιήσουμε την ιδιότητα Active Cell VBA για εισαγωγή γραμμών. Το ενεργό κελί δεν είναι παρά ένα επιλεγμένο κελί.
Ας υποθέσουμε ότι βρίσκεστε στο κελί B5 και θέλετε να εισαγάγετε μια σειρά παραπάνω, μπορείτε να χρησιμοποιήσετε την ενεργή ιδιότητα κελιού.
Υπο InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Αυτό θα εισαγάγει τη σειρά πάνω από το ενεργό κελί.
Μέθοδος # 5 - Χρήση ιδιότητας ενεργού κελιού με συνάρτηση όφσετ
Ας υποθέσουμε ότι θέλετε να εισαγάγετε μια σειρά μετά από 2 σειρές του ενεργού κελιού, πρέπει να χρησιμοποιήσουμε τη λειτουργία Offset για να αντισταθμίσετε τον αριθμό των σειρών.
Ας υποθέσουμε ότι βρίσκεστε στο κελί B5.
Εάν θέλετε να εισαγάγετε τη σειρά μετά τη 2η σειρά από το ενεργό κελί, τότε μπορούμε να χρησιμοποιήσουμε τον παρακάτω κώδικα.
Κώδικας:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Αυτό θα εισαγάγει τη σειρά μετά την 6η σειρά.
Εισαγωγή εναλλακτικών σειρών
Η εισαγωγή εναλλακτικών σειρών είναι πολλές φορές έχω συναντήσει πολλές φορές. Για να δείτε την παρακάτω εικόνα δεδομένων.
Τώρα πρέπει να εισαγάγουμε εναλλακτικές σειρές. Πρέπει να χρησιμοποιήσουμε βρόχους για να εισάγουμε κάθε εναλλακτική σειρά.
Κώδικας:
Sub InsertRow_Example6 () Dim K As Integer Dim X As Integer X = 1 For K = 1 to 4 Cells (X, 1). EntireRow.Insert X = X + 2 Next K End Sub
Αυτό θα εισαγάγει σειρές σαν αυτό.
Μπορείτε να κατεβάσετε αυτό το VBA Insert Row Excel εδώ. Πρότυπο VBA Insert Row Excel
