Note: The other languages of the website are Google-translated. Back to English
Login  \/ 
x
or
x
Registrati  \/ 
x

or

Come rinominare i fogli di lavoro in base ai valori delle celle in Excel?

La ridenominazione dei fogli di lavoro viene solitamente applicata nel nostro lavoro Excel, ma hai mai provato a rinominare i fogli di lavoro in base ai valori delle celle? Naturalmente, puoi rinominare i fogli di lavoro manualmente, ma qui questo tutorial introduce alcuni trucchi per rinominare rapidamente più fogli di lavoro in base ai valori delle celle che possono far risparmiare tempo di lavoro.

Rinomina i fogli di lavoro in base a una cella specifica con VBA

Rinomina i fogli di lavoro in base a una cella specifica con Rinomina più fogli di lavoro buona idea 3

Rinomina i fogli di lavoro in base a un intervallo di contenuti di celle con Rinomina più fogli di lavoro buona idea 3


Con sotto VBA, puoi rinominare il foglio di lavoro relativo in base a una cella specifica.

1. Selezionare la cella in cui si desidera rinominare il foglio di lavoro, in questo caso selezionare Cella A1. Vedi screenshot:

doc rinomina foglio di lavoro 1

2. Stampa Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Modulo, quindi incolla sotto il codice VBA nel nuovo Modulo finestra.

VBA: rinomina i fogli di lavoro in base a valori di cella specifici.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. Stampa F5 chiave per eseguire il codice VBA. Quindi tutti i fogli di lavoro sono stati rinominati in base ai valori di cella A1 relativi.

doc rinomina foglio di lavoro 2


Se si dispone di Kutools for Excel, non è necessario salvare il codice VBA, è possibile utilizzare l'estensione Rinomina più fogli di lavoro funzione per rinominare rapidamente tutti i fogli di lavoro in base alle celle relative.

Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. 

Dopo installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Abilitare la cartella di lavoro in cui si desidera rinominare i nomi dei fogli di lavoro.

2. Clic Kutools Plus > Foglio di lavoro > Rinomina fogli di lavoro. Vedi screenshot:

doc rinomina foglio di lavoro 11

3. Quindi, nella finestra di dialogo visualizzata, seleziona i fogli in cui desideri rinominare Fogli di lavoro e selezionare uno dei file Rinomina opzione hai bisogno, qui sostituirò il nome del foglio, quindi controllerò Rinomina i fogli di lavoro con una cella specificae seleziona la cella con cui devi rinominare. Vedi screenshot:

doc rinomina foglio di lavoro 9

4. Clic Ok. Ora i fogli vengono rinominati con contenuti di celle specifici.

doc rinomina foglio di lavoro 2

Ma a volte, ciò di cui hai bisogno è rinominare più fogli di lavoro in base a un intervallo di valori di cella come mostrato nell'immagine sottostante, in questo caso puoi scegliere sotto il metodo.

doc rinomina foglio di lavoro 3


Con una lunga Rinomina più fogli di lavoro of Kutools for Excel, puoi anche rinominare i fogli in base a un intervallo selezionato.

Dopo installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Clic Kutools Plus > Foglio di lavoro > Rinomina fogli di lavoro. Vedi screenshot:

doc rinomina foglio di lavoro 11

2. Nel Rinomina più fogli di lavoro finestra di dialogo, è necessario specificare le impostazioni come queste:

(1) Seleziona i fogli di lavoro da cui devi rinominare Elenco dei fogli di lavoro;

(2) Verifica Dalla gamma specifica opzione e seleziona i valori della cella che devi rinominare in base a;

(3) Specificare il file Rinomina opzioni, Puoi controllare Inserisci prima del nome del foglio originale, Inserisci dopo il nome del foglio originale, o Sostituisci il nome del foglio originalee puoi visualizzare in anteprima il risultato corrispondente nella finestra di dialogo.

doc rinomina foglio di lavoro 10

3. Clic Ok, quindi puoi vedere tutti i fogli di lavoro selezionati che sono stati rinominati in base ai valori di cella specificati.

Sostituisci il nome del foglio originale

doc rinomina foglio di lavoro 6

Inserisci prima del nome del foglio originale

doc rinomina foglio di lavoro 7

Inserisci dopo il nome del foglio originale

doc rinomina foglio di lavoro 8

Con l'utilità Rinomina fogli di lavoro, puoi anche rinominare i fogli di lavoro con un prefisso o suffisso specifico. Fare clic qui per saperne di più su Rinomina più fogli di lavoro.


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 2 months ago
    Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works.  It always goes into Debug on the first try.  I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 1 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.