Як перерахувати всі відкриті книги та легко переключатися між книгами в 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 ключ. В Kutools для Excel У діалоговому вікні вкажіть комірку для розміщення списку книг, а потім клацніть на 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 Kutools для Excel спливає діалогове вікно зі списком усіх відкритих книг. Якщо ви хочете перейти до вказаної книги, введіть її назву у поле та натисніть на OK кнопку. Дивіться знімок екрана:

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

З Панель навігації of Kutools для Excel, всі відкриті книги будуть автоматично перераховані на панелі, щоб ви могли легко переходити між усіма відкритими книгами. Вам просто потрібно натиснути на одну з відкритих книг, і вона негайно перейде до цієї книги.