Dodavanje VBA CommandButton s odgovarajućim kodom

Dodavanje VBA CommandButton s odgovarajućim kodom nije kompliciran zadatak. To samo zahtijeva malo znanja o Excelu i makroima. Pomoću VBA tipke mogu pozvati makroe, prikazati poruke i obavljati druge funkcije. Koristite VBA inorder da biste dodali više funkcionalnosti Excelovim radnim listovima bez poznavanja tehničkih detalja svojstava VBA CommandButton ili funkcija kao što je VBA CommandButton . Kopirajte kod u odgovarajući modul i potvrdite da je gumb u radu. One mogu povećati funkcionalnost radnih listova dodavanjem VBA CommandButton sa svojim odgovarajućim kodom . Office Software je očito razvijeniji nego ikad prije.

Zalijepite ova dva dijela koda u opći modul (npr. Modul1).

 Sub CreateButton () Dim Obj kao objekt Dim Code As String Sheets ("Sheet1"). Odaberi 'gumb za kreiranje Postavi Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Link: = False, DisplayAsIcon : = Netočno, Lijevo: = 200, Vrh: = 100, Širina: = 100, Visina: = 35) Obj.Name = "TestButton" "textn text ActiveSheet.OLEObjects (1) .Object.Caption =" Test Button " macro text Code = "Sub ButtonTest_Click ()" & vbCrLf Code = Code & "Call Tester" & vbCrLf Code = Code & "End Sub" "dodaje makro na kraju modula lista s ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name .CodeModule .insertlines .CountOfLines + 1, kod završetka s krajnjim sub sub testerom () MsgBox "Kliknite na test gumb" End Sub

Preuzimanje datoteka: