Selles artiklis loome makro, et lisada uus moodul Exceli töövihikusse.
Enne makro käivitamist peame määrama mooduli tüübi ja nime.
Nagu ekraanipildilt näha, on meil töövihikus ainult üks moodul. Selles näites lisame töövihikusse klassi mooduli.
Loogiline seletus
Selles artiklis oleme loonud kaks makrot „CreateNewModule” ja „CallingProcedure”.
Makrot „CreateNewModule” kasutatakse uue mooduli lisamiseks, sõltuvalt sisendist.
Makro „CallingProcedure” kasutatakse sisendi andmiseks ja põhimooduli kutsumiseks.
Koodi selgitus
Määra ModuleComponent = Wbook.VBProject.VBComponents.Add (ModuleTypeIndex)
Ülaltoodud koodi kasutatakse VBA projekti uue mooduli lisamiseks.
ModuleComponent.Name = UusMooduli nimi
Ülaltoodud koodi kasutatakse sisestatud komponendi ümbernimetamiseks.
ModuleTypeConst = Cint (vahemik ("D12"). Väärtus)
Ülaltoodud koodi kasutatakse lahtri D12 täisarvu väärtuse saamiseks.
ModuleName = Sheet1.TextBox2.Value
Ülaltoodud koodi kasutatakse tekstivälja väärtuse saamiseks.
Palun järgige koodi allpool
Valik Selgesõnaline alam CreateNewModule (ByVal ModuleTypeIndex As Integer, ByVal NewModuleName As String) 'Muutujate deklareerimine Dim ModuleComponent As VBComponent Dim WBook As Workbook' Aktiivse töövihiku komplekti objekti loomine WBook = ActiveWorkbook Set ModuleComponent Component ModuleComponent = WBook.VBProject.VBComponents.Add (ModuleTypeIndex) Kui pole ModuleComponent is Nothing, siis uue mooduli ümbernimetamine Integer Dim ModuleName as String 'Mooduli nime ja mooduli tüübi väärtuse hankimine
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile