Dit artikel heeft het over het dynamisch veranderen van de naam van een Command-knop met een gespecificeerde celwaarde. Als de waarde in cel A1 bijvoorbeeld is gewijzigd in "test", wordt de naam van een bepaalde Command-knop automatisch gewijzigd in "test".
Maak de naam van de opdrachtknop dynamisch met de celwaarde op basis van VBA-code
De volgende VBA-code kan u helpen de naam van een opdrachtknop dynamisch te maken met een opgegeven celwaarde in een werkblad. Ga als volgt te werk.
1. klikken Ontwikkelaar > Invoegen > Commandoknop (ActiveX-besturingselement) om een opdrachtknop in het werkblad in te voegen. Zie screenshot:
2. Nadat u de opdrachtknop heeft ingevoegd, klikt u met de rechtermuisknop op de bladtab en klikt u op Bekijk code vanuit het rechtsklikmenu zoals hieronder getoond screenshot:
3. In de opening Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande VBA-code in het venster.
VBA-code: maak de naam van de opdrachtknop dynamisch met de celwaarde
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 SubOpmerking:: in de code is CommandButton1 de naam van de knop waarvan u de naam dynamisch wilt maken, en is A1 de cel waarin u de waarde automatisch naar de knopnaam zult verwijzen.
4. druk de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.
5. Schakel de ontwerpmodus uit door op te klikken Ontwikkelaar > Ontwerpmodus.
Vanaf nu wordt de naam van de Command-knop dynamisch gewijzigd met de opgegeven celwaarde in uw werkblad.
Zoals onderstaand screenshot laat zien, wordt de naam van de opdrachtknop automatisch in dezelfde waarde gewijzigd als de waarde van cel A1 is gewijzigd.
