Az Excel munkalapján található összes megjegyzés listájának beszerzése

Ha olyan Excel -munkalapokkal dolgozik, amelyek sok cella megjegyzést tartalmaznak egy munkalapon, akkor ez az oktatóanyag hasznos lehet. Néha beilleszthet cella megjegyzéseket, hogy kiemelje vagy elmagyarázza az adatokat, vagy a főnöke beszúrhat megjegyzéseket a cellákba, miközben áttekinti a munkáját.

Ha hatalmas adathalmaza van, és a megjegyzések szétszóródnak a munkalapon, segíthet, ha az összes megjegyzést egyetlen helyen, listaként tartalmazza.

A munkalap összes megjegyzésének listája

Ebben az oktatóanyagban megmutatom, hogyan használhat egy VBA -kódot a munkalap összes megjegyzésének listájához külön munkalapon.

Valami az alábbiak szerint:

Van egy VBA kód a háttérben, amely a következőket teszi:

• Ellenőrzi, hogy vannak -e megjegyzések az aktív munkalapon. Ha nincs hozzászólás, csendben meghajol, és nem tesz semmit.
• Ha megjegyzések vannak a munkalapon, akkor létrehoz egy új munkalapot („Megjegyzések”), és kibontja az összes megjegyzés listáját a következő struktúrában:
  • Az A oszlop tartalmazza a megjegyzés cellájának címét.
  • A B oszlopban van a hozzászóló neve. Ez jól jöhet, ha ugyanazon fájl több ellenőrzője van. Ez is segít szűrni/rendezni a véleményezők neve alapján.
  • A C oszlop tartalmazza a megjegyzést.

Töltse le a példa fájlt

A VBA kódex

Itt van a VBA kód, amely az összes nehéz emelést elvégzi.

Sub ExtractComments () Dim ExComment Hozzászólásként Dim i Mint Integer Dim ws Munkalapként Dim CS Munkalapként Állítsa be CS = ActiveSheet, ha ActiveSheet.Comments.Count = 0 Ezután lépjen ki a Sub -ból minden ws -hez a munkalapokon Ha ws.Name = "Comments" Akkor i = 1 Következő ws Ha i = 0 Akkor állítsa be a ws = Munkalapokat.Add (Utána: = ActiveSheet) ws.Name = "Megjegyzések" Egyéb: Állítsa be a ws = Munkalapok ("Megjegyzések") Véget, ha minden egyes CSC.Comments ws. Tartomány ("A1"). Value = "Comment In" ws.Range ("B1"). Value = "Comment By" ws.Range ("C1"). Value = "Comment" A ws.Range ("A1: C1 "). Betűtípus. Félkövér = Igaz. Belső. Szín = RGB (189, 215, 238). Oszlopok. Oszlopszélesség = 20 Vége if Ha ws.Range (" A2 ") =" "Akkor ws.Range (" A2 " ) .Value = ExComment.Parent.Add ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Érték = Jobb (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Egyéb ws.Range ("A1"). Vége (xlDown) .Offset (1, 0) = ExComment.Parent.Address ws.Range ("B1"). End (xlDown) .Offset (1, 0) = Bal (ExComment. Szöveg, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). Vége (xlDown) .Offset (1, 0) = Jobb (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) End If Next ExComment End Sub

Hogyan kell használni ezt a kódot

Ezt a kódot néhány módon használhatja a megjegyzések listájának lekéréséhez a munkalapjáról:

#1 Másolja be az adatokat a példa fájlba

Másolja be az adatokat (ahogy van) a letöltési fájl Adatok fülére, majd futtassa ezt a makrót.

Ennek futtatásához:

• Lépjen a Fejlesztő fülre, és kattintson a Makrók elemre. Megnyílik a Makró párbeszédpanel.
• Válassza az ExtractComment elemet, majd kattintson a Futtatás gombra. Győződjön meg arról, hogy azon a lapon van, amely tartalmazza a kivonni kívánt megjegyzéseket.

#2 Másolás Illessze be a kódot a munkafüzetébe

Másolja ki a kódot, és illessze be a munkafüzetbe, amelyből ki szeretné venni a megjegyzéseket.

Ezt csináld meg:

• Aktiválja a munkafüzetet, amelyben dolgozik, és nyomja meg az Alt + F11 billentyűkombinációt. Ezzel megnyílik a VB Editor ablak.
• A bal oldali Project Explorerben kattintson a jobb gombbal az adott munkafüzet bármelyik objektumára, majd lépjen a Beszúrás -> Modul menüpontra.
• Illessze be a kódot a Modul kód ablakba.
• Zárja be a VB szerkesztő ablakát (vagy nyomja meg az Alt + F11 billentyűkombinációt, hogy visszatérjen a munkalaphoz).

Most már megtalálható a makró a munkafüzetben. A makró futtatásához lépjen a Fejlesztő fül -> Makrók menüpontra. A Makró párbeszédpanelen válassza ki az ExtractComment makrót, majd kattintson a Futtatás gombra.

Megjegyzés: Mentse el a munkafüzetet val vel .XLS vagy .XLSM kiterjesztés.

#3 Hozzon létre egy bővítményt

Ha gyakran kell használnia ezt a kódot, akkor jobb, ha létrehoz egy bővítményt belőle. Így könnyedén használhatja bármelyik munkafüzetben (anélkül, hogy a kódot újra és újra beillesztené).

A következőképpen hozhat létre bővítményt:

• Lépjen a Fájl -> Mentés másként menüpontra.
• A Mentés másként párbeszédpanelen módosítsa a Mentés másként típust .xlam formátumra.
  • Észre fogja venni, hogy a fájl elérési útja automatikusan megváltozik. Megváltoztathatja, ha akarja.
• Nyisson meg egy Excel -munkafüzetet, és lépjen a Fejlesztő -> Bővítmények -> Excel -bővítmények menüpontra.
• A Bővítmények párbeszédpanelen keresse meg és keresse meg a mentett fájlt, majd kattintson az OK gombra.

A bővítmény aktiválása után bármelyik munkafüzetben használható. Ehhez lépjen a Fejlesztő -> Makrók menüpontra. A Makró párbeszédpanelen válassza ki az ExtractComment makrót, és futtassa azt.

Töltse le a példa fájlt

Remélhetőleg ez a kód időt takarít meg. Mondja el véleményét a megjegyzések részben.

Ha Excel -sel dolgozik, a VBA erős szövetséges lehet. Emelje Excel készségeit a következő szintre az Excel VBA tanfolyam segítségével.