Šajā rakstā mēs izveidosim makro, lai ievietotu jaunu moduli Excel darbgrāmatā.
Pirms makro palaišanas mums jānorāda moduļa veids un nosaukums.
Kā redzams ekrānuzņēmumā, darbgrāmatā ir tikai viens modulis. Šajā piemērā darbgrāmatai pievienosim klases moduli.
Loģisks skaidrojums
Šajā rakstā mēs esam izveidojuši divus makro - “CreateNewModule” un “CallingProcedure”.
Makro “CreateNewModule” tiek izmantots, lai pievienotu jaunu moduli, atkarībā no sniegtās ievades.
Makro “CallingProcedure” tiek izmantots, lai nodrošinātu ievadi un izsauktu galveno moduli.
Koda skaidrojums
Iestatīt ModuleComponent = Wbook.VBProject.VBComponents.Add (ModuleTypeIndex)
Iepriekš minētais kods tiek izmantots, lai pievienotu jaunu moduli VBA projektam.
ModuleComponent.Name = NewModuleName
Iepriekš minēto kodu izmanto, lai pārdēvētu ievietoto komponentu.
ModuleTypeConst = Cint (diapazons ("D12"). Vērtība)
Iepriekš minētais kods tiek izmantots, lai no šūnas D12 iegūtu veselu skaitli.
ModuleName = Sheet1.TextBox2.Value
Iepriekš minētais kods tiek izmantots, lai iegūtu vērtību no tekstlodziņa.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub CreateNewModule (ByVal ModuleTypeIndex kā vesels skaitlis, ByVal NewModuleName kā virkne) 'Mainīgo lielumu deklarēšana Dim ModuleComponent Kā VBComponent Dim WBook kā darbgrāmata' Aktīvās darbgrāmatas kopas objekta izveide WBook = ActiveWorkbook Set ModuleComponent Modulis ModuleComponent = WBook.VBProject.VBComponents.Add (ModuleTypeIndex) Ja nav ModuleComponent Is Nothing, tad jaunā moduļa pārdēvēšana Vesels skaitlis Dim ModuleName As String 'Moduļa nosaukuma un moduļa tipa vērtības iegūšana
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē