Jak udělat název příkazového tlačítka dynamický v aplikaci Excel?
Tento článek hovoří o tom, jak dynamicky měnit název příkazového tlačítka se změnami zadané hodnoty buňky. Například když byla hodnota v buňce A1 změněna na „test“, název určitého příkazového tlačítka bude automaticky změněn na „test“.
Udělejte název příkazového tlačítka dynamickým s hodnotou buňky kódem VBA
Udělejte název příkazového tlačítka dynamickým s hodnotou buňky kódem VBA
Následující kód VBA vám pomůže provést dynamický název příkazového tlačítka se zadanou hodnotou buňky v listu. Postupujte prosím následovně.
1. cvaknutí Vývojka > Vložit > Příkazové tlačítko (ovládání ActiveX) pro vložení příkazového tlačítka do listu. Viz snímek obrazovky:
2. Po vložení příkazového tlačítka klikněte pravým tlačítkem na kartu listu a klikněte na Zobrazit kód z nabídky pravého kliknutí, jak je uvedeno níže, snímek obrazovky:
3. V otvoru Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte pod kód VBA do okna.
Kód VBA: Udělejte název příkazového tlačítka dynamickým s hodnotou buňky
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 SubPoznámka: v kódu je CommandButton1 název tlačítka, jehož název chcete změnit na dynamický, a A1 je buňka, jejíž hodnotu budete automaticky odkazovat na název tlačítka.
4. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.
5. Vypněte návrhový režim kliknutím Vývojka > Režim návrhu.
Od této chvíle se název příkazového tlačítka bude dynamicky měnit podle zadané hodnoty buňky v listu.
Jak je znázorněno na obrázku níže, když se změní hodnota buňky A1, název příkazového tlačítka se automaticky změní na stejnou hodnotu.
Související články:
- Jak pomocí příkazového tlačítka uložit aktivní list jako soubor PDF v aplikaci Excel?
- Jak vložit prázdný nový řádek automaticky pomocí příkazového tlačítka v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
