Nume pagina

trucuri, sfaturi si alte idei pentru imbunatatirea lucrului cu Excel
adof
Mesaje: 466
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Nume pagina

Mesaj de adof » Mar Feb 27, 2018 9:31 pm

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
Ultima oară modificat Joi Mar 01, 2018 10:00 am de către IPP, modificat 1 dată în total.
Motiv: Corectare nume subiect

adof
Mesaje: 466
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: Ntme pagina

Mesaj de adof » Mar Feb 27, 2018 9:36 pm

din Pag2 ÎN "Pag..."

H2SO4
Mesaje: 135
Membru din: Mar Apr 19, 2016 12:50 pm

Re: Ntme pagina

Mesaj de H2SO4 » Mar Feb 27, 2018 10:39 pm

Care e versiunea de Excel?
“Tell me and I forget, teach me and I may remember, involve me and I learn.”

TudyBTH
Moderator
Moderator
Mesaje: 993
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: Ntme pagina

Mesaj de TudyBTH » Mar Feb 27, 2018 11:23 pm

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.

adof
Mesaje: 466
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: Ntme pagina

Mesaj de adof » Mie Feb 28, 2018 6:47 am

Exel 2013 dar fisierul e folosit si in Exel 2003

H2SO4
Mesaje: 135
Membru din: Mar Apr 19, 2016 12:50 pm

Re: Ntme pagina

Mesaj de H2SO4 » Mie Feb 28, 2018 2:21 pm

Am vrut sa folosesc functia "formulatext" dar aceasta nu va fi recunoscuta in Excel 2003.
Ne gandim la alta varianta. :D
“Tell me and I forget, teach me and I may remember, involve me and I learn.”

TudyBTH
Moderator
Moderator
Mesaje: 993
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: Ntme pagina

Mesaj de TudyBTH » Mie Feb 28, 2018 3:00 pm

Da, asa este,

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
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))
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)
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.

H2SO4
Mesaje: 135
Membru din: Mar Apr 19, 2016 12:50 pm

Re: Ntme pagina

Mesaj de H2SO4 » Mie Feb 28, 2018 7:16 pm

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))
Tudy,

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.”

TudyBTH
Moderator
Moderator
Mesaje: 993
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: Ntme pagina

Mesaj de TudyBTH » Mie Feb 28, 2018 8:14 pm

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.
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.

adof
Mesaje: 466
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: Ntme pagina

Mesaj de adof » Joi Mar 01, 2018 9:49 am

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

Închis

Înapoi la “Tips and Tricks Excel”