Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як перерахувати всі відкриті книги та легко переключатися між книгами в 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-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.