Ir para o conteúdo principal

Como renomear planilhas com base nos valores das células (da lista) no Excel?

Renomear uma única planilha no Excel normalmente é feito clicando com o botão direito na guia da planilha e escolhendo “Renomear” no menu de contexto. No entanto, se você precisar renomear várias planilhas usando valores de células especificadas ou quiser nomear dinamicamente uma planilha com base no valor de uma célula específica, existem vários métodos que você pode usar. Este artigo irá guiá-lo através dessas técnicas, tornando o processo simples e eficiente.


Renomear dinamicamente uma planilha do valor da célula com VBA

Podemos renomear dinamicamente uma planilha a partir do valor de uma determinada célula com VBA no Excel, e você pode fazer o seguinte:

- Clique com o botão direito no nome da planilha que você nomeará dinamicamente por um valor de célula e selecione Ver código no menu do botão direito.

- Na abertura Microsoft Visual Basic para Aplicações janela, cole o seguinte código VBA na janela do módulo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Dica: Este VBA renomeia dinamicamente a planilha com base no valor na célula A1, você pode alterar "A1" para outras células com base em suas necessidades.

- Salve o código VBA e feche o Microsoft Visual Basic para aplicativos janela.

Em seguida, você verá que o nome da planilha é alterado dinamicamente com base no valor da célula especificada.

Observações:

  • Se a célula especificada estiver em branco, a planilha não será renomeada.
  • A planilha será renomeada sempre que você alterar o valor na célula especificada.
  • Se você digitar caracteres especiais na célula especificada, como *, um aviso de erro aparecerá.

Renomeie várias planilhas com base nos valores das células nas planilhas correspondentes

O método descrito acima permite renomear uma folha por vez. No entanto, ao usar o Renomear várias planilhas característica de Kutools for Excel, você pode renomear rapidamente todas ou várias planilhas com base no valor de uma célula especificada em cada planilha correspondente. Por exemplo, você pode renomear cada planilha para corresponder ao valor encontrado na célula A1 dessa planilha específica.

Kutools for Excel - Embalado com mais de 300 ferramentas essenciais para Excel. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Baixe Agora!

  1. Clique Kutools Plus > Planilha > Renomear planilhas. Veja a imagem:
  2. Na abertura Renomear várias planilhas caixa de diálogo, faça o seguinte:
    1. No Fichas de trabalho list, verifique as planilhas que você irá renomear.
    2. No Opções de renomeação seção, verifique o Substitua o nome da folha original opção.
    3. No Novo nome da planilha seção, por favor, verifique o Renomear planilhas com célula específica opção e especifique a célula cujo conteúdo você renomeará a planilha correspondente.
    4. Clique na Ok botão.

E agora todas as planilhas marcadas são renomeadas com base na célula especificada de cada planilha. Veja a captura de tela:

Nota: Quer acessar o Renomear várias planilhas recurso? Download Kutools for Excel agora! Além disso, o Kutools possui uma infinidade de mais de 300 recursos e oferece um teste gratuito de 30 dias. Não espere, experimente hoje!


Renomeie várias planilhas da lista especificada

Kutools para Excel Renomear várias planilhas O recurso também oferece suporte para renomear várias planilhas com base nos valores das células em uma lista especificada.

Kutools for Excel - Embalado com mais de 300 ferramentas essenciais para Excel. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Baixe Agora!

  1. Clique Kutools Plus > Planilha > Renomear planilhas.
  2. Na abertura Renomear várias planilhas caixa de diálogo, configure da seguinte forma:
    1. No Fichas de trabalho lista, selecione as planilhas que você renomeará.
    2. No Opções de renomeação seção, verifique o Substitua o nome da folha original opção.
    3. No Novo nome da planilha seção, verifique o De intervalo específico opção, e clique no botão  botão para abrir o segundo Renomear várias planilhas caixa de diálogo (veja a imagem à direita). Em seguida, selecione a lista de células que você renomeará por seus valores e clique no botão OK botão.
    4. Clique na Ok botão para aplicar a renomeação.

Então você verá que todos os nomes de planilhas marcadas são substituídos pelos valores das células na lista especificada. Veja a captura de tela abaixo:

Nota: Quer acessar o Renomear várias planilhas recurso? Download Kutools for Excel agora! Além disso, o Kutools possui uma infinidade de mais de 300 recursos e oferece um teste gratuito de 30 dias. Não espere, experimente hoje!


Demo: folhas de nomes baseadas em valores de células (da lista) no Excel


Kutools for Excel: Mais de 300 ferramentas úteis ao seu alcance! Comece hoje mesmo seu teste gratuito de 30 dias sem limitações de recursos. Baixe agora!

Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations