Cum se...afiseaza indexul unui workbook Excel
Re: Cum se...afiseaza indexul unui workbook Excel
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 !!!!!!
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 !!!!!!
Re: Cum se...afiseaza indexul unui workbook Excel
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.
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.
Re: Cum se...afiseaza indexul unui workbook Excel
Am modificat putin codul si am adaugat mici comentarii, pentru a stii ce anume ati putea schimba:
Puteti formata si capul de tabel dupa bunul plac fara a vi se sterge.
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.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
-
- Mesaje: 29
- Membru din: Mie Oct 20, 2010 11:54 am
Re: Cum se...afiseaza indexul unui workbook Excel
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 .
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 .
Re: Cum se...afiseaza indexul unui workbook Excel
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?
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?
-
- Mesaje: 29
- Membru din: Mie Oct 20, 2010 11:54 am
Re: Cum se...afiseaza indexul unui workbook Excel
gata am reusit . Am salvat am inchis si redeschis fisierul si au aparut si noile sheeturi inserate .
Multumesc .
Multumesc .
Re: Cum se...afiseaza indexul unui workbook Excel
Buna ziua,
Cum se explica, indexul functioneaza fara cod.
Vezi fisierul atasat.
Cum se explica, indexul functioneaza fara cod.
Vezi fisierul atasat.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Cum se...afiseaza indexul unui workbook Excel
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.
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.
Re: Cum se...afiseaza indexul unui workbook Excel
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).
Re: Cum se...afiseaza indexul unui workbook Excel
Salutare,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).
Numarul maxim de foi este 200