Ugrás a tartalomra

Hogyan lehet elrejteni a sorokat az Excel cellaértéke alapján?

Tegyük fel, hogy van egy adattartománya, és el akarja rejteni a sorokat egy oszlop értéke alapján, például, ha az oszlop cellájának értéke kisebb, mint 3000, akkor rejtse el a cella sorát az alábbi képernyőképen.


Az Excelben a Szűrő funkcióval szűrheti és elrejtheti a sorokat a cellaérték alapján.

1. Jelölje ki a kiszűrni kívánt adatokat, majd kattintson a gombra dátum > Szűrő. Lásd a képernyőképet:

doc elrejti a sorokat az 2. érték alapján

2. Ezután kattintson a lefelé mutató nyílra a szűrő legördülő lista megjelenítéséhez, majd kattintson a gombra Számszűrők (vagy szöveges szűrők) > Nagyobb, mint (az almenüből kiválaszthat más szükséges kritériumot). Lásd a képernyőképet:

doc elrejti a sorokat az 3. érték alapján

3. A felbukkanó párbeszédpanelen írja be a kritériumot a mellette lévő szövegmezőbe, amely nagyobb, mint. Lásd a képernyőképet:

doc elrejti a sorokat az 4. érték alapján

4. kettyenés OK. Most csak a 3000-nél nagyobb adatok jelennek meg, és a 3000-nél kisebb adatok el vannak rejtve.

doc elrejti a sorokat az 5. érték alapján


Sőt, ha érdekli a VBA kód, itt bemutathatok egy VBA kódot, hogy a cellák értéke alapján elrejtsem a sorokat.

1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson betétlap > Modulok hogy nyisson egy új Modulok ablakot, és illessze be a VBA kód alá.

VBA: Sorok elrejtése a cellaérték alapján.

Sub HideRow()
'Updateby20150618
Dim Rng As Range
Dim WorkRng As Range
Dim xNumber As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNumber = Application.InputBox("Number", xTitleId, "", Type:=1)
For Each Rng In WorkRng
    Rng.EntireRow.Hidden = Rng.Value < xNumber
Next
End Sub

3. Ezután nyomja meg a gombot F5 gombot a VBA futtatásához, majd a felbukkanó párbeszédpanelen válassza ki az elrejteni kívánt adattartományt (a fejlécek kivételével). Lásd a képernyőképet:

doc elrejti a sorokat az 6. érték alapján

4. kettyenés OK, és írja be a kritérium számát a második párbeszédpanelen. Lásd a képernyőképet:

doc elrejti a sorokat az 7. érték alapján

5. kettyenés OK. Most azok a sorok vannak rejtve, amelyek adata kisebb, mint 3000.

Tipp: Ha el akarja rejteni a 3000-nél nagyobb sorokat, egyszerűen változtasson Rng.EntireRow.Hidden = Rng.Value <xszám nak nek Rng.EntireRow.Hidden = Rng.Value> xNumber, vagy ha el akarja rejteni azokat a sorokat, amelyek adatai megegyeznek 3000-vel, váltson a következőre: Rng.EntireRow.Hidden = Rng.Value = xszám.


Gyorsan válassza ki a cellákat az Excel kritériumai alapján

A Kutools for Excel segítségével Válassza a Specifikus cellák lehetőséget, egyszerre választhat cellákat egy vagy két kritérium alapján. 
doc válassza ki a konkrét cellákat
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, 30 napon belül korlátozás nélkül kipróbálható.

HA nem szeretné engedélyezni a Szűrő funkciót, akkor sem a VBA-nak, itt bemutatok egy hasznos eszközt - Válassza a Specifikus cellák lehetőséget of Kutools az Excel számára gyorsan kiválaszthatja a teljes sorokat a cella értéke alapján, majd elrejtheti őket.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

Tipp. Ha egy ingyenes kivonatot szeretne kapni a Szöveg kivonása funkcióról, kérjük, látogasson el a Kutools for Excel ingyenes kipróbálására először, majd lépjen a művelet végrehajtására a fenti lépések szerint.

1. Válassza ki az adattartományt, majd kattintson Kutools > választ > Válassza a Specifikus cellák lehetőséget. Lásd a képernyőképet:

doc elrejti a sorokat az 14. érték alapján

2. Ban,-ben Válassza a Specifikus cellák lehetőséget párbeszédpanelen ellenőrizze Teljes sor alatt Kiválasztás típusa szakaszban, majd válassza ki a kívánt kritériumot Konkrét típus listát, majd írja be a számot vagy szöveget a szövegmezőbe. Lásd a képernyőképet:

doc elrejti a sorokat az 9. érték alapján

3. kettyenés Ok > OK a párbeszédek bezárásához. Most azokat a sorokat választja ki, amelyek adatai kisebbek, mint 3000, és csak a jobb egérgombbal kell kattintania a sor fejlécén a helyi menü megjelenítéséhez, majd kattintson az Elrejtés gombra. Lásd a képernyőképet:
doc elrejti a sorokat az 10. érték alapján

Most azok a sorok vannak rejtve, amelyek adata kisebb, mint 3000.

doc elrejti a sorokat az 11. érték alapján

Tipp:

1. Ha el akarja rejteni azokat a sorokat, amelyek egy bizonyos értéket tartalmaznak, kiválaszthatja tartalmaz és írja be a bizonyos értéket a szövegmezőbe.

doc elrejti a sorokat az 12. érték alapján

2. Ha el akarja rejteni azokat a sorokat, amelyek értéke nagyobb, de kisebb, akkor kiválaszthatja Nagyobb, mint és a Kevesebb mint, majd írja be az értékeket a két mezőbe, és ellenőrizze És.

doc elrejti a sorokat az 13. érték alapján

A Kutools for Excel segítségével Válassza a Specifikus cellák lehetőséget segédprogram segítségével azonosíthatja az egyes cellák helyét, kijelölhet teljes sorokat vagy oszlopokat a cellák értéke alapján, és így tovább. Kattintson ide, ha többet szeretne megtudni erről a segédprogramról.

Kutools for Excel: 300+ funkció, amivel rendelkeznie kell az Excelben, 30 napos ingyenes próba innen.

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

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...

kte lap 201905


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 (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Yes, "Entire Row" is selected.
This comment was minimized by the moderator on the site
All rows remain selected without using Kutools. As soon as I use Kutools and select header row, all other rows but the header row de-select.
This comment was minimized by the moderator on the site
Are you sure check the Entire row option in the dialog? If you check cell option, the selected cells will be unselected when you right click at one row.
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-select-specific-cell-1.png
This comment was minimized by the moderator on the site
Hi - I'm using a newer Lenovo PC with Windows 10 Professional and Microsoft 365 Apps for business. Excel Version 2210 (Build 15726.20202 Click-to-Run).
This comment was minimized by the moderator on the site
I have tried the operation in the same version with you, there is no any problem. Could you try to manually select several rows (without using Kutools for Excel), then right click at one row header, see all rows are remained selecting?
This comment was minimized by the moderator on the site
I have done exactly what you've demonstrated. However, when I right-click on the row header, all other rows become de-selected and only that one row remains selected to be hidden or deleted. No matter what I do, the other rows do not stay selected when right-clicking on the header. I'm at a loss to know what to do now.
This comment was minimized by the moderator on the site
I am so sorry for that. Could you tell me what Excel version and system you use?
This comment was minimized by the moderator on the site
Hello,

That is exactly what I've been doing, however, it only hides the row on which I have clicked the row header. All other selected rows remain unhidden, and are deselected at the same time. I will try it again following your gif exactly. Thanks for your reply.
This comment was minimized by the moderator on the site
I'm using Kutools to select entire rows based on a value, and it does select all the rows with that value. However, when I right-click on the row header and click on "Hide" in the menu, only that row is hidden and the rest that were selected become de-selected. It appears I still have to hide each row one at a time. What am I doing wrong?
This comment was minimized by the moderator on the site
Hi, Rochelley, I think there may be some wrong when you right-click at the row header. After the rows which match your condition are selecetd after applying the feature, right click at one row header of them, note that other rows are kept selected, then choose hide from the context menu. Please see the gif:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-hide-selected-row.gif
This comment was minimized by the moderator on the site
Hello,

I have a drop down with multiple reponses. I am trying to hide certain rows dependant on the response, can someone please assist?

Dropdown options are "CDI", "AR", "Legal", "Multiple" and "Other".

If response is CDI then hide rows 42-100

If response is AR then hide rows 19-41 and rows 66-100

If response is Legal then hide rows 19-66 and rows 88-100

If response is multiple then don't hide anything

If response is Other then hide rows 19-88



Can someone please asssist?
This comment was minimized by the moderator on the site
Hi I need some help with my work sheet. I have to build a dynamic questionnaire and I need to have a code that allow me to hide/ Unhide automatically some rows base on a cell information. Example:

if c6 is "internally" then show me row 7 but hide 8 to 107
if c6 is "Externally" then hide all the rows from 7 to 107


if c7 is "yes" then show me row 8 but hide 9 to 107
if c7 is "No" then show me row 8 but hide 9 to 107
if c8 is "Critical" then show me row 9 but hide 10 to 107

if c8 is "Important" show me row 9 but hide 10 to 107
if c8 is "Ordinary" show me row 9 but hide 10 to 107
if c8 is "Other" then show me row 9 but hide 10 to 107

if c9 is "Critical" then show me row 10 but hide 11 to 107
if c9 is "Important" then show me row 10 but hide 11 to 107
if c9 is "Ordinary" then show me row 10 but hide 11 to 107
if c9 is "Other" then show me row 10 but hide 11 to 107

etc.

can somebody help me?
This comment was minimized by the moderator on the site
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then

If Target.Value = "YES" Then
Worksheets(2).Activate
Worksheets(2).Application.Columns("A:Z").Select
Worksheets(2).Application.Selection.EntireColumn.Hidden = True
Worksheets(2).Application.Columns("AA:AZ").Select
Worksheets(2).Application.Selection.EntireColumn.Hidden = False
ElseIf Target.Value = "NO" Then
Worksheets(2).Activate
Worksheets(2).Application.Columns("AA:AZ").Select
Worksheets(2).Application.Selection.EntireColumn.Hidden = True
Worksheets(2).Application.Columns("A:Z").Select
Worksheets(2).Application.Selection.EntireColumn.Hidden = False
Else
Worksheets(2).Activate
Worksheets(2).Application.Columns("A:Z").Select
Worksheets(2).Application.Selection.EntireColumn.Hidden = False
Worksheets(2).Application.Columns("AA:AZ").Select
Worksheets(2).Application.Selection.EntireColumn.Hidden = False
End If

End If
End Sub
This comment was minimized by the moderator on the site
I got same error
This comment was minimized by the moderator on the site
Sorry I do not know either.
This comment was minimized by the moderator on the site
I don't know either Sunny
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations