Bare vise alle åpne arbeidsbøker med VBA
I denne delen vil du lære hvordan du bruker en VBA-kode for å liste alle åpne arbeidsbøker i Excel.
1. Trykk ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vindu. I Microsoft Visual Basic for Applications-vinduet, klikker du Sett > Modulen.
To. Deretter kopiere og lime inn nedenfor VBA-kode inn i koden redaktør
VBA. Vise alle åpne arbeidsboken navnene i Excel
Sub ListWorkbooks () Dim RNG Som Range Dim WorkRng Som Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Out satt til (enkelt celle)", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.Range ("A1") xNum1 = Application.Workbooks. telle For i = 1 Til xNum1 xNum2 = Application.Workbooks (i) .Sheets.Count WorkRng.Offset (i - 1, 0) .Value = Application.Workbooks (i) .name For j = 1 Til xNum2 WorkRng.Offset ( i - 1, j) .Value = Application.Workbooks (i) .Sheets (j) .name Neste NextEnd Sub3. Kjør VBA-kode ved å trykke F5-tasten. I KutoolsforExcel dialogboksen angir en celle for å plassere listen arbeidsbok, og klikk deretter på OK-knappen. Se skjermbilde:
Så alle åpne arbeidsbøker med tilhørende regneark er listet ut
Vanskelig å håndtere VBA-kode.? Man kan oppnå det gjennom den tredje metoden med klikk. List alle åpne arbeidsbøker og skifte til en arbeidsbok lett med VBA
Hvis du ønsker å liste opp alle arbeidsbøker for enkelt skifte mellom arbeidsbøker, kan du prøve å bruke VBA som følger:
1. Trykk Alt + F11 for å åpne Microsoft Visual Basic for Applications vinduet. I Microsoft Visual Basic for Applications-vinduet, klikker du Sett > Modulen.
To. Kopier og lim inn følgende VBA-kode inn i det åpne modulen vindu
VBA-kode. Liste alle åpne arbeidsbøker og skifte til en arbeidsbok
Sub SelectWB () Dim xWBName As String Dim XWB Som arbeidsbok Dim xselect As String For Hver XWB I Application.Workbooks xWBName = xWBName & xWb.Name & vbCrLf Neste xTitleId = "KutoolsforExcel" xselect = Application.InputBox ("Angi en av arbeidsbøker nedenfor:" & vbCrLf & xWBName, xTitleId, "", Type: = 2) Application.Workbooks (xselect) .ActivateEnd Sub3. Trykk F5 for å kjøre koden. Så en KutoolsforExcel dialogboks åpnes med en liste over alle åpne arbeidsbøker. Hvis du ønsker å skifte til en spesifisert arbeidsbok, vennligst skriv dette navnet arbeidsbok inn i boksen og klikk på OK-knappen. Se skjermbilde:
List alle åpne arbeidsbøker og skifte til en arbeidsbok med Kutools for Excel
Med navigasjonsruten i Kutools for Excel, alle åpne arbeidsbøker vil bli oppført automatisk inne i en rute for deg å enkelt navigere mellom alle åpne arbeidsbøker. Du trenger bare å klikke på en av de åpne arbeidsbøker, og det vil navigere til at arbeidsboken umiddelbart.
Hvis dette verktøyet er nyttig, kan du laste ned og prøve den gratis prøveversjon nå!
Next Page:? Hvordan skape gjenbruk formel i
Hvis du ønsker å liste opp alle arbeidsbøker for enkelt skifte mellom arbeidsbøker, kan du prøve å bruke VBA som følger:
1. Trykk Alt + F11 for å åpne Microsoft Visual Basic for Applications vinduet. I Microsoft Visual Basic for Applications-vinduet, klikker du Sett > Modulen.
To. Kopier og lim inn følgende VBA-kode inn i det åpne modulen vindu
VBA-kode. Liste alle åpne arbeidsbøker og skifte til en arbeidsbok
Sub SelectWB () Dim xWBName As String Dim XWB Som arbeidsbok Dim xselect As String For Hver XWB I Application.Workbooks xWBName = xWBName & xWb.Name & vbCrLf Neste xTitleId = "KutoolsforExcel" xselect = Application.InputBox ("Angi en av arbeidsbøker nedenfor:" & vbCrLf & xWBName, xTitleId, "", Type: = 2) Application.Workbooks (xselect) .ActivateEnd Sub3. Trykk F5 for å kjøre koden. Så en KutoolsforExcel dialogboks åpnes med en liste over alle åpne arbeidsbøker. Hvis du ønsker å skifte til en spesifisert arbeidsbok, vennligst skriv dette navnet arbeidsbok inn i boksen og klikk på OK-knappen. Se skjermbilde: