Cum se...afiseaza indexul unui workbook Excel

trucuri, sfaturi si alte idei pentru imbunatatirea lucrului cu Excel
DAN
Mesaje: 76
Membru din: Lun Oct 19, 2009 7:47 pm

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

Mesaj de DAN » Mar Mai 04, 2010 8:05 am

Intr-adevar MINUNAT !
FELICITARI !!!!!!
O intrebare:
Cum se poate preveni stergerea denumirii unui sheet din lista afisata de acest cod?
Daca dau clic dreapta pe denumirea unui sheet pot sa dau delet.
Se poate introduce un cod prin care un anumit utilizator sa poata accesa celula dar sa nu poata sa o stearga???
Acest lucru este bun pentru a proteja aplicatiile de ,, profesorii" in excel sau de cei rau intentionati(DA sunt si astfel de persoane).
Multumesc si inca o data FELICITARI !!!!!!

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 » Mar Mai 04, 2010 9:02 am

Pai ai putea sa protejezi cu parola acel sheet.
Dar oricum, chiar daca cineva sterge din acel sheet o linie, in clipa in care accesezi din nou acel sheet cu Index, acel index se regenereaza automat.
Asa ca, degeaba il sterge pt. ca el apare la loc de indata ce revii in acel sheet.

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 » Mar Sep 21, 2010 5:19 pm

Am modificat putin codul si am adaugat mici comentarii, pentru a stii ce anume ati putea schimba:

Cod: Selectaţi tot

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
        .Columns(2).ClearContents
        'aici se trece numele care doriti sa apara in capul de tabel
        .Cells(1, 1) = "Index Tutoriale E-Learning"
        'aici celulei ce contine capul de tabel i se atribuie un nume (Name Range)
        .Cells(1, 1).Name = "Index"
    End With
    
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            'Start este numele definit al celulei in care apare link-ul de intoarcere la Index
            .Range("A1").Name = "Start" & wSheet.Index
            'aici punem numele dorit pentru textul care ne permite intoarcerea la pagina de index
            .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Înapoi La Cuprins"
        End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub

Puteti formata si capul de tabel dupa bunul plac fara a vi se sterge.
ScreenShot040.JPG
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

GUZU.DANIEL
Mesaje: 29
Membru din: Mie Oct 20, 2010 11:54 am

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

Mesaj de GUZU.DANIEL » Joi Oct 21, 2010 9:18 am

Salut tuturor ,

Am si eu o nelamurire. dupa mai multe cautari am gasit acest cod ca sa sar de la un sheet la altul . Lam bagat si merge dar daca mai adaug un sheet in lista nu se updateaza automat . ce trebuie sa fac . cum fac ca la inserare de noi sheeturi sa apara si ele la index .Mentionez ca am incercat sa le adaug manual cu hyperlink dar nu am reusit .

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 » Joi Oct 21, 2010 9:20 am

1. Ai permis codurilor macro sa ruleze?
2. Dupa ce ai inserat o foaie noua, ai dat click apoi pe foaia Index, ca sa il adauge codul in mod automat?
3. Celelalte foi existente sunt afisate in Index?

GUZU.DANIEL
Mesaje: 29
Membru din: Mie Oct 20, 2010 11:54 am

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

Mesaj de GUZU.DANIEL » Mar Oct 26, 2010 8:24 am

gata am reusit . Am salvat am inchis si redeschis fisierul si au aparut si noile sheeturi inserate .

Multumesc .

gms
Mesaje: 21
Membru din: Dum Ian 31, 2010 10:21 am

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

Mesaj de gms » Joi Oct 28, 2010 1:08 pm

Buna ziua,
Cum se explica, indexul functioneaza fara cod.
Vezi fisierul atasat. :shock:
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

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 » Joi Oct 28, 2010 1:12 pm

Nu prea cred.
Eu am testat fisierul atasat si nu se intampla asa ceva.
Acele link-uri raman in foaie, fiindca au fost create de acel cod macro.
Daca stergi codul, nu se sterg si acele hyperlink-uri.
Ia sterge sau insereaza o foaie si vezi daca se actualizeaza index-ul.

dip
Mesaje: 168
Membru din: Sâm Feb 06, 2010 11:09 pm
Localitate: Brasov

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

Mesaj de dip » Sâm Feb 09, 2013 12:17 pm

Cum trebuie modificat codul ca sa ruleze numai cand se doreste (la rularea unei macrocomenzi), nu la fiecare activare a foii INDEX? (pentru multe foi de calcul - 1000 - dureaza mult recalcularea foii INDEX).

Indigo
Mesaje: 774
Membru din: Sâm Sep 26, 2009 8:05 pm

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

Mesaj de Indigo » Dum Feb 10, 2013 1:29 pm

dip scrie:Cum trebuie modificat codul ca sa ruleze numai cand se doreste (la rularea unei macrocomenzi), nu la fiecare activare a foii INDEX? (pentru multe foi de calcul - 1000 - dureaza mult recalcularea foii INDEX).
Salutare,

Numarul maxim de foi este 200 :lol:

Scrie răspuns

Înapoi la “Tips and Tricks Excel”