Sok kollégám sok időt tölt azzal, hogy összefoglaló munkalapot készítsen Excelben.
Egy tipikus összefoglaló munkalap tartalmazza a különböző cellákban található összes munkalap nevét, és az összes név is hivatkozik ezekre a munkalapokra.
Tehát rákattinthat egy lap nevű cellára (mondjuk Jan, február, március… ), és elviszi arra a munkalapra. Ezenkívül minden munkalapon található egy hiperhivatkozás, amely az összefoglaló munkalapra mutat vissza.
Bár a kollégáim szuperhatékonyak lettek ebben, mégis időpocsékolás, amikor ugyanazt kevesebb mint egy másodperc alatt megteheti (igen, jól olvasta).
A trükk az, hogy hozzon létre egy rövid makrót, amely megteszi az Ön számára.
Függetlenül attól, hogy hány munkalapja van, azonnal összefoglaló munkalapot hoz létre működő hiperhivatkozásokkal.
Valami az alábbiak szerint:
Amint a fenti képen látható, a makró futtatásakor (a gombra kattintva) azonnal létrehozza az összefoglalót. A munkalapok hiperhivatkozással vannak ellátva, ami a munkalapra vezet, amikor rákattint.
Összefoglaló munkalap létrehozása hiperhivatkozásokkal
Az összesítő munkalap létrehozásakor az összes nehéz feladatot egy rövid VBA kód végzi. Csak futtatnia kell a kódot, és szünetet kell tartania, mivel most lenne egy kis szabadideje 🙂
Itt a kód:
Sub CreateSummary () 'Létrehozta: Sumit Bansal, trumpexcel.com' Ez a kód használható összefoglaló munkalap létrehozására hiperhivatkozásokkal Dim x Mint Munkalap Dim Counter Mint Integer Counter = 0 Minden x In Munkalapok Counter = Counter + 1 If Counter = 1 Akkor GoTo Donothing with ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Kattintson ide a" Feladatlapokkal "munkalapra lépéshez (Számláló) .Range ("A1"). Value = "Vissza a" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "" "És"! " & ActiveCell.Address, _ ScreenTip: = "Return to" & ActiveSheet.Name End with End with ActiveCell.Offset (1, 0). Válassza ki a Donoting: Next x End Sub lehetőséget
Hová tegye ezt a kódot?
Kövesse az alábbi lépéseket a kód elhelyezéséhez a munkafüzetben:
- Lépjen a Fejlesztő fülre, és kattintson a Visual Basic elemre. Használhatja a billentyűparancsot is - ALT F11.
- Ha megtalálja a fejlesztő lapot az Excel szalagjában, kattintson ide, hogy megtudja, hogyan szerezheti be.
- Ha megtalálja a fejlesztő lapot az Excel szalagjában, kattintson ide, hogy megtudja, hogyan szerezheti be.
- A bal oldalon egy Project Explorer ablaktáblának kell lennie (ha nincs, használja a Control + R billentyűkombinációt, hogy láthatóvá váljon).
- Lépjen a Beszúrás elemre, és kattintson a modulban. Ez hozzáad egy modult a munkafüzethez. Ezenkívül a jobb oldalon megjelenik a kódablak (villogó kurzorral).
- A modulkód ablakban másolja ki és illessze be a fenti kódot.
A kód futtatása
Ennek a kódnak a futtatásához:
- Lépjen a Fejlesztő fülre -> Kód -> Makrók. Ekkor megnyílik a Makró párbeszédablak.
- Válassza ki a Makró CreateSummary makrót, majd kattintson a Futtatás gombra.
- Ez lefuttatja a makrót, és létrehozza a hiperhivatkozásokat az aktív lapon.
A makró futtatásának másik módja egy gomb/alakzat beszúrása és a makró hozzárendelése. Ezt csináld meg:
- Illesszen be egy alakzatot a munkalapba. Formázza az alakzatot a kívánt módon.
- Kattintson a jobb egérgombbal, és válassza a Makró hozzárendelése lehetőséget.
- A Makró hozzárendelése mezőben válassza ki az alakzathoz rendelni kívánt makrót, majd kattintson az OK gombra.
Most egyszerűen kattintson az alakzatra a makró futtatásához.
Töltse le a fájlt innen
Jegyzet:
- Keményen kódoltam az A1 cellát minden lapon, amely hiperhivatkozással visszajut az összefoglaló lapra. Győződjön meg róla, hogy ennek megfelelően módosítja, ha minden lapon van valami az A1 cellában.
- Az összefoglaló nem hoz létre hiperhivatkozást magának (ami értelmes, mivel már az adott lapon van).
- Futtassa ezt a kódot, ha az Összefoglaló munkalap az aktív munkalap.
- Érdemes formázást vagy átrendezést hozzáadni. De remélem, ez a kód gondoskodik a nehéz részről.
- Mentse ezt a munkafüzetet .xls vagy .xlsm kiterjesztésként, mivel makrót tartalmaz.
Egyéb Excel VBA oktatóanyagok:
- Több keresési értéket kaphat ismétlés nélkül egyetlen cellában.
- Feladat -prioritási mátrix - VBA alkalmazás.
- Több munkafüzet egyesítése egyetlen Excel munkafüzetbe.
- Excel VBA hurkok - Következő, csináld amíg, addig, mindegyikhez (példákkal).
- Makró rögzítése - lépésről lépésre.
- A hiperhivatkozások gyors eltávolítása az Excel munkalapjáról.
- Online Excel VBA tanfolyam.
