Come rendere dinamico il nome del pulsante di comando in Excel?
Questo articolo parla di come modificare dinamicamente il nome di un pulsante di comando in base alle variazioni del valore di una cella specificata. Ad esempio, quando il valore nella cella A1 viene cambiato in “test”, il nome di un determinato pulsante di comando verrà automaticamente modificato in “test”.
Rendi dinamico il nome del pulsante di comando con il valore della cella tramite codice VBA
Rendi dinamico il nome del pulsante di comando con il valore della cella tramite codice VBA
Il seguente codice VBA può aiutarti a rendere dinamico il nome di un pulsante di comando in base al valore di una cella specificata in un foglio di lavoro. Procedi come segue.
1. Clicca su Sviluppatore > Inserisci > Pulsante di comando (Controllo ActiveX) per inserire un pulsante di comando nel foglio di lavoro. Vedi screenshot:
2. Dopo aver inserito il pulsante di comando, fai clic con il tasto destro sulla scheda del foglio e seleziona Visualizza codice dal menu contestuale come mostrato nello screenshot sottostante:
3. Nella finestra Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice VBA nella finestra.
Codice VBA: Rendi dinamico il nome del pulsante di comando con il valore della cella
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 SubNota: nel codice, CommandButton1 è il nome del pulsante di cui vuoi rendere dinamico il nome, e A1 è la cella da cui verrà preso il valore per il nome del pulsante automaticamente.
4. Premi i tasti Alt + Q per uscire dalla finestra Microsoft Visual Basic for Applications.
5. Disattiva la Modalità progettazione facendo clic su Sviluppatore > Modalità progettazione.
Da ora in poi, il nome del pulsante di comando verrà modificato dinamicamente in base al valore della cella specificata nel tuo foglio di lavoro.
Come mostrato nello screenshot sottostante, quando il valore della cella A1 viene modificato, il nome del pulsante di comando verrà automaticamente cambiato allo stesso valore.
Sblocca la Magia di Excel con Kutools AI
- Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
- Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
- Interpretazione delle Formule: Comprendi facilmente formule complesse.
- Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.
Articoli correlati:
- Come utilizzare il pulsante di comando per salvare il foglio di lavoro attivo come file PDF in Excel?
- Come inserire automaticamente una nuova riga vuota tramite il pulsante di comando in Excel?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in