|
|
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Есть таблица (в приложении). Необходимо, по шагово: 1. Удаление всех строк у которых в столбце "C" значение VISTEON, VALEO, LEART и пустое. 2. Удаление всех строк у которых в столбцах "G" и "H" одновременно пустые значения 3. Удаление значка "<" из столбцов "G", "H" 4. Удаление столбцов "D", "E", "I", "K" Все никак не получается сделать макрос. Сюда по всему не хватает знаний Excel. Помогите пожалуйста. Заранее спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2011, 16:41 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Средство "Запись макроса" сгенерирует необходимый код. Это делается максимум за минуту-две :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2011, 18:48 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Я так тоже думал, до одного момента: Мне нужно это делать каждое утро. Записей в таблице больше 10000. При этом, кол-во строк будет постоянно менять, а макрос записывает лишь диапазон, который я удаляю. Соответственно он выполнит его не правильно. Точнее правильно, но не так как мне нужно. Перемещение и удалению столбцов - это он сделает, а вот выборочно - не могу! Помогите пожалуйста! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2011, 19:41 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
BarrikЯ так тоже думал, до одного момента: Мне нужно это делать каждое утро. Записей в таблице больше 10000. При этом, кол-во строк будет постоянно менять, а макрос записывает лишь диапазон, который я удаляю. Соответственно он выполнит его не правильно. Точнее правильно, но не так как мне нужно. Перемещение и удалению столбцов - это он сделает, а вот выборочно - не могу! Помогите пожалуйста! Ну, выдели весь столбец! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2011, 20:09 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Мне нужно удалить выборочные строки по значение в столбце. Обычная запись макроса здесь не поможет! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2011, 20:36 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Автофильтром выбираете нужные строки и удаляете их. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.11.2011, 09:36 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Columns("G:H").Select Selection.Replace What:="<", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Эта часть макроса выполняется как то не правильно. Она не заменяет значек <, а удаляет столбцы G и H Помогите исправить пожалуйста ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.11.2011, 17:32 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Добавь в 4 пункте первую строчку Columns("K:K").Select ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.11.2011, 17:50 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Даже не так Вот код: Sub CommandButton1_Click() Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=3, Criteria1:="=" Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Selection.AutoFilter Field:=3, Criteria1:="VISTEON" Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Selection.AutoFilter Field:=3, Criteria1:=" VALEO" Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Selection.AutoFilter Field:=3, Criteria1:=" LEART" Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Selection.AutoFilter Field:=7, Criteria1:="=" Selection.AutoFilter Field:=8, Criteria1:="=" Range("H2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Selection.AutoFilter Columns("G:H").Select Selection.Replace What:="<", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Delete Shift:=xlToLeft Columns("K:K").Select Selection.Delete Shift:=xlToLeft Columns("I:I").Select Selection.Delete Shift:=xlToLeft Columns("D:D").Select Selection.Delete Shift:=xlToLeft Columns("E:E").Select End Sub предложеные be Karies. Но проблема в том, что удаляются столбцы "G" и "H" А они должны остаться подчищеными... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.11.2011, 17:51 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
KariesДобавь в 4 пункте первую строчку Columns("K:K").Select Так и да. Но только теперь не выполняется пункт 2. где удаляются строки с пустыми значениями в двух ячейках. А именно: Selection.AutoFilter Field:=7, Criteria1:="=" Selection.AutoFilter Field:=8, Criteria1:="=" Range("H2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete Selection.AutoFilter ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.11.2011, 18:01 |
|
||
|
Помогите с правильным макросов
|
|||
|---|---|---|---|
|
#18+
Я нашел где ошибка. Если вдруг кому интересно: Нужно было закрыть Selection.AutoFilter после выполнения первой задачи. А потом заново открывать Range("A1").Select и Selection.AutoFilter. Тогда работает. Всем спасибо, особенно Karies!! )) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.11.2011, 18:50 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=37550541&tid=2176235]: |
0ms |
get settings: |
10ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
154ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 236ms |
| total: | 480ms |
| 0 / 0 |
