Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Код VBA для переліку всіх надбавок в Excel

В Excel ви можете додати або вставити деякі надбудови для кращої роботи з даними. Як ми знаємо, ми можемо перейти до вікна Параметри, щоб переглянути всі додані файли, але чи є спосіб перерахувати всі додані елементи на аркуші? Тепер, у цьому підручнику, він містить код VBA для переліку всіх надбавок в Excel.

1. прес Alt + F11 клавіші, щоб увімкнути вікно Microsoft Visual Basic for Applications.

2. клацання Insert > Модуліі вставте код нижче в порожній сценарій.

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

список документів, всі додані в 1

3. прес F5 ключ для запуску коду, аркуш із назвою Addins List був створений з усіма додаваннями.
список документів, всі додані в 2


Інші операції (статті)

Вимкніть надбудови під час запуску Excel
Можливо, ви встановили деякі надбудови у своєму Microsoft Excel, але тепер вам потрібно вимкнути вказану надбудову під час запуску Excel. Як вирішити цю проблему? Метод у цій статті може вам допомогти.

Експортуйте та збережіть кожен аркуш як окрему нову книгу в Excel
Скажімо, ви хочете експортувати та зберегти один або кілька аркушів як нову книгу, як ви з цим справитесь? Зазвичай ви можете копіювати кожен аркуш і вставляти в нову книгу. Але тут ми пропонуємо вам кілька корисних прийомів, щоб вирішити це:

Вставте аркуші з іншої книги
Іноді може знадобитися імпортувати аркуші з інших книг. Якщо скопіювати вміст робочих аркушів та вставити їх у поточну книгу, він втратить деякі стилі форматування, наприклад, висоту рядків тощо. У цій статті описано кілька зручних способів швидкого вставлення аркушів з інших книг із втратою даних та стилями форматування.



Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
вкладка kte 201905
  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.