Kako narediti ime ukaznega gumba dinamično v Excelu?
Ta članek govori o tem, da se ime gumba Command dinamično spremeni s spremenjenimi vrednostmi določene celice. Ko je na primer vrednost v celici A1 spremenjena v "test", se ime določenega gumba Command samodejno spremeni v "test".
Naj ime ukaznega gumba postane dinamično z vrednostjo celice po kodi VBA
Naj ime ukaznega gumba postane dinamično z vrednostjo celice po kodi VBA
Naslednja koda VBA vam lahko pomaga narediti ime ukaznega gumba dinamično z določeno vrednostjo celice na delovnem listu. Naredite naslednje.
1. klik Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX) da v delovni list vstavite ukazni gumb. Oglejte si posnetek zaslona:
2. Ko vstavite ukazni gumb, z desno miškino tipko kliknite jeziček lista in kliknite Ogled kode v meniju z desnim klikom, kot je prikazano spodaj:
3. Na odprtju Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno.
Koda VBA: Naredite ime ukaznega gumba dinamično z vrednostjo celice
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End Sub
Opombe: v kodi je CommandButton1 ime gumba, za katerega želite, da je njegovo ime dinamično, A1 pa je celica, v katero se boste samodejno sklicevali na vrednost imena gumba.
4. Pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno.
5. Izklopite način oblikovanja s klikom Razvojni > Način oblikovanja.
Od zdaj naprej se bo ime ukaznega gumba dinamično spremenilo z navedeno vrednostjo celice na vašem delovnem listu.
Kot je prikazano na spodnjem posnetku zaslona, ko je bila vrednost celice A1 spremenjena, bo ime ukaznega gumba samodejno spremenjeno na isto vrednost.
Sorodni članki:
- Kako uporabiti ukazni gumb za shranjevanje aktivnega delovnega lista kot datoteke PDF v Excelu?
- Kako samodejno vstaviti prazno novo vrstico z gumbom za ukaz v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!