Mindenekelőtt BÚÉK mindenkinek! Remélem a tavalyi év utolsó napja mindenkinek az elképzelése szerint alakult. Én most itthon töltöttem a szilvesztert, az emeletről fantasztikus kilátás volt vagy egy tucat tűzijátékra egy időben. Persze a szokásos lencse-virsli-pezsgő kombináció nem maradt el. A 2019-es esztendő első posztjának egy könnyedebb témát találtam ki: az aktuális névnap kiíratását Excelben. Mai névnap 2019 2. Ha csak a végeredményre vagy kíváncsi, a munkafüzet innen letölthető, viszont a makró csak ebben a fájlban működik (a fájl megnyitásakor vagy futtatáskor). Ha bárhonnan szeretnéd a makrót futtatni (vagyis megtudni az aktuális névnapot független attól, hogy melyik munkafüzet van megnyitva), akkor olvass tovább. Nekem nincs névnapos falinaptáram, az aktuális névnapért pedig nem mindig akarok felmenni egy hírportálra vagy a Facebook-ra. Az alábbi megoldással viszont – akármelyik munkafüzetben vagyunk – egyetlen kattintással ellenőrizhetjük, kit is kellene felköszöntenünk a mai napon. A lépések ne riasszanak el, mintegy 5-10 perc alatt végrehajtható az összes instrukció, az Excelbe épített névnapos kiegészítő viszont örökös 🙂 A legalaposabb listát a Wikipédián találtam itt.
Kérdésed, észrevételed van? Szólj hozzá lent vagy dobj egy emailt:
A makró neve most a jobb oldali lista alján helyezkedik el. Addig kattintsunk a felfele nyílra, míg a név a kívánt pozícióba kerül: 14. Ezt követően az "OK" gombot nyomjuk meg a jobb alsó sarokban. Én a lista legtetejére raktam a makró nevét. Tehát a kódhoz tartozó parancsikon a legelső a QAT-n: Készen vagyunk. Ezután csak kattintsunk rá az ikonra (vagy használjuk az ALT+1 billentyűkombinációt) és máris láthatjuk, ma kinek van névnapja: Mivel a makrót az egyéni makró munkafüzethez () adtuk hozzá, így bármelyik munkafüzet van megnyitva, működik. Még valami: ha az évet kell frissíteni pl. A mai nap dátumának spirituális üzenete – 05.22.. 2019-ről 2020-ra: az adatokat tartalmazó munkalapon az "A" oszlopot jelöljük ki, majd CTRL+H (Keresés és csere): Keresett szöveg: 2019 Csere erre: 2020 majd "Az összes cseréje" gombot megnyomni és a munkafüzetet elmenteni: Továbbfejlesztéshez ötletek: a makró futtatása után görgessen az aktuális sorhoz – KÉSZ a main felül a tegnapi és a holnapi névnapot is megjeleníteni előre megadni bizonyos névnapokat és a makró automatikusan jelzi, ha a mai napon ezek közül valamelyik esedékes Remélem hasznos volt a poszt.
Ide másoljuk bele a fentebbi kódot. Az eredmény ehhez hasonló lesz: 7. Kattintsunk a Mentés gombra a VBE-ben, majd zárjuk be a VBE ablakot a jobb felső sarokban lévő X-szel (ne az Excel-t zárjuk be! ): Mentés… … majd bezárás X-szel: 8. A címsorban a ""-t kell látnunk. A Nézet (View) menüben válasszuk az Elrejtés (Hide) opciót, így az egyéni makró munkafüzet rejtve lesz, ahogy eddig is: 9. Zárjuk be az egész Excelt a jobb felső sarokban lévő piros X-szel. A felugró ablaknál válasszuk a "Mentés" gombot: 10. Nyissunk meg egy üres Excel munkafüzetet és adjuk hozzá a makrót a Gyorselérési eszköztárhoz (angolul QAT vagyis Quick Access Toolbar). A kapcsolódó bejegyzésem itt látható (videóval): Jobb egérgombbal kattintunk a Gyorselérési eszköztár-on és a "Gyorselérési eszköztár testreszabása…" lehetőséget választjuk: 11. A "Választható parancsok helye" opció alatt egy legördülő lista található. Válasszuk ki a "Makrók"-at: 12. Mai névnap 2019 film. Keressük meg a makró nevét (a név itt a "! " kifejezés után található "NevnapKereso"), majd kattintsunk a "Felvétel" gombra: 13.