Izveidojiet visu Excel pievienojumprogrammu sarakstu, izmantojot VBA makro

Satura rādītājs

Tādā veidā jūs varat parādīt makro kontrolētu visu pievienojumprogrammu sarakstu un uzreiz redzēt, kuras pievienojumprogrammas ir ieslēgtas un kuras nav.

Vai vēlaties vaicāt ar makro vadāmiem papildinājumiem, kas sistēmā ir iestatīti? Tas ir noderīgi, piemēram, lai noskaidrotu, vai lietotāji ir iestatījuši visas paredzētās pievienojumprogrammas.

Jūs varat instalēt pievienojumprogrammas, lai paplašinātu Excel funkcijas. Tie ir programmu paplašinājumi, kas tiek iestatīti, izmantojot pievienojumprogrammu pārvaldnieku. Šo komandu var atrast, izmantojot Excel līdz 2003. gada versijai, izmantojot izvēlni EXTRAS-ADD-INS.

Ja izmantojat programmu Excel 2007, izsauciet šo sarakstu, izmantojot pogu Office, un pēc tam EXCEL OPTIONS - ADD -INS - GO TO.

Ja izmantojat programmu Excel 2010, noklikšķiniet uz FILE, pēc tam arī uz OPTIONS un pēc tam uz ADD -INS - GO TO.

Ja vēlaties adresēt sarakstu no makro, izmantojiet objektu AddIns. Šajā makro tiek parādīts visu pievienojumprogrammu saraksts jaunā Excel izklājlapā. Katram saraksta ierakstam loģiskā vērtība norāda, vai ir instalēta atbilstošā pievienojumprogramma. Makro izskatās šādi:

Sub ShowAddIns ()
Dim i As Integer
Ar darbgrāmatām. Pievienot darblapas (1)
I = 1 AddIns.Count
. Šūnas (i + 1, 1). Vērtība = AddIns (i). Pilns nosaukums
. Šūnas (i + 1, 2). Vērtība = AddIns (i). Instalēts
Tālāk i
.Range ("a1: b1"). Vērtība = masīvs ("Add-In", "Installed")
.Range ("a1: b1"). Fonts. Bold = patiesa
.Range ("a1: b1"). Visa kolonna.AutoFit
Beigt ar
Beigt apakš

Pēc startēšanas makro izveido pievienojumprogrammu sarakstu. Šajā attēlā parādīts, kā var izskatīties šis saraksts:

Rekvizīta FullName vietā izmantojiet nosaukumu, ja nevēlaties nolasīt visu ceļu, bet tikai pievienojumprogrammu faila nosaukumu.

Lai ievadītu makro, programmā Excel nospiediet taustiņu kombināciju ALT F11. Tas izsauc VBA redaktoru. Izmantojiet komandu INSERT - MODULE, lai ievietotu tukšu moduļa lapu. Lai sāktu makro, programmā Excel nospiediet taustiņu kombināciju ALT F8.

Jums palīdzēs attīstību vietā, daloties lapu ar draugiem

wave wave wave wave wave