Як перерахувати всі відкриті книги та легко переключатися між книгами в Excel?
Microsoft Excel дозволяє відкривати кілька книг одночасно, але вам непросто переключатися між усіма відкритими книгами. Тож, можливо, ви захочете перерахувати всі відкриті книги в списку для зручного переключення між цими книгами в Excel. У цій статті ми покажемо вам, як перерахувати всі відкриті книги для зручної навігації в Excel.
Просто перелічіть усі відкриті книги з VBA
Перелічіть усі відкриті книги та легко перейдіть до книги за допомогою VBA
Перелічіть усі відкриті книги та легко перейдіть до книги за допомогою дивовижного інструменту

Просто перелічіть усі відкриті книги з VBA
У цьому розділі ви дізнаєтесь, як використовувати код VBA для переліку всіх відкритих книг у Excel.
1. прес інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікно. В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі.
2. Потім скопіюйте та вставте наведений нижче код VBA в редактор коду.
VBA: перелічіть усі відкриті імена книг у Excel
Sub ListWorkbooks() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8) Set WorkRng = WorkRng.Range("A1") xNum1 = Application.Workbooks.Count For i = 1 To xNum1 xNum2 = Application.Workbooks(i).Sheets.Count WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name For j = 1 To xNum2 WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name Next Next End Sub
3. Запустіть код VBA, натиснувши F5 ключ. В KutoolsforExcel У діалоговому вікні вкажіть комірку для розміщення списку книг, а потім клацніть на OK кнопку. Дивіться знімок екрана:
Потім перераховані всі відкриті книги з відповідними робочими листами.
Важко обробляти код VBA? Ви можете отримати його через третій метод з клацаннями.
Перелічіть усі відкриті книги та легко перейдіть до книги за допомогою VBA
Якщо ви хочете перерахувати всі книги для зручного переключення між книгами, спробуйте використовувати VBA наступним чином:
1 Натисніть кнопку інший + F11 відкрити Microsoft Visual Basic для додатків вікно. В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі.
2. Скопіюйте та вставте наступний код VBA у відкрите вікно модуля.
Код VBA: перелічіть усі відкриті книги та перейдіть до книги
Sub SelectWB() Dim xWBName As String Dim xWb As Workbook Dim xSelect As String For Each xWb In Application.Workbooks xWBName = xWBName & xWb.Name & vbCrLf Next xTitleId = "KutoolsforExcel" xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2) Application.Workbooks(xSelect).Activate End Sub
3 Натисніть кнопку F5 клавіша для запуску коду. Тоді a KutoolsforExcel спливає діалогове вікно зі списком усіх відкритих книг. Якщо ви хочете перейти до вказаної книги, введіть її назву у поле та натисніть на OK кнопку. Дивіться знімок екрана:
Перелічіть усі відкриті книги та легко перейдіть до книги за допомогою дивовижного інструменту
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
З Панель навігації of Kutools для Excel, всі відкриті книги будуть автоматично перераховані на панелі, щоб ви могли легко переходити між усіма відкритими книгами. Вам просто потрібно натиснути на одну з відкритих книг, і вона негайно перейде до цієї книги.
Якщо ви хочете отримати безкоштовну пробну версію цієї програми (30 днів), натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.