Legge til en VBA CommandButton med den respektive koden

Å legge til en VBA CommandButton med sin respektive kode er ikke en komplisert oppgave. Det krever bare litt kunnskap om Excel og makroene. Med VBA kan knappene påkoble makroene, vise meldingene og utføre andre funksjoner. Bruk VBA inorder for å legge til mer funksjonalitet i Excel-regneark uten å ha kunnskap om tekniske detaljer i egenskapene til VBA CommandButton eller funksjonene som VBA CommandButton-klikk . Kopier koden til den respektive modulen og bekreft at knappen er i bruk. Man kan øke funksjonaliteten til regnearkene ved å legge til en VBA CommandButton med sin respektive kode . Office Software er tydeligere utviklet enn noen gang før.

Lim inn disse to kodene i en generell modul (Modul1 for eksempel).

 Sub CreateButton () Dim Obj Som Objekt Dim Code Som String Sheet ("Sheet1"). Velg 'Create Button Set Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Link: = False, DisplayAsIcon : = Falsk, Venstre: = 200, Øverst: = 100, Bredde: = 100, Høyde: = 35) Obj.Name = "TestButton" 'knapptekst ActiveSheet.OLEObjects (1) .Object.Caption = "Test Button"' makro tekst Kode = "Sub ButtonTest_Click ()" & vbCrLf Code = Kode & "Call Tester" & vbCrLf Code = Kode & "End Sub" Legg til makro på slutten av arkmodulen Med ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name ) .CodeModule .insertlines .CountOfLines + 1, Code End med End Sub Sub Tester () MsgBox "Du har klikket på testknappen" End Sub

Nedlasting: