VBA код за изброяване на всички добавки в Excel
В Excel можете да добавите или вмъкнете някои добавки за по-добра работа с данни. Както знаем, можем да отидем в прозореца с опции, за да видим всички добавки, но има ли някакъв начин да изброим всички добавки в лист? Сега, в този урок, той предоставя VBA код за изброяване на всички добавки в Excel.
1. Натиснете Alt + F11 клавиши, за да активирате прозореца на Microsoft Visual Basic за приложения.
2. кликване Поставете > Модулии поставете кода по-долу в празния скрипт.
VBA: Избройте всички добавки
Public Sub AllAddins()
'UpdatebyKutools20191031
Dim xWSh As Worksheet
Dim xWB As Workbook
Dim xAddin As AddIn
Dim xCOMAddin As COMAddIn
Dim xFA, xFCA As Integer
Dim xI As Integer
Dim xStr As String
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Addins List"
Set xWB = Application.ActiveWorkbook
Set xWSh = xWB.Worksheets.Item(xStr)
If Not xWSh Is Nothing Then
xWSh.Delete
End If
Set xWSh = xWB.Worksheets.Add
xWSh.Name = xStr
xWSh.Range("A1").Value = "Name"
xWSh.Range("B1").Value = "FullName"
xWSh.Range("C1").Value = "Installed"
For xFA = 1 To Application.AddIns.Count
Set xAddin = Application.AddIns(xFA)
xI = xFA + 1
Range("A" & xI).Value = xAddin.Name
Range("B" & xI).Value = xAddin.FullName
Range("C" & xI).Value = xAddin.Installed
Next xFA
xFA = (xFA + 2)
xWSh.Range("A" & xFA).Value = "Description"
xWSh.Range("B" & xFA).Value = "progID"
xWSh.Range("C" & xFA).Value = "Connect"
For xFCA = 1 To Application.COMAddIns.Count
xI = xFCA + xFA
Set xCOMAddin = Application.COMAddIns(xFCA)
Range("A" & xI).Value = xCOMAddin.Description
Range("B" & xI).Value = xCOMAddin.progID
Range("C" & xI).Value = xCOMAddin.Connect
Next xFCA
Application.DisplayAlerts = True
End Sub
3. Натиснете F5 за стартиране на кода, е създаден лист с име Addins List с всички добавки.
Деактивирайте добавките при стартиране на Excel
Може да сте инсталирали някои добавки във вашия Microsoft Excel, но сега трябва да деактивирате определена добавка при стартиране на Excel. Как да решим този проблем? Методът в тази статия може да ви помогне.
Експортирайте и запишете всеки работен лист като отделна нова работна книга в Excel
Да кажем, че искате да експортирате и запазите един или няколко работни листа като нова работна книга, как ще се справите с това? Обикновено можете да копирате всеки работен лист и да го поставите в нова работна книга. Но тук ви предлагаме няколко удобни трика за справяне с него:
Вмъкване на работни листове от друга работна книга
Понякога може да се наложи да импортирате работни листове от други работни книги. Ако копирате съдържанието на работните листове и го поставите в текущата работна книга, тя губи някои стилове на форматиране, като височина на ред и т.н. Тази статия описва някои удобни начини за бързо вмъкване на работни листове от други работни книги със загуба на данни и стилове на форматиране.
Най-добрите инструменти за производителност в офиса
Kutools за Excel решава повечето от вашите проблеми и увеличава вашата производителност с 80%
- Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
- Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
- Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
- Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
- Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
- Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
- Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
- Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
- Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!