Removal (rejtett) vonalak a feltétellel, hogy az Excel makrók

Nem támogatja a szabad makrók és módosítja őket, hogy megfeleljen a követelményeknek.

Kérem, mondja meg. Szenvedek egy hétre. Nem tudom megváltoztatni a jelenlegi makro elrejteni sorokat. Van egy asztal számokat. Be kell valamit elrejteni sorokat, amikor mindkét oszlopban az A és B és C és D értéke kisebb, mint 0. jó lenne bevezetni ezt az értéket a felhasználói formában voltak gombok elrejteni, és az összes. Segíts kérlek. És mégis, a sorok számát tudja verni más. A digitális értékeket kezdve a második sorban.

Hello, van egy helyzet. Van egy asztal 3000 sort és mintegy 25 oszlopok
Az első 10 oszlop tele vannak a szövegben, 11-25 bar szám. Hogyan teljesen eltávolítani a vonal, ha az oszlopokat 11-25, mind az üres sejteket. és ha legalább egy cella tele van, a vonal nem érintette? de az első tíz oszlopot nem kell figyelni

És hogyan kell csinálni ugyanolyan állapotban, hogy egyesítsék sejtekben, és csak néhány értéket?

Azonnali, akárcsak a makro lap „2”, „2A”, „2b”, és így tovább. D.

Sub UdalenieStrokPoUsloviyu ()
Dim RA Range, delra Ahogy Range, TekstDlyaPoiska As String
Application.ScreenUpdating = False „disable képernyő frissítése

TekstDlyaPoiska = „érték name” „törölje a sort a szöveg

„Végighaladni az összes sort sávban használt lap
For Each RA ActiveSheet.UsedRange.Rows
„Ha a szöveg megtalálható a húr
Ha nem ra.Find (TekstDlyaPoiska. XlValues, xlPart) Aztán semmi
„Add a sort a tartomány törlése
Ha delra semmi majd állítsa delra = ra Else Set delra = Union (delra, RA)
End If
következő
„Ha talált megfelelő sor - törli őket
Ha nem delra semmi Aztán delra.EntireRow.Delete
End Sub

Ha azt szeretnénk, hogy megjelenjen a ellentétes vonal „EntireRow.Hidden = False”
Hogyan szöveget keresni rejtett sorok / oszlopok?

Helló Mondd, kérlek, hogyan kell regisztrálni a makrót úgy, hogy:
1. Eltávolítja az összes sort a kitöltés színe,
2. törli az összes vonal, amely vagy a sejt bármely kitöltőszínét.
Köszönöm.

Igor, kösz a makro - könnyebbé teszi az életet! Nem tanácsot, hogyan kell használni ezt a makrót, ha védő lemez?

Jó napot! Kérem, mondja meg, hogy hogyan lehet egy makro elrejti a sor azzal a feltétellel, hogy a két egymást követő oszlopokban 0 vagy üres? és hogy ő nem fut, amikor megnyitja a fájlt, majd kattintson a?
Van egy lehetőség, azzal a feltétellel az oszlop, mert helyes

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim d As Integer
d = UsedRange.Rows.Count + 1
A rwIndex = 1-től 31-ig
colIndex = 3
Ha a sejteket a (rwIndex, colIndex) .Value = 0, akkor
Sorokban (rwIndex) .Hidden = True
End If
következő
End Sub

Én is nagyon hálás)

Jó napot! Nekem van egy probléma, a nagy táblák és azok kollichestvom) Egy könyv, amit 25 lap egy nagy asztal nyomtatáshoz udbstva hoztam létre egy makrót elrejti a nem kívánt sorok, oszlopok és cellák az egész könyvet egyszerre, felváltva minden lapon. Most azt akarom, hogy azonnal telepíteni az egész könyvet rejtett sejteket. És nem tudom) Mondd el, hogyan oldja meg a makró, hogy működik a modulban „Ez a könyv” minden lap egyszerre

Sub Show ()
Columns.Hidden = False
Rows.Hidden = False

A - amit az orvos rendelt - köszönjük! És sajnálom, hogy nem helyesen :)

Sander, írtam a kódot, ahogy kérte - ha van a sejtek száma, a sor törlésre kerül.
És meg kellett eltávolítani csak a cella száma (és nem tartalmaznak számokat)
Cserélje

Sander, így próbálja:

Üdvözlünk! Lapozgatta, olvastam - még mindig nem találta meg a választ, hogy az ő feladata, és ez: az oszlop, és alternatív szöveg és a számok - szükség van, hogy távolítsa el a sorokat, amelyek számokat tartalmaznak (ezek estno - eltérő). Köszönjük!

Eugene, a makro akció törlés nem működik az Excel
(Ez a makró, nem törölték - rendezett Excel)

Prompt. eltávolítása után sorban egy makró, akkor nem valamilyen okból vissza vissza vissza izmeneniya.Chto kell változtatni, hogy visszatér.

Üdvözöljük Nuryana.
A programom működik - ha helyes beállítása
(Beállítás minden konkrét helyszín - 1500 rubel + 2500 program önmagában megéri)

Szia Admin! Kereste sokáig. feketemunka, mint a közös vállalat beszerzési és már kínozták katalógusok töltés, erőfeszítés nincs többé. Egyszer vettem egy markológép programozó, hát nem tetszett. Meg kell vásárolni markológép 2800 és dolgozik az időben. Mondd meg, hogy a program, és mennyibe kerül, és testre szabható, hogy a hely, ahol dolgozom, és használja folyamatosan egyszer fizetni?

Tudjuk, hogy a rendezés - minden működni fog, ahogy kellene.

Még ölni - nem működik. Az elképzelés az, hogy a makró aktiválódik, ha rákattint a cellába. Tart az értéke az aktív vonalak és 2 oszlop, úgy néz ki, hogy egy másik lapot, és azt csak lehet megkülönböztetni. Az egész ötlet.
A kód sin
"VzyatDannye = Cells (ActiveCell.Row, 2) Eddig"
Nem az értéke -> nem találja azt a másik lapot. Hogyan lehet vele látni az értéket. (Idézőjelek beállítva - ez nem segít.

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel néven logikai érték)

Dim RA Range, FINRA néven tartomány

Ha Target.Cells.Value = "" Akkor Exit Sub
Ha nem metszik egymást (Target, tartomány ( "AF3: AF5000")) Aztán semmi

Ha nem FINRA semmi Aztán finra.EntireRow.Select
Application.ScreenUpdating = True
End If
End Sub

Andrew, így próbálja

Rejtett vonalak mind kiváló. de mi van, ha később szükség van néhány rejtett vonalak újra felfedje (jeleként, hogy elrejtse őket irreleváns lehet a jövőben)?
Készült ilyen bileberdu de a rejtett sorok, nem hozta nyilvánosságra :( Valószínűleg nem látja a rejtett sorokat. Segíts tanácsot kérem!

Sub () makró
Dim RA Range, delra Ahogy Range, TekstDlyaPoiska As String
Application.ScreenUpdating = False

For Each RA ActiveSheet.UsedRange.Rows

Ha nem ra.Find (TekstDlyaPoiska. XlValues, xlPart) Aztán semmi

Ha delra semmi majd állítsa delra = ra Else Set delra = Union (delra, RA)
End If
következő

Ha nem delra semmi Aztán delra.EntireRow.Hidden = False
End Sub

Kirill, így próbálja:
UdalyatStrokiSTekstom = munkalapok ( "ImyaVtorogoLista") tartomány ( "A2: A10").
vagy úgy
UdalyatStrokiSTekstom = munkalapok (2) .range ( "A2: A10")

Jó napot! A makró nagyon segít, mondd, hogyan lehet a keresett szavakat vettünk nem egy string = Array ( „Név *”, „szám”, „szöveg?”, „Ár * STI”, „* 78 *”), és a másik lap

Hello mindenkinek!
Mert kód köszönhetően. Szembesül egy ilyen probléma:

Írok ezt a kódot, és a program működik, sorokat törölni, amelyek nem tartalmaznak „* 1. szint *”:
DelStrTex = "* 1. szint *"
For Each RA Sheets ( "O1"). UsedRange.Rows
Mert minden szó DelStrTex
Ha ra.Find (szó. XlValues, xlPart) Aztán semmi
Ha delra semmi majd állítsa delra = ra Else Set delra = Union (delra, RA)
End If
Következő szó
következő

De amikor szeretne megadni egy tömb, a program törli sorok, amelyek nem tartalmaznak „* 1. szint *” „* ryvani *” „* keresztmetszete *”, a program törli az összes!

DelStrTex = Array ( "* 1. szint *", "* ryvani *", "* * szakasz")
For Each RA Sheets ( "O1"). UsedRange.Rows
Mert minden szó DelStrTex
Ha ra.Find (szó. XlValues, xlPart) Aztán semmi
Ha delra semmi majd állítsa delra = ra Else Set delra = Union (delra, RA)
End If
Következő szó
következő

Miért? Mit csinálok rosszul?

Köszönöm szépen a makro :) nagyon hasznos!

Adjuk hozzá a következő sort
Ha delra semmi majd állítsa delra = ra Else Set delra = Union (delra, RA)
A következő sorokat
Ha ra.Row> 1, akkor Set delra = Union (delra, ra.Offset (-1))
Állítsa delra = Union (delra, ra.Offset (1) bekezdés)

Jó napot! Ne mondd, hogy hogyan kell eltávolítani együtt talált sor, az előző és a következő?