Δημιουργήστε μια λίστα με όλα τα πρόσθετα του Excel χρησιμοποιώντας μια μακροεντολή VBA

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

Με αυτόν τον τρόπο, μπορείτε να εμφανίσετε μια μακρο-ελεγχόμενη λίστα με όλα τα πρόσθετα και να δείτε αμέσως ποια πρόσθετα είναι ενεργοποιημένα και ποια δεν

Θα θέλατε να υποβάλετε ερώτημα για τα μακρο-ελεγχόμενα ποια πρόσθετα έχουν ρυθμιστεί σε ένα σύστημα; Αυτό είναι χρήσιμο, για παράδειγμα, για να δείτε αν οι χρήστες έχουν ρυθμίσει όλα τα προβλεπόμενα πρόσθετα.

Μπορείτε να εγκαταστήσετε πρόσθετα για να επεκτείνετε τις λειτουργίες του Excel. Αυτές είναι επεκτάσεις προγράμματος που έχουν ρυθμιστεί χρησιμοποιώντας τη Διαχείριση πρόσθετων. Μπορείτε να βρείτε αυτήν την εντολή όταν χρησιμοποιείτε το Excel έως την έκδοση 2003 μέσω του μενού EXTRAS-ADD-INS.

Εάν χρησιμοποιείτε το Excel 2007, καλέστε αυτήν τη λίστα χρησιμοποιώντας το κουμπί του Office και, στη συνέχεια, EXCEL OPTIONS - ADD -INS - SHO TO.

Εάν χρησιμοποιείτε το Excel 2010 κάντε κλικ στο ΑΡΧΕΙΟ, στη συνέχεια επίσης στις ΕΠΙΛΟΓΕΣ και στη συνέχεια στο ΠΡΟΣΘΗΚΗ - ΕΠΙΣΚΕΗ.

Εάν θέλετε να αντιμετωπίσετε τη λίστα από μακροεντολή, χρησιμοποιήστε το αντικείμενο AddIns. Η ακόλουθη μακροεντολή εμφανίζει μια λίστα με όλα τα πρόσθετα σε ένα νέο υπολογιστικό φύλλο Excel. Για κάθε καταχώριση στη λίστα, μια λογική τιμή υποδεικνύει εάν το κατάλληλο πρόσθετο είναι εγκατεστημένο ή όχι. Αυτή είναι η μακροεντολή:

Sub ShowAddIns ()
Dim i As Integer
Με βιβλία εργασίας. Προσθήκη. Φύλλα εργασίας (1)
Για i = 1 To AddIns.Count
. Κελιά (i + 1, 1). Αξία = AddIns (i) .Πλήρες όνομα
. Κελιά (i + 1, 2). Αξία = AddIns (i). Εγκατεστημένο
Επόμενο i
.Range ("a1: b1"). Value = Array ("Add-In", "Installed")
.Range ("a1: b1"). Font.Bold = True
.Range ("a1: b1"). EntireColumn.AutoFit
Τέλος με
Τέλος υπο

Μόλις ξεκινήσει, η μακροεντολή δημιουργεί μια λίστα με τα πρόσθετα. Η παρακάτω εικόνα δείχνει πώς μπορεί να μοιάζει αυτή η λίστα:

Χρησιμοποιήστε την ιδιότητα Όνομα αντί για την ιδιότητα FullName εάν δεν θέλετε να διαβάσετε ολόκληρη τη διαδρομή αλλά μόνο το όνομα αρχείου των πρόσθετων.

Για να εισαγάγετε τη μακροεντολή, πατήστε το συνδυασμό πλήκτρων ALT F11 στο Excel. Αυτό καλεί τον επεξεργαστή VBA. Χρησιμοποιήστε την εντολή INSERT - MODULE για να εισαγάγετε ένα κενό φύλλο λειτουργικής μονάδας. Για να ξεκινήσετε τη μακροεντολή, πατήστε το συνδυασμό πλήκτρων ALT F8 στο Excel.

Θα βοηθήσει στην ανάπτυξη του τόπου, μοιράζονται τη σελίδα με τους φίλους σας

wave wave wave wave wave