Cum se...afiseaza indexul unui workbook Excel

trucuri, sfaturi si alte idei pentru imbunatatirea lucrului cu Excel

Cum se...afiseaza indexul unui workbook Excel

Mesajde 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
Dr. Cloud
 
Mesaje: 3329
Membru din: Mar Oct 02, 2012 11:19 am

Re: Afisare index workbook Excel

Mesajde 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
stelea
 
Mesaje: 98
Membru din: Vin Aug 07, 2009 11:31 am
Localitate: Bucuresti

Re: Afisare index workbook Excel

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

tare :D
Dr.Excel
MCT, MCITP
MOS Master Instructor
IT Learning
Avatar utilizator
Dr.Excel
Site Admin
Site Admin
 
Mesaje: 1918
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest

Re: Afisare index workbook Excel

Mesajde 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
Dr. Cloud
 
Mesaje: 3329
Membru din: Mar Oct 02, 2012 11:19 am

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

Mesajde 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,
Avatar utilizator
cristi_lazarro
 
Mesaje: 841
Membru din: Mie Noi 04, 2009 5:57 pm

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

Mesajde 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.
Dr. Cloud
 
Mesaje: 3329
Membru din: Mar Oct 02, 2012 11:19 am

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

Mesajde 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,
Avatar utilizator
cristi_lazarro
 
Mesaje: 841
Membru din: Mie Noi 04, 2009 5:57 pm

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

Mesajde 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.
Dr. Cloud
 
Mesaje: 3329
Membru din: Mar Oct 02, 2012 11:19 am

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

Mesajde 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,
Avatar utilizator
cristi_lazarro
 
Mesaje: 841
Membru din: Mie Noi 04, 2009 5:57 pm

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

Mesajde 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!
elclassicco
 
Mesaje: 18
Membru din: Sâm Feb 06, 2010 8:20 pm

Următorul

Înapoi la Tips and Tricks Excel

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 1 vizitator

cron