Nume pagina
Nume pagina
Sal
am un fisier cu 2 pagini
Pag1 si Pag2
în Pag2
C3=Pag1!C3
cum pot obtine in C6 doar numele paginii din fomula care este in C3 adica "Pag1!" sau "Pag1"
ca tunci cind schimb numele paginii "Pag1" in "Pag..."
sa se modifice automat si continutul C6 din Pag2 si "Pag..."
multumesc
am un fisier cu 2 pagini
Pag1 si Pag2
în Pag2
C3=Pag1!C3
cum pot obtine in C6 doar numele paginii din fomula care este in C3 adica "Pag1!" sau "Pag1"
ca tunci cind schimb numele paginii "Pag1" in "Pag..."
sa se modifice automat si continutul C6 din Pag2 si "Pag..."
multumesc
Ultima oară modificat Joi Mar 01, 2018 10:00 am de către IPP, modificat 1 dată în total.
Motiv: Corectare nume subiect
Motiv: Corectare nume subiect
Re: Ntme pagina
din Pag2 ÎN "Pag..."
Re: Ntme pagina
Care e versiunea de Excel?
“Tell me and I forget, teach me and I may remember, involve me and I learn.”
Re: Ntme pagina
Cod: Selectaţi tot
=SUBSTITUTE(LEFT(FORMULATEXT(C3),FIND("!",FORMULATEXT(C3))-1),"=","")
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Re: Ntme pagina
Exel 2013 dar fisierul e folosit si in Exel 2003
Re: Ntme pagina
Am vrut sa folosesc functia "formulatext" dar aceasta nu va fi recunoscuta in Excel 2003.
Ne gandim la alta varianta.
Ne gandim la alta varianta.
“Tell me and I forget, teach me and I may remember, involve me and I learn.”
Re: Ntme pagina
Da, asa este,
Ar fi doua solutii:
Solutia 1.
Folosirea unei functii definite (UDF), ceea ce implica transformarea fisierului in .xlsm
Solutia 2 (fara VBA, dar trebuie sa o testati, eu nu am 2003 la dispozitie)
Folosirea unui nume definit (Vedeti exemplul atasat).
Pentru situatia data, formula pentru definirea numelui ar fi:
Totusi, doar de curios, care este logica? Pentru ce aveti nevoie de numele foii extras din formula?
Firesc (cred eu) ar fi sa schimbati numele foii intr-o celula si formula sa-l preia de acolo, nu sa modificati formula! (vedeti zona incadrata cu galben in fisierul atasat)
Ar fi doua solutii:
Solutia 1.
Folosirea unei functii definite (UDF), ceea ce implica transformarea fisierului in .xlsm
Cod: Selectaţi tot
Function GetFormulaI(Cell As Range) As String
'Application.Volatile = True
If VarType(Cell) = 8 And Not Cell.HasFormula Then
GetFormulaI = "'" & Cell.Formula
Else
GetFormulaI = Cell.Formula
End If
If Cell.HasArray Then _
GetFormulaI = "{" & Cell.Formula & "}"
End Function
Folosirea unui nume definit (Vedeti exemplul atasat).
Pentru situatia data, formula pentru definirea numelui ar fi:
Cod: Selectaţi tot
=GET.CELL(6,OFFSET(INDIRECT("RC",FALSE),-3,0))
Firesc (cred eu) ar fi sa schimbati numele foii intr-o celula si formula sa-l preia de acolo, nu sa modificati formula! (vedeti zona incadrata cu galben in fisierul atasat)
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Re: Ntme pagina
Tudy,Solutia 2 (fara VBA, dar trebuie sa o testati, eu nu am 2003 la dispozitie)
Folosirea unui nume definit (Vedeti exemplul atasat).
Pentru situatia data, formula pentru definirea numelui ar fi:
Cod: Selectaţi tot
=GET.CELL(6,OFFSET(INDIRECT("RC",FALSE),-3,0))
Acel GET.CELL este un cod VBA care s-a folosit in versiunile mai vechi.
Incearca sa salvezi fisierul in format .xlsx (Evident fara alt cod avand in fisier numai acel get.cell)
“Tell me and I forget, teach me and I may remember, involve me and I learn.”
Re: Ntme pagina
Este intr-adevar un macro dar este un cod XL4, nu VBA.
Din acest motiv, la salvarea fisierului in format .xlsx va fi afisat avertismentul prin care te anunta ca exista macro in fisier.
Din cate am inteles insa, fisierul va fi folosi si in 2003, deci formatul lui va fi .xls, caz in care numele definit va functiona.
Eu am atasat un .xlsm pentru ca am pus ambele solutii in acelasi fisier.
Din acest motiv, la salvarea fisierului in format .xlsx va fi afisat avertismentul prin care te anunta ca exista macro in fisier.
Din cate am inteles insa, fisierul va fi folosi si in 2003, deci formatul lui va fi .xls, caz in care numele definit va functiona.
Eu am atasat un .xlsm pentru ca am pus ambele solutii in acelasi fisier.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Re: Ntme pagina
multumesc
am mai gasit si pe net urmatoarea functie
Public Function Sheetname(ByRef acell As Range) As String
Sheetname = acell.Parent.Name ‘ trebuie sa selectezi celula din pagina la care vrei sa îi afli numele
End Function
=sheetname(Pag1!C3)
multumesc mult pt ajutor
am mai gasit si pe net urmatoarea functie
Public Function Sheetname(ByRef acell As Range) As String
Sheetname = acell.Parent.Name ‘ trebuie sa selectezi celula din pagina la care vrei sa îi afli numele
End Function
=sheetname(Pag1!C3)
multumesc mult pt ajutor