Як перерахувати всі відкриті книги та легко переключатися між книгами в 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 Sub3. Запустіть код 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 Sub3 Натисніть кнопку F5 клавіша для запуску коду. Тоді a Kutools для Excel спливає діалогове вікно зі списком усіх відкритих книг. Якщо ви хочете перейти до вказаної книги, введіть її назву у поле та натисніть на OK кнопку. Дивіться знімок екрана:
Перелічіть усі відкриті книги та легко перейдіть до книги за допомогою дивовижного інструменту
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
З Панель навігації of Kutools для Excel, всі відкриті книги будуть автоматично перераховані на панелі, щоб ви могли легко переходити між усіма відкритими книгами. Вам просто потрібно натиснути на одну з відкритих книг, і вона негайно перейде до цієї книги.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
