Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление строки если ячейка с отрицательным числом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление строки если ячейка с отрицательным числом (Формулы/Formulas)
Удаление строки если ячейка с отрицательным числом
noobik Дата: Вторник, 19.03.2019, 13:09 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Здравствуйте, помогите, пожалуйста, с такой вот проблемой: надо удалить все строки где встречаются отрицательные числа.
К сообщению приложен файл: primer.xls (26.5 Kb)
 
Ответить
СообщениеЗдравствуйте, помогите, пожалуйста, с такой вот проблемой: надо удалить все строки где встречаются отрицательные числа.

Автор - noobik
Дата добавления - 19.03.2019 в 13:09
китин Дата: Вторник, 19.03.2019, 13:10 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Здравствуйте. а отфильтровать по критерию " меньше 0" и удалить не вариант?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеЗдравствуйте. а отфильтровать по критерию " меньше 0" и удалить не вариант?

Автор - китин
Дата добавления - 19.03.2019 в 13:10
noobik Дата: Вторник, 19.03.2019, 13:15 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Спасибо!
Мне: позор джунглям!)
 
Ответить
СообщениеСпасибо!
Мне: позор джунглям!)

Автор - noobik
Дата добавления - 19.03.2019 в 13:15
китин Дата: Вторник, 19.03.2019, 13:20 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ну раз уж написал, то держите
[vba]
Код
Private Sub CommandButton1_Click()
Dim tt_&, i&
tt_ = Cells(Rows.Count, 1).End(xlUp).Row
    For i = tt_ To 1 Step -1
     If Cells(i, 4) < 0 Then
        Rows(i).Delete Shift:=xlUp
     End If
    Next i
End Sub
[/vba]
К сообщению приложен файл: noobik.xls (35.0 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениену раз уж написал, то держите
[vba]
Код
Private Sub CommandButton1_Click()
Dim tt_&, i&
tt_ = Cells(Rows.Count, 1).End(xlUp).Row
    For i = tt_ To 1 Step -1
     If Cells(i, 4) < 0 Then
        Rows(i).Delete Shift:=xlUp
     End If
    Next i
End Sub
[/vba]

Автор - китин
Дата добавления - 19.03.2019 в 13:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление строки если ячейка с отрицательным числом (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!