U ovom ćemo članku stvoriti makronaredbu za umetanje novog modula u radnu knjigu programa Excel.
Prije pokretanja makronaredbe moramo odrediti vrstu i naziv modula.
Kao što se može vidjeti na snimci zaslona, imamo samo jedan modul u radnoj knjizi. U ovom primjeru radnoj knjizi ćemo dodati modul klase.
Logično objašnjenje
U ovom smo članku stvorili dvije makronaredbe, "CreateNewModule" i "CallingProcedure".
Makro "CreateNewModule" koristi se za dodavanje novog modula, ovisno o unosu.
Makronaredba “CallingProcedure” koristi se za unos i pozivanje glavnog modula.
Objašnjenje koda
Postavi ModuleComponent = Wbook.VBProject.VBComponents.Add (ModuleTypeIndex)
Gornji kôd koristi se za dodavanje novog modula u VBA projekt.
ModuleComponent.Name = NoviModuleName
Gornji kôd koristi se za preimenovanje umetnute komponente.
ModuleTypeConst = Cint (Raspon ("D12"). Vrijednost)
Gornji kôd koristi se za dobivanje cjelobrojne vrijednosti iz ćelije D12.
ModuleName = Sheet1.TextBox2.Vrijednost
Gornji kôd koristi se za dobivanje vrijednosti iz okvira za tekst.
Molimo slijedite dolje za kôd
Opcija Eksplicitna podmreža CreateNewModule (ByVal ModuleTypeIndex As Integer, ByVal NewModuleName As String) 'Deklariranje varijabli Dim ModuleComponent Kao VBComponent Dim WBook kao radna knjiga' Stvaranje objekta aktivne radne knjige Postavi WBook = ActiveWorkbook Postavi Modul Komponenta = Ništa Modul Pogreška Sljedeće Postavi pogrešku ModuleComponent = WBook.VBProject.VBComponents.Add (ModuleTypeIndex) If Not ModuleComponent is Nothing then 'Preimenovanje novog modula ModuleComponent.Name = NewModuleName Kraj ako je pogreška GoTo 0 Postavite ModuleComponent = Ništa Prekinite Sub Subbles CallingProcedure Integer Dim ModuleName As String 'Dobivanje vrijednosti naziva modula i vrste modula ModuleTypeConst = CInt (Raspon ("D12"). Vrijednost) ModuleName = Sheet1.TextBox2.Value' Pozivanje CreateNewModule CreateNewModule ModuleTypeConst, ModuleName End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte