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 Sub

Megjegyzé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?