Vispārēja formula
=GET.WORKBOOK(1)&T(NOW())
Kopsavilkums
Lai uzskaitītu darblapas Excel darbgrāmatā, varat izmantot divpakāpju pieeju: (1) ar veco makro komandu definējiet nosaukto diapazonu, ko sauc par "lapu nosaukumiem", un (2) izmantojiet funkciju INDEX, lai izgūtu lapu nosaukumus, izmantojot nosaukto diapazonu. Parādītajā piemērā formula B5 ir:
=INDEX(MID(sheetnames,FIND(")",sheetnames)+1,255),ROWS($B$5:B5))
Piezīme: Es uzskrēju šai formulai uz MrExcel ziņojumu dēļa T. Valko ierakstā.
Paskaidrojums
Nosauktais diapazons "lapu nosaukumi" tiek izveidots ar šo kodu:
=GET.WORKBOOK(1)&T(NOW())
GET.WORKBOOK ir makro komanda, kas izgūst lapu nosaukumu masīvu pašreizējā darbgrāmatā. Iegūtais masīvs izskatās šādi:
("(workbook.xlsm)Sheet1","(workbook.xlsm)Sheet2","(workbook.xlsm)Sheet3","(workbook.xlsm)Sheet4","(workbook.xlsm)Sheet5")
Rezultātam tiek pievienota kriptiska izteiksme:
&T(NOW())
Šī koda mērķis ir piespiest pārrēķinu, lai uzņemtu izmaiņas lapu nosaukumos. Tā kā NOW ir nepastāvīga funkcija, tā tiek pārrēķināta ar visām darblapas izmaiņām. Funkcija NOW atgriež skaitlisku vērtību, kas apzīmē datumu un laiku. Funkcija T atgriež skaitliskām vērtībām tukšu virkni (""), tāpēc savienošana neietekmē vērtības.
Atpakaļ darblapā, šūnā B6 ir šī formula, kas nokopēta:
=INDEX(MID(sheetnames,FIND(")",sheetnames)+1,255),ROWS($B$5:B5))
Strādājot no iekšpuses, MID funkcija tiek izmantota darblapu nosaukumu noņemšanai. Iegūtais masīvs izskatās šādi:
("Sheet1","Sheet2","Sheet3","Sheet4","Sheet5")
Tas tiek ievadīts INDEX funkcijā kā "masīvs". Funkcija ROW izmanto paplašinošus diapazonus, lai ģenerētu pieaugošu rindas numuru. Katrā jaunajā rindā INDEX atgriež nākamo masīva vērtību. Kad vairs nav izdalāmo lapu nosaukumu, formula atgriezīs kļūdu #REF.
Piezīme. Tā kā šī formula balstās uz makro komandu, jums būs jāsaglabā kā makro iespējota darbgrāmata, ja vēlaties, lai pēc faila aizvēršanas un atkārtotas atvēršanas formula turpinātu atjaunināt lapu nosaukumus. Ja saglabājat kā parastu darblapu, lapas nosaukuma kods tiks noņemts.
