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 Sub

Nota: 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.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

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?