Σε αυτό το άρθρο θα δημιουργήσουμε μια μακροεντολή για τη διαγραφή της ενότητας από το βιβλίο εργασίας.
Θα χρησιμοποιήσουμε το MainModule ως πρώτη μονάδα.
Θέλουμε να απαλλαγούμε από αυτό το MainModule.
Κάντε κλικ σε αυτό το κουμπί για το ίδιο.
Λογική εξήγηση
Σε αυτό το άρθρο, έχουμε δημιουργήσει δύο μακροεντολές, DeleteVBComponent και call_procedure.
ΔιαγραφήVBComponent
Παίρνει ως είσοδο το όνομα του βιβλίου εργασίας και το όνομα της λειτουργικής μονάδας και διαγράφει τη μονάδα από το βιβλίο εργασίας.
διαδικασία κλήσης
Χρησιμοποιείται για να καλέσετε τη μακροεντολή DeleteVBComponent με το ενεργό βιβλίο εργασίας και το MainModule ως εισόδους.
Επεξήγηση κώδικα
Application.DisplayAlerts = Λάθος
Αυτός ο κωδικός χρησιμοποιείται για την απενεργοποίηση του μηνύματος ειδοποίησης.
wb.VBProject.VBComponents.Remove wb.VBProject.VBComononents (CompName)
Αυτός ο κωδικός χρησιμοποιείται για την αφαίρεση της μονάδας από το βιβλίο εργασίας.
Application.DisplayAlerts = True
Αυτός ο κωδικός χρησιμοποιείται για να ενεργοποιήσει το μήνυμα ειδοποίησης.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Sub DeleteVBComponent (ByVal wb As Workbook, ByVal CompName As String) 'Απενεργοποίηση του μηνύματος προειδοποίησης Application.DisplayAlerts = Λάθος' Αγνοήστε τα σφάλματα στο Error Resume Next 'Διαγράψτε το συστατικό wb.VBProject.VBComponents.Remove wb.VBPPjects ) Στο Σφάλμα GoTo 0 'Ενεργοποίηση του μηνύματος ειδοποίησης Application.DisplayAlerts = True End Sub subs Call_procedure ()' Calling DeleteVBComponent macro DeleteVBComponent ActiveWorkbook, "MainModule" End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email