Hogyan lehet dinamikusabbá tenni a Parancs gomb nevét az Excelben?
Ez a cikk arról szól, hogy a Parancs gomb nevét dinamikusan változtassák meg egy adott cellaérték változásával. Például, ha az A1 cellában az érték „teszt” -re változik, akkor egy bizonyos Parancs gomb neve automatikusan „teszt” -re változik.
Tegye dinamikussá a Parancs gomb nevét a cellaértékkel a VBA kóddal
Tegye dinamikussá a Parancs gomb nevét a cellaértékkel a VBA kóddal
A következő VBA-kód segítségével dinamikusabbá teheti a parancsgomb nevét egy megadott cellaértékkel egy munkalapon. Kérjük, tegye a következőket.
1. kettyenés Fejlesztő > betétlap > Parancs gomb (ActiveX vezérlő) hogy egy parancsgombot illesszen be a munkalapba. Lásd a képernyőképet:
2. A parancs gomb behelyezése után kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal a menüből, az alábbi képernyőképen:
3. A nyílásban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a VBA kód alá az ablakba.
VBA-kód: Tegye dinamikussá a Parancs gomb nevét a cellaértékkel
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 SubMegjegyzések: a kódban a CommandButton1 annak a gombnak a neve, amelyet dinamikussá kíván tenni a nevében, és A1 az a cella, amelynek értékét automatikusan a gomb nevére utalja.
4. megnyomni a más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablak.
5. Kattintson a gombra a Design Mode kikapcsolásával Fejlesztő > Tervezési mód.
Ezentúl a Parancs gomb neve dinamikusan változik a munkalapon megadott cellaértékkel.
Amint az alábbi képernyőképen látható, amikor az A1 cella értéke megváltozott, a parancs gomb neve automatikusan ugyanarra az értékre változik.
Kapcsolódó cikkek:
- Hogyan használható a Parancs gomb az aktív munkalap PDF fájlként történő mentésére az Excelben?
- Hogyan lehet automatikusan beilleszteni egy üres új sort az Excel Parancsgombbal?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
