Salt la conținutul principal

Un cod VBA pentru listarea tuturor adăugărilor în Excel

În Excel, puteți adăuga sau insera unele suplimente pentru a trata mai bine datele. După cum știm, putem merge la fereastra Opțiuni pentru a vizualiza toate adăugările, dar există vreo modalitate de a lista toate adăugările într-o foaie? Acum, în acest tutorial, oferă un cod VBA pentru listarea tuturor completărilor în Excel.

1. presa Alt + F11 tastele pentru a activa fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Moduleși lipiți codul de mai jos pe scriptul gol.

VBA: Listează toate completările

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

lista doc toate se adaugă în 1

3. presa F5 cheie pentru a rula codul, a fost creată o foaie numită Listă de suplimente cu toate completările.
lista doc toate se adaugă în 2


Alte operațiuni (articole)

Dezactivați programele de completare la pornirea Excel
Este posibil să fi instalat unele programe de completare în Microsoft Excel, dar acum trebuie să dezactivați un program de completare specificat la pornirea Excel. Cum se rezolvă această problemă? Metoda din acest articol vă poate ajuta.

Exportați și salvați fiecare foaie de lucru ca registru de lucru separat separat în Excel
Să presupunem că doriți să exportați și să salvați una sau mai multe foi de lucru ca un nou registru de lucru, cum veți face față? În mod normal, puteți copia fiecare foaie de lucru și lipiți-o în noul registru de lucru. Dar aici vă aducem câteva trucuri la îndemână pentru a le rezolva:

Introduceți foi de lucru dintr-un alt registru de lucru
Uneori poate fi necesar să importați foi de lucru din alte registre de lucru. Dacă copiați conținutul foilor de lucru și le lipiți în registrul de lucru curent, acesta va pierde unele stiluri de formatare, cum ar fi înălțimea rândurilor, etc.


  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
fila kte 201905
  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations