ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос: удаление строк если в колонке А число 5
3 сообщений из 3, страница 1 из 1
Макрос: удаление строк если в колонке А число 5
    #35117241
dorvir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dorvir
Гость
Народ хелп!

Как написать макрос на следующую тему:

удалить всю строку, если в колонке A, в ячейке формула пишет цифру 5.

Спасибо!
...
Рейтинг: 0 / 0
07.02.2008, 15:18:05
| Ответить | Цитировать | Написать  
Макрос: удаление строк если в колонке А число 5
    #35117401
dorvir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dorvir
Гость
Наверное очень поверхностное обьяснение.
Тогда дубль два:

Есть пакинг лист в который вносятся артикулы, количество, вес, цена и т.д. Артикулы разносятся по кодам ТН ВЭД.
Пакинг сделан на весь ассортимент, когда копируешь заказ строчки по части артикулов не заполняются, так как их нет.
У меня стоит выделение этих пустых строк желтым цветом, потом я их удаляю. Иногда приходиться удалять целый блок кода ТН ВЭД.
В стоблике А стоит формула если столбик с количеством =0 то 5, иначе 0.
То есть цифра 5 появляется в строчке артикула если его нет в заказе и его количество стоит ноль. Так же цифра 5 появляется в итогах по каждому коду, и если все значения нулевые этот итог тоже удаляется.

Очень хочется чтобы макрос сам просматривал столбец А и если бы обнаруживал там число 5, то удалял бы всю строку.

см. приложенный файл.

Спасибо!
...
Рейтинг: 0 / 0
07.02.2008, 16:02:55
| Ответить | Цитировать | Написать  
Макрос: удаление строк если в колонке А число 5
    #35117577
Just User
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Just User
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Del()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.Activate
wb.Sheets( 1 ).Cells( 5 ,  1 ).Formula = "=A1*A2"
wb.Sheets( 1 ).Cells( 1 ,  1 ).Value =  2 . 5 
wb.Sheets( 1 ).Cells( 2 ,  1 ).Value =  2 
wb.Sheets( 1 ).Calculate
Dim w As Worksheet
Set w = wb.Worksheets( 1 )
Dim i As Integer
For r =  1  To w.Rows.Count ' Ну в принципе можешь весь лист не проходить :-)
    If w.Cells(r,  1 ).Value =  5  And w.Cells(r,  1 ).HasFormula = True Then
       w.Rows(r).Delete
    End If
Next r
End Sub
...
Рейтинг: 0 / 0
07.02.2008, 16:43:59
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос: удаление строк если в колонке А число 5
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35117241&tid=2181461]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 69ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 228ms
total:  376ms
созд. / загр.: 376ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]