Cum se...afiseaza indexul unui workbook Excel

trucuri, sfaturi si alte idei pentru imbunatatirea lucrului cu Excel
Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Cum se...afiseaza indexul unui workbook Excel

Mesaj de Dr. Cloud » Lun Aug 03, 2009 1:14 pm

Mentionez de la inceput ca acest cod nu este munca mea.
La munca lucrez foarte mult cu Excel si din aceasta cauza am unele workbook-uri foarte mari (aproape 50 sheet-uri).
Am cautat foarte mult un cod care sa mi le indexeze pentru a le putea accesa mai usor.
Codul de mai jos face acest lucru foarte bine.
Cum functioneaza:
- trebuie creat un worksheet nou si redenumit in Index;
- pentru a adauga codul pentru acest sheet se face astfel:
- click dreapta pe sheet-ul numit Index si se alege optiunea View code;
- copiati codul de mai jos in fereastra de cod;
- salvati fisierul Excel si inchideti-l.

Acum de fiecare data cand deschideti acel workbook, in foaia numita Index o sa apara scrise toate sheet-urile existente in acel workbook.
Acum cu un singur click ajungeti in ce sheet doriti.
Pentru a va intoarce pe sheet-ul Index trebuie doar sa dati un click pe textul scris in celula A1 numit Back to Index

Cod: Selectaţi tot

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With
    
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            .Range("A1").Name = "Start" & wSheet.Index
            .Hyperlinks.Add Anchor:=.Range("A1"), address:="", SubAddress:="Index", TextToDisplay:="Back to Index"
        End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub

Avatar utilizator
stelea
Mesaje: 98
Membru din: Vin Aug 07, 2009 11:31 am
Localitate: Bucuresti
Contact:

Re: Afisare index workbook Excel

Mesaj de stelea » Lun Aug 03, 2009 11:14 pm

Asta e f tare, mi-a placut cel mai mult. Chiar e de ajutor.
Numa' bine,
*****A

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje: 1921
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest
Contact:

Re: Afisare index workbook Excel

Mesaj de Dr.Excel » Mar Aug 04, 2009 10:56 am

tare :D
Dr.Excel
MCT, MCITP
MOS Master Instructor
IT Learning

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: Afisare index workbook Excel

Mesaj de Dr. Cloud » Mar Aug 04, 2009 11:04 am

Dap. E foarte tare.
Mi l-a scris cineva pe forumul "frate" al acestui forum. :D

Avatar utilizator
cristi_lazarro
Mesaje: 841
Membru din: Mie Noi 04, 2009 5:57 pm

Re: Cum se...afiseaza indexul unui workbook Excel

Mesaj de cristi_lazarro » Sâm Feb 06, 2010 1:57 pm

salutare,

exista vre-o eroare in cod de nu merge? cu toate ca, toata lumea spune ca e ok, :shock:

multumesc,

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: Cum se...afiseaza indexul unui workbook Excel

Mesaj de Dr. Cloud » Sâm Feb 06, 2010 2:05 pm

Spune-mi ce eroare primesti si cum ai procedat ca sa adaugi codul.
Daca poti, ataseaza aici un workbook cu ce ai incercat.

L.E.
Uite aici un exemplu.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Avatar utilizator
cristi_lazarro
Mesaje: 841
Membru din: Mie Noi 04, 2009 5:57 pm

Re: Cum se...afiseaza indexul unui workbook Excel

Mesaj de cristi_lazarro » Sâm Feb 06, 2010 2:17 pm

buna ziua,

excell-ul meu face fitze!!!

acum a mers!!!


ps:

am creat o noua pagina(denumita "index") intr-un fisier existent ce contine alte 14 pagini. am dat click dr, view code, cu paste am copiat codul respectiv. daca dau run apare eroare. la redeschidere nu apare nimic in pagina index.
salvare ca enabled macro.


multumesc,

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: Cum se...afiseaza indexul unui workbook Excel

Mesaj de Dr. Cloud » Sâm Feb 06, 2010 2:28 pm

Se face asa:
- adaugi codul;
- creezi sheet-ul Index
- salvezi registrul;
- il inchizi;
- il redeschizi si dai enable la codurile macro;
- accesezi un alt sheet si apoi revii la sheet-ul Index si vei observa ca sunt adaugate in Index;
- NU rulezi acel cod, pt. ca nu ai de ce.

Avatar utilizator
cristi_lazarro
Mesaje: 841
Membru din: Mie Noi 04, 2009 5:57 pm

Re: Cum se...afiseaza indexul unui workbook Excel

Mesaj de cristi_lazarro » Sâm Feb 06, 2010 2:30 pm

am inteles. de aia nu a mers prima data.

a doua oara am facut probabil cum trebuia.

multumesc,

elclassicco
Mesaje: 18
Membru din: Sâm Feb 06, 2010 8:20 pm

Re: Cum se...afiseaza indexul unui workbook Excel

Mesaj de elclassicco » Joi Mar 04, 2010 12:46 am

Daca aflam de "trickul" asta cu ceva in timp in urma....:d, scuteam ceva munca. Foarte buna treaba Alexx!

Scrie răspuns

Înapoi la “Tips and Tricks Excel”