VBA CommandButtoni lisamine vastava koodiga
VBA CommandButtoni lisamine vastava koodiga ei ole keeruline ülesanne. See nõuab lihtsalt vähe Exceli ja makrode tundmist. VBA abil võivad nupud makroid käivitada, sõnumeid kuvada ja muid funktsioone täita. Kasutage VBA inorderit, et lisada Exceli töölehtedele rohkem funktsioone, ilma et neil oleks teadmisi VBA CommandButtoni omaduste tehniliste üksikasjade või funktsioonide kohta nagu VBA CommandButton klõps . Kopeerige kood vastavasse mooduli ja kinnitage, et nupp on aktiivne. Töölehtede funktsionaalsust saab suurendada VBA CommandButtoni lisamisega vastava koodiga . Office'i tarkvara on selgelt rohkem arenenud kui kunagi varem.![](//img.brin-designs.com/img/games/935/adding-vba-commandbutton-with-its-respective-code.png)
![](http://img.brin-designs.com/img/games/935/adding-vba-commandbutton-with-its-respective-code.png)
Kleepige need kaks koodiosa üldmoodulisse (näiteks moodul 1).
Sub CreateButton () Dim Obj objektobjektide koodina stringlehtedena ("Sheet1"). Vali "Create button Set Obj = ActiveSheet.OLEObjects.Add (ClassType: =" Forms.CommandButton.1 ", _ Link: = False, DisplayAsIcon : = Vale, vasak: = 200, ülemine: = 100, laius: = 100, kõrgus = 35) Obj.Name = "TestButton" 'tagumik tekst ActiveSheet.OLEObjects (1) .Object.Caption = "Testinupp"' makro tekst Code = "Sub ButtonTest_Click ()" ja vbCrLf kood = Kood & "Helista tester" & vbCrLf kood = Kood & "Lõpeta alam" lisab makro lehe mooduli lõpus ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name .CodeModule .insertlines .CountOfLines + 1, koodi lõpp lõpp-alamtestijaga () MsgBox "Sul on klõps testinupul" Lõpeta alam
Lae alla:
- Server 1: Näide.xls