Šiame straipsnyje sukursime makrokomandą, skirtą įterpti naują modulį į „Excel“ darbaknygę.
Prieš paleisdami makrokomandą, turime nurodyti modulio tipą ir pavadinimą.
Kaip matyti ekrano kopijoje, darbo knygoje turime tik vieną modulį. Šiame pavyzdyje į darbo knygą pridėsime klasės modulį.
Loginis paaiškinimas
Šiame straipsnyje mes sukūrėme dvi makrokomandas: „CreateNewModule“ ir „CallingProcedure“.
„CreateNewModule“ makrokomanda naudojama naujam moduliui pridėti, atsižvelgiant į pateiktą įvestį.
„CallingProcedure“ makrokomanda naudojama įvesti ir paskambinti pagrindiniam moduliui.
Kodo paaiškinimas
Nustatykite ModuleComponent = Wbook.VBProject.VBComponents.Add (ModuleTypeIndex)
Aukščiau pateiktas kodas naudojamas naujam VBA projekto moduliui pridėti.
ModuleComponent.Name = NewModuleName
Aukščiau pateiktas kodas naudojamas įterptam komponentui pervardyti.
ModuleTypeConst = Cint (diapazonas („D12“). Reikšmė)
Aukščiau pateiktas kodas naudojamas norint gauti sveiką skaičių iš langelio D12.
ModuleName = Sheet1.TextBox2.Value
Aukščiau pateiktas kodas naudojamas vertei gauti iš teksto laukelio.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub CreateNewModule“ („ByVal ModuleTypeIndex As Integer“, „ByVal NewModuleName As String“) „Kintamųjų deklaravimas Dim ModuleComponent As VBComponent Dim WBook As Workbook“ Aktyvios darbaknygės rinkinio objekto sukūrimas WBook = ActiveWorkbook Set ModuleComponent Modulis „ModuleComponent = WBook.VBProject.VBComponents.Add“ („ModuleTypeIndex“), jei ne „ModuleComponent“ yra niekas “Tada naujo modulio pervadinimas„ ModuleComponent.Name = NewModuleName End If On Error GoTo 0 Set ModuleComponent = Nothing End Subur Subpigment “ Sveikasis skaičius Dim ModuleName As String 'Modulio pavadinimo ir modulio tipo vertės gavimas
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el