Preskoči na glavno vsebino

 Kako vedno pri celici A1 pri odpiranju delovnega zvezka?

Kot vsi vemo, bo ob odprtju delovnega zvezka prikazan položaj celice, kjer ste ga nazadnje shranili in zaprli. Kako lahko vedno odprete delovni zvezek z vsakim listom v določeni celici A1? Ta članek bo govoril o nekaterih načinih za njegovo rešitev.

Vedno odprite delovni zvezek z vsakim listom v celici A1 s kodo VBA

Vedno odprite delovni zvezek na določenem listu in celici A1 s kodo VBA


puščica modri desni mehurček Vedno odprite delovni zvezek z vsakim listom v celici A1 s kodo VBA

Na primer, vedno želite, da se delovni zvezek odpre v celici A1 vsakega delovnega lista, ne glede na to, kje ste bili v delovnem zvezku, ko je bil nazadnje zaprt. Naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno. Na levi Projekt-VBAProjekt podokno, dvokliknite Ta delovni zvezek če želite odpreti prazen modul, nato pa v modul kopirajte in prilepite naslednjo kodo, glejte sliko zaslona:

Koda VBA: Vedno odprite delovni zvezek z vsakim listom v celici A1:

Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub

doc vedno odprt pri A1 1

2. Nato zaprite to kodo in kliknite file > Shrani kot da shranite delovni zvezek kot Excelov delovni zvezek z omogočeno makro format, glej posnetek zaslona:

doc vedno odprt pri A1 2

3. Od zdaj naprej, ko naslednjič odprete ta delovni zvezek, kliknite Omogoči vsebino za aktiviranje kode in preklapljanje med listi lahko vidite, da je vsak delovni list samodejno v celici A1.

doc vedno odprt pri A1 3


puščica modri desni mehurček Vedno odprite delovni zvezek na določenem listu in celici A1 s kodo VBA

Če morate ob vsakem zagonu delovnega zvezka samo odpreti določen list v celici A1, vam bo morda v pomoč naslednja koda VBA.

Na primer, vedno želim iti na List1 v celici A1, ko odpiram delovni zvezek.

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno. Na levi Projekt-VBAProjekt podokno, dvokliknite Ta delovni zvezek če želite odpreti prazen modul, nato pa v modul kopirajte in prilepite naslednjo kodo, glejte sliko zaslona:

Koda VBA: Vedno odprite delovni zvezek s posebnim listom v celici A1:

Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub

doc vedno odprt pri A1 4

Opombe: V zgornji kodi, Sheet1 in A1 so referenčni list delovnega lista in celice, na katerega želite odpreti delovni zvezek. Lahko jih spremenite po svojih potrebah.

2. Nato zaprite to kodo in kliknite file > Shrani kot da shranite delovni zvezek kot Excelov delovni zvezek z omogočeno makro format, od zdaj naprej, ko naslednjič odprete ta delovni zvezek, kliknite Omogoči vsebino za aktiviranje kode in bo samodejno prešla na Sheet1 v celici A1.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations