V tem članku bomo ustvarili makro za vstavljanje novega modula v Excelov delovni zvezek.
Pred zagonom makra moramo določiti vrsto in ime modula.
Kot je razvidno iz posnetka zaslona, imamo v delovnem zvezku le en modul. V tem primeru bomo delovnemu zvezku dodali modul razreda.
Logična razlaga
V tem članku smo ustvarili dva makra, "CreateNewModule" in "CallingProcedure".
Makro »CreateNewModule« se uporablja za dodajanje novega modula, odvisno od vnosa.
Makro »CallingProcedure« se uporablja za zagotavljanje vnosa in klicanje glavnega modula.
Razlaga kode
Nastavi ModuleComponent = Wbook.VBProject.VBComponents.Add (ModuleTypeIndex)
Zgornja koda se uporablja za dodajanje novega modula v projekt VBA.
ModuleComponent.Name = NovoModuleName
Zgornja koda se uporablja za preimenovanje vstavljene komponente.
ModuleTypeConst = Cint (obseg ("D12"). Vrednost)
Zgornja koda se uporablja za pridobivanje celovite vrednosti iz celice D12.
ModuleName = Sheet1.TextBox2.Value
Zgornja koda se uporablja za pridobivanje vrednosti iz besedilnega polja.
Za kodo sledite spodaj
Možnost Eksplicitno pod -ustvarjanje novega modula (ByVal ModuleTypeIndex kot celo število, ByVal NewModuleName kot niz) »Razglasitev spremenljivk Dim ModuleComponent Kot VBComponent Dim WBook kot delovni zvezek« Ustvarjanje predmeta aktivnega delovnega zvezka Namig WBook = ActiveWorkbook Set ModuleComponent = Nič Napaka Nova komponenta Napaka Nov element ModuleComponent = WBook.VBProject.VBComponents.Add (ModuleTypeIndex) Če ni ModuleComponent ni nič, potem 'Preimenovanje novega modula ModuleComponent.Name = NewModuleName End Če je prišlo do napake GoTo 0 Set ModuleComponent = Nothing End Sub Sub CallingPrecedure Integer Dim ModuleName As String 'Pridobivanje vrednosti imena modula in vrste modula ModuleTypeConst = CInt (obseg ("D12"). Vrednost) ModuleName = Sheet1.TextBox2.Value' Klicanje CreateNewModule CreateNewModule ModuleTypeConst, ModuleName End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte