Как да изброявате всички отворени работни книги и лесно да превключвате между работни книги в Excel?
Microsoft Excel ви позволява да отваряте няколко работни книги едновременно, но не ви е лесно да превключвате между всички отворени работни книги. Така че може да искате да изброите всички отворени работни книги в списък за лесно превключване между тези работни книги в Excel. В тази статия ще ви покажем как да изброите всички отворени работни книги за лесна навигация в Excel.
Просто избройте всички отворени работни книги с VBA
Избройте всички отворени работни книги и лесно преминете към работна книга с VBA
Избройте всички отворени работни книги и лесно преминете към работна книга с невероятен инструмент
Просто избройте всички отворени работни книги с VBA
В този раздел ще научите как да използвате VBA код за изброяване на всички отворени работни книги в Excel.
1. Натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули.
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 за приложения прозорец, кликнете Поставете > Модули.
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 ключ за изпълнение на кода. Тогава 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% и намалява стотици кликвания на мишката за вас всеки ден!