Hvordan gør man kommandoknappenavnet dynamisk i Excel?
Denne artikel taler om at ændre navnet på en kommandoknap dynamisk med en specificeret celleværdiændring. For eksempel, når værdien i celle A1 er blevet ændret til "test", vil navnet på en bestemt kommandoknap automatisk blive ændret til "test".
Gør navnet på kommandoknappen dynamisk med celleværdien efter VBA-kode
Gør navnet på kommandoknappen dynamisk med celleværdien efter VBA-kode
Følgende VBA-kode kan hjælpe dig med at gøre navnet på en kommandoknap dynamisk med en specificeret celleværdi i et regneark. Gør venligst som følger.
1. klik Udvikler > indsatte > Kommando-knap (ActiveX-kontrol) for at indsætte en kommandoknap i regnearket. Se skærmbillede:
2. Efter at have indsat kommandoknappen, højreklik på arkfanen og klik Vis kode fra højreklikmenuen som vist nedenstående skærmbillede:
3. I åbningen Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte nedenstående VBA-kode i vinduet.
VBA-kode: Gør navnet på kommandoknappen dynamisk med celleværdien
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
Bemærk: i koden er CommandButton1 navnet på den knap, du vil gøre dens navn dynamisk, og A1 er den celle, hvor du automatisk vil referere værdien til knappens navn.
4. Tryk på andre + Q taster for at afslutte Microsoft Visual Basic til applikationer vindue.
5. Sluk for designtilstand ved at klikke på Udvikler > Design Mode.
Fra nu af vil navnet på kommandoknappen blive ændret dynamisk med den angivne celleværdi i dit regneark.
Som vist nedenfor skærmbilledet, når værdien af celle A1 er blevet ændret, vil navnet på kommandoknappen automatisk blive ændret til den samme værdi.
Relaterede artikler:
- Hvordan bruges kommandoknappen til at gemme aktivt regneark som PDF-fil i Excel?
- Hvordan indsættes en tom ny række automatisk ved hjælp af Command Button i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!