Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako v seznam vseh odprtih delovnih zvezkov in enostavno premikanje med delovnimi zvezami v Excelu?

Microsoft Excel vam omogoča, da hkrati odpirate več delovnih zvezkov, vendar vam ni enostavno premikati med vsemi odprtimi delovnimi zvezami. Torej boste morda želeli na seznamu navesti vse odprte delovne zveze, ki se lahko preprosto premikajo med temi delovnimi zvezami v Excelu. V tem članku vam bomo pokazali, kako naj seznam vseh odprtih delovnih zvezkov za enostavno navigacijo v Excelu.

Navedite vse odprte delovne zvezke z VBA

Navedite vse odprte delovne knjige in preprosto preklopite na delovni zvezek z VBA

Navedite vse odprte delovne knjige in preklopite na delovni zvezek s programom Kutools for Excel



puščica modra desno mehurček Navedite vse odprte delovne zvezke z VBA

V tem razdelku boste izvedeli, kako uporabljati kodo VBA za navedbo vseh odprtih delovnih zvezkov v Excelu.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli.

2. Nato kopirajte in prilepite spodnjo kodo VBA v urejevalnik kode.

VBA: seznam vseh odprtih imen delovne knjige v Excelu

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. Zaženite kodo VBA s pritiskom na F5 ključ. V Ljubljani KutoolsforExcel v pogovornem oknu, določite celico za postavitev seznama delovne knjige in kliknite OK gumb. Prikaz slike:

Nato so navedeni vsi odprti delovni zvezki z ustreznimi delovnimi listi.

Težko je uporabljati kodo VBA? To lahko dosežete skozi tretja metoda s kliki.

puščica modra desno mehurček Navedite vse odprte delovne knjige in preprosto preklopite na delovni zvezek z VBA

Če želite vse delovne knjige navesti za enostavno premikanje med delovnimi zvezami, poskusite uporabiti VBA na naslednji način:

1. Pritisnite druga + F11 da odprete Microsoft Visual Basic za aplikacije okno. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli.

2. Kopirajte in prilepite naslednjo kodo VBA v okno odprtega modula.

VBA koda: seznam vseh odprtih delovnih zvezkov in preklop na delovni zvezek

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. Pritisnite F5 ključ za zagon kode. Potem a KutoolsforExcel pogovorno okno popisuje seznam vseh odprtih delovnih zvezkov. Če želite preklopiti na določen delovni zvezek, v polje vpišite ime te delovne knjige in kliknite OK gumb. Prikaz slike:


puščica modra desno mehurček Navedite vse odprte delovne knjige in preklopite na delovni zvezek s programom Kutools for Excel

Z Podokno za krmarjenje of Kutools za Excel, bodo vsi odprti delovni zvezki samodejno našteti v podoknu, tako da lahko enostavno krmarite med vsemi odprtimi delovnimi zvezami. Samo klikniti morate enega od odprtih delovnih zvezkov in se takoj pomakniti v to delovno knjigo.

Če je to koristno, lahko prenesite in poskusite brezplačno preizkusiti zdaj!

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.