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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление строки с активной ячейкой по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удаление строки с активной ячейкой по условию
ElenaOren Дата: Среда, 03.11.2021, 11:09 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2002
Здравствуйте! Подскажите пожалуйста, как будет выглядеть макрос. Нажимаем на кнопку -> удаляется строка с активной ячейкой, но при условии, если в столбце А стоит натуральное число (1,2,3,4...), иначе сообщение: Строку удалить невозможно!


Сообщение отредактировал ElenaOren - Среда, 03.11.2021, 14:05
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста, как будет выглядеть макрос. Нажимаем на кнопку -> удаляется строка с активной ячейкой, но при условии, если в столбце А стоит натуральное число (1,2,3,4...), иначе сообщение: Строку удалить невозможно!

Автор - ElenaOren
Дата добавления - 03.11.2021 в 11:09
doober Дата: Среда, 03.11.2021, 12:10 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 970
Репутация: 332 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
Так пойдет? Фрагмет из макроса[vba]
Код
If Val(Cells(r, 1)) = 0 Then
    MsgBox ("? ?????? ?" & r & " ?????? ?? ????? ?????")
    Exit Sub
Else
    Rows(r).EntireRow.Delete
End If
[/vba]


 
Ответить
СообщениеЗдравствуйте.
Так пойдет? Фрагмет из макроса[vba]
Код
If Val(Cells(r, 1)) = 0 Then
    MsgBox ("? ?????? ?" & r & " ?????? ?? ????? ?????")
    Exit Sub
Else
    Rows(r).EntireRow.Delete
End If
[/vba]

Автор - doober
Дата добавления - 03.11.2021 в 12:10
ElenaOren Дата: Среда, 03.11.2021, 12:17 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2002
Спасибо, проблема решена!
 
Ответить
СообщениеСпасибо, проблема решена!

Автор - ElenaOren
Дата добавления - 03.11.2021 в 12:17
  • Страница 1 из 1
  • 1
Поиск:

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