Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε το VBA για εισαγωγή γραμμών και στηλών στο Excel.
Για την εισαγωγή γραμμών ή στηλών θα χρησιμοποιήσουμε το Μέθοδος εισαγωγής.
Εισαγωγή μίας γραμμής ή στήλης
Εισαγωγή νέας σειράς
Για να εισαγάγετε μια μόνο γραμμή, μπορείτε να χρησιμοποιήσετε το αντικείμενο γραμμών:
| 1 | Σειρές (4). Εισαγωγή |
Or μπορείτε να χρησιμοποιήσετε το Range Object μαζί με το EntireRow:
| 1 | Εύρος ("b4"). EntireRow.Insert |
Εισαγωγή νέας στήλης
Παρόμοια με την εισαγωγή γραμμών, μπορούμε να χρησιμοποιήσουμε το αντικείμενο στηλών για να εισαγάγουμε μια στήλη:
| 1 | Στήλες (4). Εισαγωγή |
Or το αντικείμενο εύρους, μαζί με το EntireColumn:
| 1 | Εύρος ("b4"). EntireColumn.Insert |
Εισαγωγή πολλαπλών σειρών ή στηλών
Εισαγωγή πολλαπλών σειρών
Κατά την εισαγωγή πολλών γραμμών με το αντικείμενο γραμμών, πρέπει να εισαγάγετε τις γραμμές σε εισαγωγικά:
| 1 | Σειρές ("4: 6"). Εισαγωγή |
Η εισαγωγή πολλαπλών σειρών με το αντικείμενο εύρους λειτουργεί το ίδιο με μια μεμονωμένη σειρά:
| 1 | Εύρος ("b4: b6"). EntireRow.Insert |
Εισαγωγή πολλαπλών στηλών
Κατά την εισαγωγή πολλών στηλών με το αντικείμενο στηλών, εισαγάγετε τη στήλη γράμματα σε εισαγωγικά:
| 1 | Στήλες ("B: D"). Εισαγωγή |
Η εισαγωγή πολλών στηλών με το αντικείμενο εύρους λειτουργεί το ίδιο όπως και με μία μόνο στήλη:
| 1 | Εύρος ("b4: d4"). EntireColumn.Insert |
Εισαγωγή - Shift & CopyOrigin
ο Μέθοδος εισαγωγής έχει δύο προαιρετικά ορίσματα:
- Μετατόπιση - Σε ποια κατεύθυνση θα μετατοπιστούν τα κελιά
- CopyOrigin - Ποια μορφοποίηση κελιού για αντιγραφή (πάνω, κάτω, αριστερά ή δεξιά)
Το όρισμα Shift δεν έχει σημασία κατά την εισαγωγή ολόκληρων γραμμών ή στηλώνΤο Σας επιτρέπει μόνο να υποδείξετε την αλλαγή προς τα κάτω ή τη μετάβαση προς τα δεξιά:
- xlShiftDown - Μετατοπίστε τα κελιά προς τα κάτω
- xlShiftToRight - Μετακινήστε τα κελιά προς τα δεξιά
Όπως μπορείτε να δείτε, δεν μπορείτε να μετακινηθείτε προς τα επάνω ή προς τα δεξιά.
ο CopyOrigin Το όρισμα έχει δύο πιθανές εισόδους:
- xlFormatFromLeftorAbove - (0) Τα κελιά που έχουν εισαχθεί πρόσφατα λαμβάνουν μορφοποίηση από τα κελιά επάνω ή αριστερά
- xlFormatFromRightorBelow (1) Τα κελιά που έχουν εισαχθεί πρόσφατα λαμβάνουν μορφοποίηση από τα κελιά κάτω ή δεξιά.
Ας δούμε μερικά παραδείγματα του CopyOrigin διαφωνία. Ακολουθούν τα αρχικά μας δεδομένα:
Αυτό το παράδειγμα θα εισαγάγει μια σειρά, παίρνοντας τη μορφοποίηση από την παραπάνω σειρά.
| 1 | Σειρές (5). Εισαγωγή, xlFormatFromLeftOrAbove |
Αυτό το παράδειγμα θα εισαγάγει μια σειρά, παίρνοντας τη μορφοποίηση από την παρακάτω σειρά.
| 1 | Σειρές (5). Εισαγωγή, xlFormatFromRightOrBelow |
Άλλα Εισαγωγή Παραδειγμάτων
Εισαγωγή αντιγραμμένων σειρών ή στηλών
Εάν θέλετε να εισαγάγετε μια αντιγραμμένη γραμμή, θα χρησιμοποιούσατε κώδικα όπως αυτός:
| 12 | Εύρος ("1: 1"). ΑντιγραφήΕύρος ("5: 5"). Εισαγωγή |
Εδώ αντιγράφουμε τη σειρά 1 και την εισάγουμε στη σειρά 5.
Εισαγωγή γραμμών με βάση την τιμή κελιού
Αυτό θα πραγματοποιήσει βρόχο σε ένα εύρος, εισάγοντας γραμμές με βάση τις τιμές κελιών:
| 1234567891011 | Sub InsertRowswithSpecificValue ()Dim cell As RangeΓια κάθε κελί σε εύρος ("b2: b20")Εάν cell.Value = "insert" Τότεcell.EntireRow.InsertΤέλος εανΕπόμενο κελίΤέλος υπο |
Διαγραφή γραμμών ή στηλών
Για να διαγράψετε γραμμές ή στήλες, απλώς χρησιμοποιήστε το Διαγράφω μέθοδος.
| 1234567 | Σειρές (1). ΔιαγραφήΕύρος ("a1"). EntireRow.DeleteΣτήλες (1). ΔιαγραφήΕύρος ("a1"). EntireColumn.Delete |
