Looge VBA makro abil kõigi Exceli lisandmoodulite loend

Lang L: none (table-of-contents)

Sel moel saate kuvada kõigi lisandmoodulite makro-juhitud loendi ja vaadata kohe, millised lisandmoodulid on sisse lülitatud ja millised mitte.

Kas soovite päringu teha makro-juhitavusega, millised lisandmoodulid on süsteemis seadistatud? See on kasulik näiteks selleks, et näha, kas kasutajad on seadistanud kõik kavandatud lisandmoodulid.

Exceli funktsioonide laiendamiseks saate installida lisandmooduleid. Need on programmilaiendid, mis seadistatakse lisandmoodulite halduri abil. Selle käsu leiate Exceli kasutamisel kuni versioonini 2003 menüüst EXTRAS-ADD-INS.

Kui kasutate Excel 2007, helistage sellesse loendisse, kasutades nuppu Office ja seejärel EXCEL OPTIONS - ADD -INS - GO TO.

Kui kasutate Excel 2010, klõpsake FILE, seejärel ka OPTIONS ja seejärel ADD -INS - GO TO.

Kui soovite loendit makro kaudu käsitleda, kasutage objekti AddIns. Järgmine makro kuvab kõigi Exceli arvutustabeli lisandmoodulite loendi. Loendi iga kirje puhul näitab loogiline väärtus, kas sobiv lisandmoodul on installitud või mitte. Makro näeb välja selline:

Sub ShowAddIns ()
Dim i As täisarv
Töövihikutega. Lisage töölehed (1)
I = 1 jaoks AddIns.Count
. Lahtrid (i + 1, 1) .Väärtus = AddIns (i). Täisnimi
. Lahtrid (i + 1, 2) .Väärtus = AddIns (i). Paigaldatud
Edasi i
.Range ("a1: b1"). Väärtus = massiiv ("lisandmoodul", "installitud")
.Range ("a1: b1"). Font.Bold = True
.Range ("a1: b1"). Kogu veerg. AutoFit
Lõpeta
End Sub

Pärast käivitamist loob makro lisandmoodulite loendi. Järgmine illustratsioon näitab, kuidas see loend välja võiks näha:

Kui te ei soovi ette lugeda kogu teed, vaid ainult lisandmoodulite failinime, kasutage atribuudi FullName asemel atribuuti Name.

Makro sisestamiseks vajutage Excelis klahvikombinatsiooni ALT F11. See avab VBA redaktori. Kasutage tühja moodulilehe sisestamiseks käsku INSERT - MODULE. Makro käivitamiseks vajutage Excelis klahvikombinatsiooni ALT F8.

Te aitate arengu ala, jagades leht oma sõpradega

wave wave wave wave wave