Як перерахувати всі відкриті книги та легко переключатися між книгами в Excel?

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

Просто перелічіть усі відкриті книги з VBA
Перелічіть усі відкриті книги та легко перейдіть до книги за допомогою VBA
Перелічіть усі відкриті книги та легко перейдіть до книги за допомогою дивовижного інструменту

Дивовижний! Використання ефективних вкладок в Excel, як Chrome, Firefox та Safari!

Заощаджуйте 50% свого часу та зменшуйте тисячі клацань миші щодня!

Просто перелічіть усі відкриті книги з 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% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...