Hoe maak je de naam van de opdrachtknop dynamisch in Excel?
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
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 Sub
Note: in de code is CommandButton1 de naam van de knop waarvan u de naam dynamisch wilt maken, en A1 is de cel waarnaar u de waarde automatisch naar de knopnaam verwijst.
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, wanneer de waarde van cel A1 is gewijzigd, de naam van de opdrachtknop automatisch gewijzigd in dezelfde waarde.
Gerelateerde artikelen:
- Hoe de Command-knop te gebruiken om een actief werkblad op te slaan als PDF-bestand in Excel?
- Hoe automatisch een lege nieuwe rij invoegen met de Command-knop in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!