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
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
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
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
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.
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
Tags microsoft-excel