Uneori este necesar ca celula să poată returna numele din registrul de lucru sau chiar numele și calea fișierului pentru acest registru de lucru. Cu acest truc, obțineți cu ușurință numele și calea din registrul de lucru.
Cele trei funcții personalizate pe care le vom introduce în acest articol trimit un nume de carte de lucru sau un nume de fișier și o cale pentru acest registru de lucru în celulă. Primele două exemple, MyName și MyFullName, nu necesită argumente.
Ultima, SHEETNAME, în uz, la pregătirea denumirii foaie nu investi MID (MID) și alte funcții în funcția celulei (CELL), deoarece necesită în mod tipic următoarea formulă greoaie: = MID (CELL ( „filename“ $ A $ 1) ; FIND ( "]" CELL ( "filename" $ A $ 1)) + 1; 255). în versiunea rusă a Excel = MID (CELL ( "nume de fișier", $ A $ 1), SEARCH ( "]"; CELL ( "nume de fișier", $ A $ 1)) + 1; 255). După cum se poate observa, pentru un rezultat simplu vine o mulțime de muncă, așa că ne-am dezvoltat independent o funcție SHEETNAME personalizată.
Pentru a aplica aceste funcții personalizate, apăsați Alt / Option + Fll, selectați Insert> Module și inserați codul afișat în Listing 7.19.
// Listarea 7,19 myname Function () Ca String myname - ThisWorkbook.Name MyFullName End Function Function () Deoarece String MyFullName = ThisWorkbook.FullName End Function Function SHEETNAME (rAnyCell) Application.Volatile SHEETNAME = rAnyCell.Parent.Name End Function
Salvați funcția și închideți fereastra. Acum, această funcție apare în zona Definită de utilizator a casetei de dialog Funcție lipire (combinația de taste Shift + F3).
Articole similare
-
Sfaturi și trucuri de rezolvare a problemei cu audio rupt în os x mavericks, sfaturi util iphone,
-
Un fizician video a făcut un truc de moarte pentru a dovedi legea lui Newton
Trimiteți-le prietenilor: