Tässä artikkelissa luomme makron uuden moduulin lisäämiseksi Excel -työkirjaan.
Ennen makron suorittamista meidän on määritettävä moduulin tyyppi ja nimi.
Kuten kuvakaappauksessa näkyy, työkirjassa on vain yksi moduuli. Tässä esimerkissä lisäämme luokkamoduulin työkirjaan.
Looginen selitys
Tässä artikkelissa olemme luoneet kaksi makroa, "CreateNewModule" ja "CallingProcedure".
"CreateNewModule" -makroa käytetään uuden moduulin lisäämiseen annetusta tulosta riippuen.
”CallingProcedure” -makroa käytetään syötteen syöttämiseen ja päämoduulin kutsumiseen.
Koodin selitys
Aseta ModuleComponent = Wbook.VBProject.VBComponents.Add (ModuleTypeIndex)
Yllä olevaa koodia käytetään uuden moduulin lisäämiseen VBA -projektiin.
ModuleComponent.Name = NewModuleName
Yllä olevaa koodia käytetään nimeämään lisätty komponentti uudelleen.
ModuleTypeConst = Cint (alue ("D12"). Arvo)
Yllä olevaa koodia käytetään kokonaislukuarvon saamiseen solusta D12.
ModuleName = Sheet1.TextBox2.Value
Yllä olevaa koodia käytetään arvon saamiseen tekstiruudusta.
Seuraa koodia alla
Vaihtoehto Explicit Sub CreateNewModule (ByVal ModuleTypeIndex As Integer, ByVal NewModuleName As String) 'Ilmoittavat muuttujat Dim ModuleComponent As VBComponent Dim WBook As Workbook' Aktiivisen työkirjasarjan luominen WBook = ActiveWorkbook Set ModuleComponent Component Set ModuleComponent = WBook.VBProject.VBComponents.Add (ModuleTypeIndex) Jos ei ModuleComponent is Nothing sitten 'Uuden moduulin uudelleennimeäminen Kokonaisluku Dim ModuleName As String 'Moduulin nimen ja moduulin tyypin arvon saaminen ModuleTypeConst = CInt (alue ("D12"). Arvo) ModuleName = Sheet1.TextBox2.Value' Calling CreateNewModule CreateNewModule ModuleTypeConst, ModuleName End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse