Lägga till en VBA CommandButton med respektive koden

Att lägga till en VBA CommandButton med sin respektive kod är inte en komplicerad uppgift. Det kräver bara lite kunskap om Excel och makron. Med VBA kan knappar påkalla makronerna, visa meddelandena och utföra andra funktioner. Använd VBA inorder för att lägga till mer funktionalitet i Excel-kalkylblad utan att ha kunskap om tekniska detaljer om egenskaperna för VBA CommandButton eller funktioner som VBA CommandButton-klick . Kopiera koden till respektive modul och bekräfta att knappen är i funktion. Man kan öka funktionaliteten i arbetsbladet genom att lägga till en VBA CommandButton med respektive kod . Office Software är klart mer utvecklad än någonsin tidigare.

Klistra in dessa två sektioner av kod till en allmän modul (modul1 till exempel).

 Sub CreateButton () Dim Obj Som Objekt Dim Code Som String Sheets ("Sheet1"). Välj "Create Button Set Obj = ActiveSheet.OLEObjects.Add (ClassType: =" Forms.CommandButton.1 ", _ Länk: = False, DisplayAsIcon : = Falskt, Vänster: = 200, Överst: = 100, Bredd: = 100, Höjd: = 35) Obj.Name = "TestButton" 'knapptext ActiveSheet.OLEObjects (1) .Object.Caption = "Testknapp" makro text Code = "Sub ButtonTest_Click ()" & vbCrLf Code = Kod & "Call Tester" & vbCrLf Code = Kod & "End Sub" Lägg till makro i slutet av arkmodulen Med ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name ) .CodeModule .insertlines .CountOfLines + 1, Code End med End Sub Sub Tester () MsgBox "Du har klickat på testknappen" End Sub

Ladda ner: