Įtraukus VBA komandąButton su atitinkamu kodu

Įtraukus VBA komandąButton su atitinkamu kodu, tai nėra sudėtinga užduotis. Tai tiesiog reikalauja šiek tiek žinių apie „Excel“ ir makrokomandas. Naudodami „VBA“ mygtukai gali įjungti makrokomandas, rodyti pranešimus ir atlikti kitas funkcijas. Naudokite „VBA inorder“, norėdami pridėti daugiau „Excel“ darbalapių funkcionalumo neturėdami žinių apie technines VBA CommandButton savybes arba funkcijas, pvz., „VBA CommandButton“ spustelėjimą . Nukopijuokite kodą į atitinkamą modulį ir patvirtinkite, kad mygtukas veikia. Darbuotojų funkcionalumą galima padidinti pridedant VBA CommandButton su atitinkamu kodu . „Office“ programinė įranga yra akivaizdžiai labiau išvystyta nei bet kada anksčiau.

Įdėkite šiuos du kodo skyrius į bendrą modulį (pvz., 1 modulį).

 „Sub CreateButton“ () „Dim Obj“ kaip objekto „Dim“ kodas kaip styginių lapai („Sheet1“). Pasirinkite „Create button Set Obj = ActiveSheet.OLEObjects.Add (ClassType: =„ Forms.CommandButton.1 “, _ Nuoroda: = False, DisplayAsIcon : = False, Left: = 200, Top: = 100, Width: = 100, Height: = 35) Obj.Name = "TestButton" 'sverto tekstas ActiveSheet.OLEObjects (1) .Object.Caption = "Bandymo mygtukas"' makro tekstas Code = "Sub ButtonTest_Click ()" ir vbCrLf kodas = Kodas ir "Skambučių testeris" & vbCrLf kodas = Kodas ir "Baigti sub" pridėti makrokomandą lakštinio modulio pabaigoje Su ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name .CodeModule .insertlines .CountOfLines + 1, kodo pabaiga su galutiniu subtyrikliu () MsgBox "Jūs turite paspaudę bandymo mygtuką" End Sub "

Parsisiųsti: