Hvordan liste alle åbne projektmapper og nemt skifte mellem projektmapper i Excel?
Microsoft Excel giver dig mulighed for at åbne flere projektmapper på samme tid, men det er ikke let for dig at skifte mellem alle åbne projektmapper. Så du vil muligvis liste alle åbne projektmapper på en liste for let at skifte mellem disse projektmapper i Excel. I denne artikel viser vi dig, hvordan du viser en liste over alle åbne projektmapper til nem navigation i Excel.
Bare list alle åbne projektmapper med VBA
Liste over alle åbne projektmapper, og skift nemt til en projektmappe med VBA
Liste over alle åbne projektmapper, og skift let til en projektmappe med et fantastisk værktøj
Bare list alle åbne projektmapper med VBA
I dette afsnit lærer du, hvordan du bruger en VBA-kode til at liste alle åbne projektmapper i Excel.
1. Trykke andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue. I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler.
2. Kopier og indsæt derefter nedenstående VBA-kode i kodeditoren.
VBA: liste alle åbne projektmavnavne i 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. Kør VBA-koden ved at trykke på F5 nøgle. I KutoolsforExcel i dialogboksen, skal du angive en celle til placering af projektmappelisten og derefter klikke på OK knap. Se skærmbillede:
Derefter vises alle åbne projektmapper med tilsvarende regneark.
Svært at håndtere VBA-kode? Du kan opnå det gennem tredje metode med klik.
Liste over alle åbne projektmapper, og skift nemt til en projektmappe med VBA
Hvis du vil liste alle projektmapper til let skift mellem projektmapper, så prøv at bruge VBA som følger:
1. Tryk på andre + F11 at åbne Microsoft Visual Basic til applikationer vindue. I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler.
2. Kopier og indsæt følgende VBA-kode i det åbne modulvindue.
VBA-kode: liste alle åbne projektmapper, og skift til en projektmappe
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. Tryk på F5 nøgle for at køre koden. Så a KutoolsforExcel dialogboksen vises med en liste over alle åbne projektmapper. Hvis du vil skifte til en bestemt projektmappe, skal du indtaste dette projektmappe navn i feltet og klikke på OK knap. Se skærmbillede:
Liste over alle åbne projektmapper, og skift let til en projektmappe med et fantastisk værktøj
Før påføring Kutools til Excel, Bedes download og installer det først.
Med Navigationsruden of Kutools til Excel, vises alle åbne projektmapper automatisk inde i en rude, så du nemt kan navigere mellem alle åbne projektmapper. Du skal bare klikke på en af de åbne projektmapper, og den navigerer straks til den projektmappe.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!