Ugrás a tartalomra

Hogyan szűrhető a cellák félkövér karakterekkel az Excelben?

Alkalmazhatja a félkövér betűtípust az adatok vagy tartalom formázására az Excel celláiban, de tudja-e, hogyan kell szűrni a cellákat az Excel félkövér betűstílusát tartalmazó cellák alapján? Ez a cikk több trükkös VBA makrót gyűjt össze a cellák félkövér karakterekkel történő szűrésére az Excelben.

A félkövér cellákat szűrje a segítő oszloppal
Szűrje a félkövér cellákat a VBA kóddal
Könnyen szűrheti a merész cellákat egy csodálatos eszközzel
További oktatóanyagok az adatok szűréséhez ...


Szűrje félkövér cellákat a súgó oszlop segítségével

Tegyük fel, hogy a B oszlop összes félkövér celláját szűrni kell, az alábbi képernyőképen: kérjük, tegye a következőket:

Az alábbi, felhasználó által definiált függvény segít azonosítani, hogy egy oszlop cellája félkövér-e vagy sem, majd az eredményeket IGAZként vagy Hamisként adja vissza egy segítő oszlopban. Az összes IGAZ eredményt kiszűrheti, hogy csak a B oszlop félkövér celláit jelenítse meg.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic alkalmazásokhoz ablak.

2. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modul, majd másolja a következő VBA kódot a Modul ablakba. Lásd a képernyőképet:

VBA kód: Szűrje a cellákat félkövér karakterekkel

Function IsBold(rCell As Range)
IsBold = rCell.Font.Bold
End Function

3. megnyomni a más + Q gombokat a kódablak bezárásához.

4. Válasszon egy üres cellát, amely a táblával szomszédos (a kiválasztott cellának a szűrőtábla első sorának ugyanazon sorában kell elhelyezkednie), másolja bele az alábbi képletet, és nyomja meg a lépj be kulcs.

= IsBold (B2)

5. Folyamatosan válassza ki az első eredmény cellát, és az összes eredmény eléréséhez húzza a Kitöltő fogantyút. Lásd a képernyőképet:

6. Jelölje ki a segítő oszlop fejlécét, kattintson dátum > Szűrő. Kattintson a fejléc cellája melletti nyíl gombra, ellenőrizze a TRUE csak a mezőbe, majd kattintson a gombra OK.

Most a B oszlop összes félkövér celláját kiszűrjük az alábbi képernyőképen.


Gyorsan szűrheti a vastag cellákat egy oszlopban, több kattintással az Excelben:

A Félkövér cellák szűrése hasznossága Kutools az Excel számára segíthet egy adott oszlop összes félkövér cellájának gyors szűrésében, több kattintással, ahogy az alábbi bemutató bemutatja.
Töltse le a Kutools for Excel teljes 30 napos ingyenes nyomvonalát most!


Szűrje a félkövér cellákat a VBA kóddal

Az alábbi VBA-kód lehetővé teszi, hogy az összes félkövér cellát közvetlenül egy oszlopban szűrje. Kérjük, tegye a következőket.

1. Válassza ki azt az oszloptartományt, amelyből az összes félkövér cellát kiszűri, kivéve a fejléc celláját. Ebben az esetben a B2: B16-ot választom.

2. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic alkalmazásokhoz ablak.

3. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modul, majd másolja és illessze be a következő VBA kódot a Modul ablakba.

VBA kód: Szűrje félkövér cellákat egy oszlopban

Sub FilterBold()
'Updated by Extendoffice 20191018
Dim cell As Range
For Each cell In Selection
If cell.Font.Bold = False Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

4. megnyomni a F5 gomb a makró futtatásához. Ezután az összes félkövér cellát azonnal kiszűrjük a kiválasztott oszloptartományban.


Könnyen szűrheti a merész cellákat egy csodálatos eszközzel

Ebben a szakaszban egy praktikus eszközt javasolunk Önnek - a Félkövér cellák szűrése hasznossága Kutools az Excel számára. Ezzel a segédprogrammal a kiválasztott oszlop összes félkövér celláját azonnal, több kattintással szűrjük.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Válassza ki az oszloptartományt, amelyen a félkövér cellákat szűrni fogja, kattintson a Kutools Plus> Speciális szűrő > Félkövér szűrő hogy elkészüljön. Lásd az alábbi bemutatót:

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikkek

Több oszlop egyidejű szűrése az Excelben
Miután szűrte az egyik oszlopot a Filter funkcióval, csak AND feltételeket lehet alkalmazni egynél több oszlopra. Ebben az esetben hogyan alkalmazhatja mind az AND, mind az OR feltételeket több oszlop egyidejű szűrésére az Excel munkalapon? A cikkben szereplő módszerek jót tehetnek Önnek.

Szűrje vagy jelölje ki a cellákat cellaszín szerint az Excelben
Általában az Excelben bármilyen célra kitöltheti a cellákat különböző színekkel. Ha van egy munkalapja, amely különböző színekkel jelzi a különböző típusú tartalmakat, és szeretné szűrni vagy kiválasztani ezeket a cellákat a cella színe szerint, elvégezheti a cikkben leírt módszerekkel.

A rejtett / szűrt cellák és sorok kihagyása az Excelbe
Például szűrt egy táblázatot az Excel programban, de most át kell másolnia egy tartományt, és be kell illesztenie ebbe a szűrt táblába. Tudja, hogyan kell beilleszteni a rejtett / szűrt cellák és sorok kihagyását? A cikk számos egyszerű módja segíthet.

Sorok szűrése egy másik lapon szereplő listaválasztás alapján
Az Excel rendszerint általában kritériumok alapján szűrjük a sorokat, de ha két lista létezik, az egyik a Sheet1-ben, a másik pedig a Sheet2-ben található, van-e valami trükkje a Sheet1-es sorok gyors szűrésére a Sheet2-es lista alapján? Ez a cikk bemutatja ennek a feladatnak a megoldását.

Szűrje az összes kapcsolódó adatot az Excel egyesített celláiból
Tegyük fel, hogy az adattartományban van egy egyesített cellák oszlopa, és most szűrnie kell ezt az oszlopot egyesített cellákkal, hogy az egyesített cellákkal kapcsolatos összes sor megjelenjen a következő képernyőképek szerint. Az Excel programban a Szűrés funkció csak az egyesített cellákhoz társított első elem szűrését teszi lehetővé, ebben a cikkben arról beszélünk, hogy az összes kapcsolódó adatot kiszűrjük az Excel egyesített celláiból.

További oktatóanyagok az adatok szűréséhez ...

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (16)
Rated 4.5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Thanks for sharing, it works wonderful, thank you!
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Thanks for the formula..it helped
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
I've used this technique and had an issue when trying to copy the bold data. It only copies some of the data for some reason. Is there any way of copying only the bold data using this technique? Thanks, Richard
This comment was minimized by the moderator on the site
Dear richard skins,



We didn't encounter the problem as you mentioned. Would you please provide a screenshot with details of your operation?



Thank you for your comment!
This comment was minimized by the moderator on the site
Hi, I'm a complete excel novice, i've done the following technique but now need to copy the data which is bold/true. When I have tried to do this is won't copy what is highlighted. Any ideas on how I can copy the data? Thanks, Richard
This comment was minimized by the moderator on the site
@RICHARD Can u please provide any screenshot of your spreadsheet showing what u are exactly trying to do?
This comment was minimized by the moderator on the site
Thanks for sharing. It works wonderful.
This comment was minimized by the moderator on the site
Hi I am using this code and its working fine but whenever I click on cancel the dialogue box a popup window appear and shows some error. Can you please tell me how to remove that error. :Sub FilterBold() Dim myRange As Range Set myRange = Application.InputBox(Prompt:="Please Select a Range", Title:="InputBox Method", Type:=8) myRange.Select Application.ScreenUpdating = False For Each myRange In Selection If myRange.Font.Bold = False Then myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Dear Nitin Jain,

Sorry to reply so late!

We have found the proble and fixed it already. The VBA script in the article is now updated,

Thank you for your comment!
This comment was minimized by the moderator on the site
Simple and brilliant, thank you!
This comment was minimized by the moderator on the site
This worked perfectly, thank you!!! :D :lol:
This comment was minimized by the moderator on the site
I presume that column A is the reference Column with Bold cells. I create a Name "Bold?" with the refer to as below =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) In column B, I type: =Bold? Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
@cadafi ur formula works fine but it is not the optimised or efficient use of it. Rather we should use direct reference of the range or a cell in place of that complete offset command. Like the one as follows: =GET.CELL(20,'Sheet1'!A1) Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
Thanks Mohamand Faizan. You are entirely correct.
This comment was minimized by the moderator on the site
@Mohammad Faizan You are entirely correct. Thanks.
This comment was minimized by the moderator on the site
@Cadafi.... thats brilliant... wondering how it works though!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations