Изваждането (скрити) линии на условието да се отличи макроси
Не подкрепям безплатни макроси, и да ги редактирате, за да отговарят на вашите изисквания.
Моля, кажете ми. Страдам за една седмица. Не мога да променя съществуващия макроса да се скрие редове. Има маса с числа. Имате нужда от нещо да се скрие, когато и двете редици колона А и В и С и D стойност е по-малка от 0. Би било добре да се въведе тази стойност във формуляра на потребителя и имаше бутони се крият и показват всички. Помогнете моля. И все пак на броя на редовете може да победи по-различно. Цифровите стойности, започващи с втория ред.
Здравейте, имам ситуация. Има маса с 3000 реда и около 25 колони
Първите 10 колони са пълни с текста, 11-25 бар са числа. Как да премахнете напълно линията ако Колони от 11 до 25, всички празни клетки. и ако най-малко една клетка е пълна, линията не докосна? но в първите десет колони не е необходимо да се обърне внимание
И как да се направи същото състояние да обедини клетки само за няколко стойности?
Ред, както макро лист "2", "2А", "2В", и така нататък. D.
Под UdalenieStrokPoUsloviyu ()
Затъмняване на РА в обхват, delra Както Range, TekstDlyaPoiska Както стринга
Application.ScreenUpdating = False "актуализиране забраните екран
TekstDlyaPoiska = "стойност име" "изтриване на линията с текста
"Преминаване през всички редове в лента се използва лист
За Всеки ра В ActiveSheet.UsedRange.Rows
"Ако текстът е намерена в низа
Ако не ra.Find (TekstDlyaPoiska. XlValues, xlPart) не е нищо Тогава
"Добавяне на ред в границите, за да изтриете
Ако delra нищо след това задайте delra = RA Else Определете delra = съюз (delra, RA)
Крайна сметка, ако
до
"Ако намери подходящ линия - да ги изтриете
Ако не е нищо delra Тогава delra.EntireRow.Delete
End Sub
Ако искате да се покаже в противоречие линия "EntireRow.Hidden = False"
Как да търсите текст в скрити редове / колони?
Здравейте Кажете ми, моля, как да се регистрирате на макро, така че тя:
1. Премахва всички редове с цвета на запълване, или
2. изтриване на всички линии, съдържащи или клетката с цвят на запълване.
Благодаря.
Игор, благодаря за макро - улеснява живота! Вие не съветва как да използвате този макрос, когато защитата на лист?
Добър ден! Моля, кажете ми, как да се направи макро скрива линията при условие, че две последователни колони 0 или празни? и че той не се изпълнява, когато отворите файла и щракнете върху?
Имам опция за състоянието на колоната, тъй като е правилен
Частни Под Worksheet_SelectionChange (ByVal Target As Range)
Дим г Като цяло число
г = UsedRange.Rows.Count + 1
За rwIndex = 1 до 31
colIndex = 3
Ако клетки (rwIndex, colIndex) .Value = 0 След
Редове (rwIndex) .Hidden = True
Крайна сметка, ако
до
End Sub
Ще бъда много благодарен)
Добър ден! Имам проблем с големи таблици и тяхното kollichestvom) в една книга, аз имам 25 листа в един голям маси за печат udbstva съм създал макро крие нежелани редове, колони и клетки в цялата книга наведнъж, с редуване на всеки лист. Сега искам, че можете веднага да разгърне цялата книга скрити клетки. И аз не мога) Кажи ми как да решите този макро, за да работи в модула "Тази книга" за всички листове наведнъж
Под Show ()
Columns.Hidden = False
Rows.Hidden = False
В - което лекарят подредени - благодаря ти! И съжалявам, че не правилно :)
Sander, аз написах кода начина, по който попита - ако има редица клетка, ред се изтрива.
И трябваше да се отстрани само на клетката с номера (и не съдържат цифри)
Заменете
Sander, така че се опитайте:
Добре дошли! Прелисти, четох - все още не сте намерили отговор на неговата задача, и то е следното: в колоната, и алтернативен текст и цифри - това е необходимо за премахване на линии, които съдържат номера (те estno - различно). Благодарим Ви!
Eugene, при отмяната на макро действие не работи в Excel
(Това прави макро не, отменен - добре аранжиран Excel)
Prompt. след премахване на редове с макро, не можете да по някаква причина назад назад назад izmeneniya.Chto трябва да се промени, за да се върне обратно.
Добре дошли Nuryana.
Моята програма работи добре - ако го настроите правилно
(Комплект за всеки конкретен обект - от 1500 рубли + 2,500 програма се струва)
Здравейте Админ! Цена за дълго време. на черно като акционерно дружество поръчки и вече измъчвани с каталози пълнене, усилия не повече. Веднъж купих хищник един програмист, и аз не правя с удоволствие. Човек трябва да закупите хищник 2800 и работи във времето. Кажи ми как вашата програма е и колко струва, и то може да се персонализира към сайта, където работя и да го използвате постоянно, след като бъде платено?
Ние можем да направим, за да поръчате - всичко ще работи както трябва.
Дори и да убие - не работи. Идеята е, че макро се задейства, когато кликнете върху клетката. Тя се дава стойността на текущите активни линии и 2 колони, изглежда друг лист и трябва просто да бъдат разграничени. Цялата идея.
Кодът на греха
"VzyatDannye = Клетките (ActiveCell.Row, 2) .Value"
Той не взема стойността -> не може да го намерите на друг лист. Как да го накарам да видите стойността. (Определени Кавичките - това не помага.
Частни Под Worksheet_BeforeDoubleClick (ByVal Target As Range, Отмени Както Булева)
Затъмняване на РА в обхват, FINRA Както Range
Ако Target.Cells.Value = "" Тогава Exit Sub
Ако се пресичат (Target, Range ( "AF3: AF5000")) не е нищо Тогава
Ако не е нищо FINRA Тогава finra.EntireRow.Select
Application.ScreenUpdating = True
Крайна сметка, ако
End Sub
Андрю, така че се опитайте
Със скрити линии всички са отлични. но какво ще стане ако по-късно имам нужда от някои скрити линии отново разкрие (като знак да се скрие тях може да е без значение в бъдеще)?
Made такива bileberdu но скрити редове, той не разкрива :( Вероятно не виждате скритите редове. Помогнете съвет, моля!
Sub () макро
Затъмняване на РА в обхват, delra Както Range, TekstDlyaPoiska Както стринга
Application.ScreenUpdating = False
За Всеки ра В ActiveSheet.UsedRange.Rows
Ако не ra.Find (TekstDlyaPoiska. XlValues, xlPart) не е нищо Тогава
Ако delra нищо след това задайте delra = RA Else Определете delra = съюз (delra, RA)
Крайна сметка, ако
до
Ако не е нищо delra Тогава delra.EntireRow.Hidden = False
End Sub
Кирил, така че се опитайте:
UdalyatStrokiSTekstom = таблици ( "ImyaVtorogoLista") гама ( "А2: А10").
или така
UdalyatStrokiSTekstom = таблици (2) .range ( "А2: А10")
Добър ден! Вашият макро е много помага, кажи ми, как да се направи думите за търсене не са били взети от низ = Array ( "Име *", "Номер", "текст?", "Цена * STI", "* 78 *"), както и с от друга листа
Здравейте на всички!
За код благодаря. Сблъсквайки се с подобен проблем:
Аз пиша този код и програмата работи добре, да изтриете редове, които не съдържат "* * Ниво 1":
DelStrTex = "* * Ниво 1"
За Всеки ра В Sheets ( "О1"). UsedRange.Rows
За всяка дума от DelStrTex
Ако ra.Find (дума. XlValues, xlPart) не е нищо Тогава
Ако delra нищо след това задайте delra = RA Else Определете delra = съюз (delra, RA)
Крайна сметка, ако
на следващата дума
до
Но когато искам да се уточни масив, програмата изтрива редове, които не съдържат "* Ниво 1 *" "* ryvani *" "* * сечение", програмата ще изтрие всички!
DelStrTex = Array ( "* Ниво 1 *" "* ryvani *" "* * раздел")
За Всеки ра В Sheets ( "О1"). UsedRange.Rows
За всяка дума от DelStrTex
Ако ra.Find (дума. XlValues, xlPart) не е нищо Тогава
Ако delra нищо след това задайте delra = RA Else Определете delra = съюз (delra, RA)
Крайна сметка, ако
на следващата дума
до
Защо така? Какво съм аз греша?
Благодаря ви много за макро :) много полезно!
Добавете следния ред
Ако delra нищо след това задайте delra = RA Else Определете delra = съюз (delra, RA)
следващите редове
Ако ra.Row> 1 след това задайте delra = съюз (delra, ra.Offset (-1))
Задайте delra = съюз (delra, ra.Offset (1))
Добър ден! Не ми казвай как да се премахне заедно с установено линия, предишния и след това?