Как найти конкретное имя листа в Excel

У меня есть файл Excel с 55 листами

Найти конкретное имя листа в файле Excel очень утомительно, поскольку в нем 55 листов

Я использовал функцию поиска, чтобы найти конкретное имя листа, но она не ищет имя листа

Есть ли способ найти имя листа в Excel


9

В 2013 году … ЩЕЛКНИТЕ ПРАВОЙ кнопкой в ​​области навигации в СТАТУСЕ Появятся ПОЛОСКА (крайняя левая область с кнопками) и названия листов, и вы можете выбрать тот, который хотите активировать. Джоан Б.

share | улучшить этот ответ | |
ответил 09 окт. в 3:19
добавить комментарий |

В 2013 … ЩЕЛКНИТЕ ПРАВОЙ кнопкой мыши в области навигации на ПАНЕЛИ СОСТОЯНИЯ (крайняя левая область с кнопками), и появятся названия листов и вы можете выбрать то, что хотите активировать. Джоан Б.


3

Встроенная функция поиска в Excel не позволяет выполнять поиск по именам листов. Вместо этого вы можете включить приведенный ниже код в качестве макроса либо в фактическую книгу, либо в качестве надстройки к вашей установке Excel.

При вызове этого кода он предложит вам ввести имя для поиска и попробовать чтобы найти и выбрать лист с этим именем.

  Sub SearchSheetName () Dim sName As String Dim sFound As Boolean sName = InputBox (prompt: = "Введите имя листа для поиска в  workbook: ", Заголовок: =" Поиск по листу ") Если sName =" "Затем выйти из Sub sFound = False при ошибке Возобновить следующий ActiveWorkbook.Sheets (sName). Выберите, если Err = 0 Тогда sFound = True при ошибке GoTo 0 Если sFound =  False Then MsgBox prompt: = "Не удалось найти лист '" & sName & "' в этой книге!", Buttons: = vbExclamation, Title: = "Search result" End IfEnd Sub  

share | улучшить этот ответ | |
ответил 16 апр. ’14 в 8:17
  • ненужное использование цикл и выберите. — brettdj 16 апр. ’14 в 11:17
  • @brettdj Это правда. У меня нет объяснения, почему я так поступил! Я обновил код. Спасибо 🙂 — Netloh 16 апр. ’14 в 11:23
добавить комментарий |

Встроенная функция поиска в Excel не позволяет выполнять поиск по именам листов. Вместо этого вы можете включить приведенный ниже код в качестве макроса либо в фактическую книгу, либо в качестве надстройки к вашей установке Excel.

При вызове этого кода он предложит вам ввести имя для поиска и попробовать чтобы найти и выбрать лист с этим именем.

  Sub SearchSheetName () Dim sName As String Dim sFound As Boolean sName = InputBox (prompt: = "Введите имя листа для поиска в  workbook: ", Заголовок: =" Поиск по листу ") Если sName =" "Затем выйти из Sub sFound = False при ошибке Возобновить следующий ActiveWorkbook.Sheets (sName). Выберите, если Err = 0 Тогда sFound = True при ошибке Перейти к 0 Если sFound =  False Then MsgBox prompt: = "Не удалось найти лист '" & sName & "' в этой книге!", Buttons: = vbExclamation, Title: = "Search result" End IfEnd Sub  

0

Вы можете использовать VBA для создания списка всех рабочие листы в книгу автоматически.

Если вы вставите эти s на панель VB для вашей книги, затем вернитесь к своей книге, создайте пустой лист и запустите его как макрос:

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

Это должно создать полный список всех ваших рабочие листы. Вы также можете назначить гиперссылку для каждого из них, чтобы легко переходить на этот лист, если хотите.

share | улучшить этот ответ | |
ответил 16 апр. ’14 в 07:59
добавить комментарий |

Вы можете использовать VBA для автоматического создания списка всех рабочих листов в вашей книге.

Если вы вставляете этот код в панель VB для своей книги, затем возвращаетесь к своей книге, создаете чистый лист и запускаете его как макрос:

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

После этого должен быть создан полный список всех ваших листов. Вы также можете назначить гиперссылку для каждого из них, чтобы легко переходить на этот лист, если хотите.


0

Самый быстрый способ запустить простой тест, как показано ниже

  Sub Tested () Dim strTest As StringstrTest = "Имя вашего листа" MsgBox  strTest & "exists: =" & SheetExists (strTest) End SubFunction SheetExists (ByVal strTest As String) As BooleanDim ws As WorksheetOn Error Resume NextSet ws = ActiveWorkbook. Sheets (strTest) SheetExists = (Not ws Is Nothing) Конечная функция  

share | улучшить этот ответ | |
ответил 16 апр. ’14 в 11:16
добавить комментарий |

Самый быстрый способ запустить простой тест, как показано ниже

  Sub Tested () Dim strTest  As StringstrTest = "Имя вашего листа" MsgBox strTest & "exists: =" & SheetExists (strTest) End SubFunction SheetExists (ByVal strTest As String) As BooleanDim ws As WorksheetOn Error Возобновить NextSet ws = ActiveWorkbook.Sheets (strTest) SheetExists = (Not  ws Is Nothing) Конечная функция  

Оцените статью
somehone.ru
Добавить комментарий