Como localizar o nome da planilha específica no Excel

4

Eu tenho um arquivo excel com 55 folhas nele

É muito tedioso encontrar um nome de planilha específico no arquivo do Excel, já que ele tem 55 folhas

Eu usei a função de pesquisa para encontrar o nome da planilha específica, mas ela não está pesquisando o nome da planilha

Existe uma maneira de pesquisar um nome de planilha no Excel

    
por Santhosh.S 16.04.2014 / 09:08

4 respostas

7

Em 2013 ... CLIQUE DIREITO na área de Navegação na BARRA DE STATUS (a área à esquerda com os botões) e os nomes das planilhas aparecerão e você poderá escolher o que deseja ativar. Joan B

    
por 09.10.2014 / 05:19
3

A função de pesquisa na pesquisa no Excel não permite pesquisar os nomes das folhas. Em vez disso, você poderia incluir o código abaixo como uma macro na pasta de trabalho real ou como um suplemento na sua instalação do Excel.

Quando esse código for chamado, ele solicitará um nome de pesquisa e tentará localizar e selecionar a planilha com esse nome.

Sub SearchSheetName()
    Dim sName As String
    Dim sFound As Boolean

    sName = InputBox(prompt:="Enter sheet name to find in workbook:", Title:="Sheet search")

    If sName = "" Then Exit Sub
    sFound = False

    On Error Resume Next
        ActiveWorkbook.Sheets(sName).Select
        If Err = 0 Then sFound = True
    On Error GoTo 0

    If sFound = False Then
        MsgBox prompt:="The sheet '" & sName & "' could not be found in this workbook!", Buttons:=vbExclamation, Title:="Search result"
    End If
End Sub
    
por 16.04.2014 / 10:17
0

Você pode usar o VBA para criar uma lista de todas as planilhas em sua pasta de trabalho automaticamente.

Se você inserir este código no painel VB da sua pasta de trabalho, volte à sua pasta de trabalho e crie uma folha em branco e execute-a como uma macro:

Sub SheetNames()
    Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

Isso deve criar uma lista completa de todas as suas planilhas. Você também pode atribuir um hiperlink para cada um para pular facilmente para essa planilha, se quiser.

    
por 16.04.2014 / 09:59
0

Mais rápido para executar um teste simples como abaixo

Sub Tested()
Dim strTest As String
strTest = "Your Sheet Name"
MsgBox strTest & "exists:= " & SheetExists(strTest)
End Sub

Function SheetExists(ByVal strTest As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = ActiveWorkbook.Sheets(strTest)
SheetExists = (Not ws Is Nothing)
End Function
    
por 16.04.2014 / 13:16