VBA CommandButton pievienošana ar atbilstošo kodu

VBA komandas pievienošana ar atbilstošo kodu nav sarežģīts uzdevums. Tas tikai prasa maz zināšanas par Excel un makro. Izmantojot VBA, pogas var izmantot makro, parādīt ziņojumus un veikt citas funkcijas. Izmantojiet VBA inorder, lai pievienotu papildu funkcionalitāti Excel darblapām bez zināšanām par VBA CommandButton rekvizītu tehniskajām detaļām vai tādām funkcijām kā VBA CommandButton klikšķi . Kopējiet kodu attiecīgajam modulim un apstipriniet, ka poga darbojas. Var palielināt darblapu funkcionalitāti, pievienojot VBA CommandButton ar attiecīgo kodu . Biroja programmatūra ir skaidri izstrādāta nekā jebkad agrāk.

Ielīmējiet šīs divas koda daļas vispārējā modulī (piemēram, 1. modulī).

 Sub CreateButton () Dim Obj kā objekta Dim kods kā virknes lapas ("Sheet1"). Izvēlieties "Create button Set Obj = ActiveSheet.OLEObjects.Add (ClassType: =" Forms.CommandButton.1 ", _ Link: = False, DisplayAsIcon : = False, Left: = 200, Top: = 100, Width: = 100, Height: = 35) Obj.Name = "TestButton" 'buttonn teksts ActiveSheet.OLEObjects (1) .Object.Caption = "Testa poga"' makro teksts Code = "Sub ButtonTest_Click ()" un vbCrLf kods = Kods un "Zvanu testētājs" & vbCrLf kods = Kods un "Beigt sub" pievieno makro lapas beigās modulī ar ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name .CodeModule .insertlines .CountOfLines + 1, koda beigas ar beigu apakšpārbaudītāju () MsgBox "Jums ir noklikšķiniet uz testa pogas" Beigt apakšizvēlni "

Lejupielādēt: