Cum se...afiseaza indexul unui workbook Excel

trucuri, sfaturi si alte idei pentru imbunatatirea lucrului cu Excel

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

Mesajde 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 !!!!!!
DAN
 
Mesaje: 76
Membru din: Lun Oct 19, 2009 7:47 pm

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

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

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

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

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

Mesajde 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 .
GUZU.DANIEL
 
Mesaje: 29
Membru din: Mie Oct 20, 2010 11:54 am

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

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

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

Mesajde 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 .
GUZU.DANIEL
 
Mesaje: 29
Membru din: Mie Oct 20, 2010 11:54 am

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

Mesajde 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.
gms
 
Mesaje: 21
Membru din: Dum Ian 31, 2010 10:21 am

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

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

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

Mesajde 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).
dip
 
Mesaje: 158
Membru din: Sâm Feb 06, 2010 11:09 pm
Localitate: Brasov

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

Mesajde 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:
Indigo
 
Mesaje: 774
Membru din: Sâm Sep 26, 2009 8:05 pm

AnteriorUrmătorul

Înapoi la Tips and Tricks Excel

Cine este conectat

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