Cum se face ca numele butonului de comandă să fie dinamic în Excel?
Acest articol vorbește despre modificarea dinamică a numelui unui buton de comandă cu o modificare specificată a valorii celulei. De exemplu, când valoarea din celula A1 a fost schimbată în „test”, numele unui anumit buton de comandă va fi schimbat în „test” automat.
Faceți numele butonului de comandă dinamic cu valoarea celulei prin codul VBA
Faceți numele butonului de comandă dinamic cu valoarea celulei prin codul VBA
Următorul cod VBA vă poate ajuta să faceți dinamic numele unui buton de comandă cu o valoare specificată a celulei într-o foaie de lucru. Vă rugăm să faceți următoarele.
1. clic Dezvoltator > Insera > Buton de comandă (control ActiveX) pentru a insera un buton de comandă în foaia de lucru. Vedeți captura de ecran:
2. După introducerea butonului de comandă, faceți clic dreapta pe fila foaie și faceți clic pe Afișați codul din meniul cu clic dreapta, după cum se arată în imaginea de mai jos:
3. În deschidere Microsoft Visual Basic pentru aplicații fereastră, vă rugăm să copiați și să lipiți mai jos codul VBA în fereastră.
Cod VBA: Faceți dinamic numele butonului de comandă cu valoarea celulei
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
notițe: în cod, CommandButton1 este numele butonului pe care doriți să-l faceți dinamic, iar A1 este celula pe care o veți referi automat la valoarea butonului.
4. apasă pe Alt + Q tastele pentru a ieși din Microsoft Visual Basic pentru aplicații fereastră.
5. Dezactivați modul Design făcând clic pe Dezvoltator > Mod de proiectare.
De acum înainte, numele butonului de comandă va fi schimbat dinamic cu valoarea celulei specificată în foaia de lucru.
După cum se arată în imaginea de mai jos, atunci când valoarea celulei A1 a fost modificată, numele butonului de comandă va fi schimbat automat la aceeași valoare.
Articole pe aceeaşi temă:
- Cum se utilizează butonul de comandă pentru a salva foaia de lucru activă ca fișier PDF în Excel?
- Cum se introduce automat un rând nou gol prin butonul de comandă în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!