Създайте списък с всички добавки на Excel, използвайки макрос VBA

Съдържание

По този начин можете да покажете макроконтролиран списък с всички добавки и веднага да видите кои добавки са включени и кои не

Искате ли да попитате макроконтролирани кои добавки са настроени в система? Това е полезно например, за да видите дали потребителите са настроили всички планирани добавки.

Можете да инсталирате добавки, за да разширите функциите на Excel. Това са програмни разширения, които се настройват с помощта на мениджъра на добавки. Можете да намерите тази команда, когато използвате Excel до версия 2003 чрез менюто EXTRAS-ADD-INS.

Ако използвате Excel 2007, извикайте този списък с помощта на бутона Office и след това EXCEL OPTIONS - ADD -INS - GO TO.

Ако използвате Excel 2010, щракнете върху ФАЙЛ, след това ОПЦИИ и след това върху ДОБАВКИ - ОТВЕЖДАНЕ.

Ако искате да адресирате списъка от макрос, използвайте обекта AddIns. Следният макрос показва списък с всички добавки в нова електронна таблица на Excel. За всеки запис в списъка логическа стойност показва дали подходящата добавка е инсталирана или не. Ето как изглежда макросът:

Sub ShowAddIns ()
Dim i As Integer
С Workbooks.Add.Worksheets (1)
За i = 1 към AddIns.Count
.Клетки (i + 1, 1). Стойност = добавки (i). Пълно име
.Клетки (i + 1, 2) .Value = AddIns (i) .Инсталиран
Следва i
.Range ("a1: b1"). Value = Array ("Add-In", "Installed")
.Range ("a1: b1"). Font.Bold = Вярно
.Range ("a1: b1"). EntireColumn.AutoFit
Край с
End Sub

След като стартира, макросът създава списък с добавките. Следващата илюстрация показва как може да изглежда този списък:

Използвайте свойството Name вместо свойството FullName, ако не искате да прочетете пълния път, а само името на файла на добавките.

За да въведете макроса, натиснете клавишната комбинация ALT F11 в Excel. Това извиква редактора на VBA. Използвайте командата INSERT - MODULE, за да вмъкнете празен модулен лист. За да стартирате макроса, натиснете клавишната комбинация ALT F8 в Excel.

Така ще помогнете за развитието на сайта, сподели с приятелите си

wave wave wave wave wave