Dodajanje CommandButton VBA z ustrezno kodo

Dodajanje CommandButton VBA z ustrezno kodo ni zapletena naloga. Potrebuje le malo znanja o Excelu in makrih. Z VBA gumbi lahko pokličejo makre, prikažejo sporočila in opravljajo druge funkcije. Uporabite VBA inorder, da dodate več funkcionalnosti Excelovim delovnim listom, ne da bi poznali tehnične podrobnosti lastnosti VBA CommandButton ali funkcij, kot je VBA CommandButton . Kopirajte kodo v ustrezni modul in potrdite, da je gumb v delovanju. Eno lahko poveča funkcionalnost delovnih listov z dodajanjem CommandButton VBA z ustrezno kodo . Programska oprema Office je očitno bolj razvita kot kdajkoli prej.

Prilepite ta dva dela kode v splošni modul (npr. Modul1).

 Sub CreateButton () Dim Obj Kot Objekt Dim Code As String Sheets ("Sheet1"). Izberi "gumb za ustvarjanje Set Obj = ActiveSheet.OLEObjects.Add (ClassType: =" Forms.CommandButton.1 ", _ Link: = False, DisplayAsIcon : = False, Levo: = 200, Top: = 100, Širina: = 100, Višina: = 35) Obj.Name = "TestButton" "textn text ActiveSheet.OLEObjects (1) .Object.Caption =" Preskusni gumb " macro text Code = "Sub ButtonTest_Click ()" & vbCrLf Code = Koda & "Call Tester" & vbCrLf Code = Code & "End Sub" "doda makro na koncu modula lista z ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name .CodeModule .insertlines .CountOfLines + 1, Code End S End Sub Sub Tester () MsgBox "Kliknili ste testni gumb" End Sub 

Prenos:

• Strežnik 1: Primer.xls