Πώς να αφαιρέσετε τη γραμμή Vba

Πίνακας περιεχομένων:

Πώς να αφαιρέσετε τη γραμμή Vba
Πώς να αφαιρέσετε τη γραμμή Vba

Βίντεο: Πώς να αφαιρέσετε τη γραμμή Vba

Βίντεο: Πώς να αφαιρέσετε τη γραμμή Vba
Βίντεο: Кастомизация MsgBox - (Серия VBA 21) 2024, Νοέμβριος
Anonim

Η διαγραφή μιας γραμμής VBA είναι μια τυπική και συνήθως χρησιμοποιείται από τους προγραμματιστές. Ωστόσο, για λιγότερο έμπειρους χρήστες, αυτή η λειτουργία μπορεί να προκαλέσει ορισμένες δυσκολίες.

Πώς να αφαιρέσετε τη γραμμή vba
Πώς να αφαιρέσετε τη γραμμή vba

Οδηγίες

Βήμα 1

Βεβαιωθείτε ότι κατανοείτε τη σύνταξη για την εντολή διαγραφής γραμμής χρησιμοποιώντας την εντολή Διαγραφή. Έτσι, για τη σειρά που περιέχει το ενεργό κελί, η εντολή θα μοιάζει με το ActiveCell. EntireRow. Delete και η ανάγκη διαγραφής ορισμένων σειρών θα το αλλάξει σε σειρές ("first_line_number: last_line_number"). Διαγραφή (για Excel).

Βήμα 2

Χρησιμοποιήστε μια παρόμοια σύνταξη για την εντολή διαγραφής επιλεγμένης σειράς στο VBA, αλλά με σύνθετες επιλογές. Για να το κάνετε αυτό, πρώτα ορίστε την απαιτούμενη ενέργεια: Private Sub Delete line_Click (). Καθορίστε την απαιτούμενη εφαρμογή Dim ea As Excel. Εφαρμογή και επιλέξτε το απαιτούμενο βιβλίο εργασίας Dim ewb As Excel. Workbook. Στη συνέχεια, καθορίστε τη σελίδα του Dim ews As Excel. Έγγραφο φύλλου εργασίας προς επεξεργασία.

Βήμα 3

Περάστε μία γραμμή και εισαγάγετε το σύνολο XLAp = CreateObject (Class: = "Excel. Application"). Ορίστε την ακριβή τοποθέτηση στην ακόλουθη γραμμή: Ορισμός XLWb = XLAp. Workbooks. Άνοιγμα ("drive_name: 1.xls") Χρησιμοποιήστε την ακόλουθη τιμή: Ορισμός XLWs = XLWb. ActiveSheet.

Βήμα 4

Περάστε μια άλλη γραμμή και εισαγάγετε την τιμή της επιλεγμένης εργασίας: XLWs. Rows (1). Διαγραφή. Αποθηκεύστε το επεξεργασμένο έγγραφο: XLWb. Αποθήκευση. Κλείστε την εφαρμογή ανοιχτού κώδικα: XLAp. Quit.

Βήμα 5

Παράλειψη της επόμενης γραμμής και αντικατάσταση των μεταβλητών με αντικείμενα μνήμης: Ορισμός XLWs = Τίποτα. Επαναλάβετε την ίδια εντολή για κάθε ανοιχτή μεταβλητή: Ορισμός XLWb = Τίποτα και τελικά η τελευταία: Ορισμός XLAp = Τίποτα. Ολοκληρώστε την εντολή με το τυπικό End Sub

Βήμα 6

Χρησιμοποιήστε μακροεντολές για να εκτελέσετε πιο πολύπλοκες λειτουργίες για να διαγράψετε περιττές γραμμές σε ένα έγγραφο. Για να το κάνετε αυτό, δημιουργήστε ένα νέο βιβλίο εργασίας του Excel και εισαγάγετε τις απαιτούμενες τιμές. Ανοίξτε το μενού "Υπηρεσία" στην επάνω γραμμή εργαλείων του παραθύρου προγράμματος και επιλέξτε το στοιχείο "Μακροεντολή". Επιλέξτε το δευτερεύον στοιχείο "Visual Basic Editor" και αναπτύξτε το μενού "Εισαγωγή". Επιλέξτε το στοιχείο "Module" και εισαγάγετε το δημιουργημένο έγγραφο. Επιστρέψτε στο μενού "Εργαλεία" και πάλι πάλι στο στοιχείο "Μακροεντολή". Χρησιμοποιήστε το υπο-στοιχείο "Μακροεντολές" και καθορίστε το νέο που δημιουργήσατε. Εκτελέστε τη μακροεντολή κάνοντας κλικ στο κουμπί Εκτέλεση.

Συνιστάται: