Hur gör man kommandoknappens namn dynamiskt i Excel?
Den här artikeln talar om att göra namnet på en kommandoknapp ändrad dynamiskt med en specifik ändring av cellvärdet. Till exempel när värdet i cell A1 har ändrats till “test” kommer namnet på en viss kommandoknapp att ändras till “test” automatiskt.
Gör kommandoknappens namn dynamiskt med cellvärde med VBA-kod
Gör kommandoknappens namn dynamiskt med cellvärde med VBA-kod
Följande VBA-kod kan hjälpa dig att göra namnet på en kommandoknapp dynamisk med ett angivet cellvärde i ett kalkylblad. Gör så här.
1. klick Utvecklare > Insert > Kommandoknapp (ActiveX-kontroll) för att infoga en kommandoknapp i kalkylbladet. Se skärmdump:
2. När du har infogat kommandoknappen högerklickar du på arkfliken och klickar på Visa kod från högerklickningsmenyn som visas nedan:
3. I öppningen Microsoft Visual Basic för applikationer kopiera och klistra in under VBA-koden i fönstret.
VBA-kod: Gör kommandoknappens namn dynamiskt med cellvärdet
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
Anmärkningar: i koden är CommandButton1 namnet på knappen du vill göra dess namn dynamiskt, och A1 är cellen där du automatiskt refererar värdet till knappens namn.
4. tryck på andra + Q för att avsluta Microsoft Visual Basic för applikationer fönster.
5. Stäng av designläget genom att klicka på Utvecklare > Designläge.
Från och med nu kommer namnet på kommandoknappen att ändras dynamiskt med det angivna cellvärdet i ditt kalkylblad.
Som skärmbilden nedan visas, när värdet på cell A1 har ändrats, kommer namnet på kommandoknappen att ändras till samma värde automatiskt.
Relaterade artiklar:
- Hur använder jag kommandoknappen för att spara aktivt kalkylblad som PDF-fil i Excel?
- Hur infogar jag en tom ny rad automatiskt med kommandoknappen i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!