Створіть список усіх надбудов Excel за допомогою макросу VBA

Зміст

Таким чином, ви можете відобразити макроконтрольований список усіх надбудов і відразу побачити, які надбудови увімкнено, а які ні

Хочете запитати, які надбудови в системі налаштовані за допомогою макроконтролю? Це корисно, наприклад, щоб побачити, чи користувачі налаштували всі передбачувані надбудови.

Ви можете встановити надбудови для розширення функцій Excel. Це розширення програм, які налаштовуються за допомогою диспетчера надбудов. Цю команду можна знайти під час використання Excel до версії 2003 за допомогою меню EXTRAS-ADD-INS.

Якщо ви використовуєте Excel 2007, викликайте цей список за допомогою кнопки Office, а потім - ВИКЛАДНІ ВАРІАНТИ - ДОДАТКИ - ПЕРЕЙТИ ДО.

Якщо ви використовуєте програму Excel 2010, натисніть на ФАЙЛ, а потім також на ВАРІАНТИ, а потім на ДОДАТКИ - ПЕРЕЙТИ ДО.

Якщо ви хочете звернутись до списку з макросу, використовуйте об’єкт AddIns. У наведеному нижче макросі відображається список усіх надбудов у новій таблиці Excel. Для кожного запису у списку логічне значення вказує, чи встановлено відповідну надбудову чи ні. Ось так виглядає макрос:

Sub ShowAddIns ()
Dim i як ціле число
З робочими книжками. Доп. Робочі аркуші (1)
Для i = 1 До AddIns.Count
.Cells (i + 1, 1) .Value = AddIns (i) .Повне ім'я
.Cells (i + 1, 2) .Value = AddIns (i) .Встановлено
Далі i
.Range ("a1: b1"). Значення = масив ("Надбудова", "Встановлено")
.Range ("a1: b1"). Font.Bold = True
.Range ("a1: b1"). EntireColumn.AutoFit
Закінчити з
End Sub

Після запуску макрос створює список надбудов. Наступний малюнок показує, як може виглядати цей список:

Використовуйте властивість Name замість властивості FullName, якщо ви не хочете читати повний шлях, а лише ім’я файлу надбудов.

Щоб ввести макрос, натисніть комбінацію клавіш ALT F11 в Excel. Це викликає редактор VBA. Використовуйте команду INSERT - MODULE, щоб вставити порожній аркуш модуля. Щоб запустити макрос, натисніть комбінацію клавіш ALT F8 у програмі Excel.

Ви допоможете розвитку сайту, поділившись сторінкою з друзями

wave wave wave wave wave