Note: The other languages of the website are Google-translated. Back to English

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 teljes funkciót 30-napos ingyenes Kutools for Excel nyomvonal 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 szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogrambó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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (15)
Az 4.5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Feltételezem, hogy az A oszlop a referenciaoszlop félkövér cellákkal. Létrehozok egy nevet "Bold?" az alábbi hivatkozással =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) A B oszlopba beírom: =Bold? Másolja le a képletet, majd használja az automatikus szűrőt az IGAZ érték szűréséhez. KÉSZ
A weboldal moderátora ezt a megjegyzést minimalizálta
@Cadafi... ez zseniális... de vajon hogyan működik!
A weboldal moderátora ezt a megjegyzést minimalizálta
A @cadafi képlete jól működik, de nem az optimalizált vagy hatékony felhasználása. Inkább használjunk közvetlen hivatkozást a tartományra vagy egy cellára a teljes offset parancs helyett. Hasonlóan a következőhöz: =GET.CELL(20,'Sheet1'!A1) Másolja le a képletet, majd használja az automatikus szűrőt az IGAZ érték szűréséhez. KÉSZ
A weboldal moderátora ezt a megjegyzést minimalizálta
@Mohammad Faizan Teljesen igazad van. Kösz.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm Mohamand Faizan. Teljesen igazad van.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez tökéletesen működött, köszönöm!!! :D :lol:
A weboldal moderátora ezt a megjegyzést minimalizálta
Egyszerű és zseniális, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ezt a kódot használom, és jól működik, de amikor a párbeszédpanel megszakítására kattintok, megjelenik egy felugró ablak, és hibaüzenetet mutat. Kérem, mondja meg, hogyan távolíthatom el ezt a hibát. :Sub FilterBold() Dim myRange as Range Set myRange = Application.InputBox(Prompt:="Kérjük, válasszon egy tartományt", Title:="InputBox Method", Type:=8) myRange.Select Application.ScreenUpdating = Hamis minden myRange esetén Kijelölésben, ha myRange.Font.Bold = hamis Akkor myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Nitin Jain!

Elnézést, hogy ilyen későn válaszolok!

Megtaláltuk a problémát és már javítottuk is. A cikkben szereplő VBA-szkript most frissült,

Köszönjük észrevételét!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönet a megosztásért. Csodálatosan működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok, teljesen újonc vagyok az Excelben, a következő technikát csináltam, de most át kell másolni a félkövér/igaz adatokat. Amikor megpróbáltam ezt megtenni, nem másolja a kiemeltet. Van valami ötletetek, hogyan tudnám átmásolni az adatokat? Köszönöm, Richard
A weboldal moderátora ezt a megjegyzést minimalizálta
@RICHARD Tudna adni egy képernyőképet a táblázatáról, amely megmutatja, hogy pontosan mit próbál tenni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Használtam ezt a technikát, és problémám volt a félkövér adatok másolásakor. Valamiért csak az adatok egy részét másolja. Van-e mód csak a félkövér adatok másolására ezzel a technikával? Köszönöm, Richard
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves richard skins!



Nem találkoztunk a problémával, ahogy említetted. Adna egy képernyőképet a művelet részleteivel?



Köszönjük észrevételét!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm a formulát.. segített
Az 4.5-t az 5-ből kiértékelte
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi