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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление активной строки после вывода сообщения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление активной строки после вывода сообщения (Макросы/Sub)
Удаление активной строки после вывода сообщения
DKeT Дата: Воскресенье, 12.05.2019, 14:54 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте, скажите пожалуйста, что нужно добавить чтоб когда мы нажимаем на кнопку "Удалить данные" выходило сообщение, "Вы действительно хотите удалить данные, данное действия изменить будет невозможно" и когда нажимаем на да-удалить данные, нет-оставить на месте, а если строка пустая,то выводило бы что " В строке нет данных"
[vba]
Код
Selection.EntireRow.Delete
[/vba]


Сообщение отредактировал DKeT - Воскресенье, 12.05.2019, 14:57
 
Ответить
СообщениеЗдравствуйте, скажите пожалуйста, что нужно добавить чтоб когда мы нажимаем на кнопку "Удалить данные" выходило сообщение, "Вы действительно хотите удалить данные, данное действия изменить будет невозможно" и когда нажимаем на да-удалить данные, нет-оставить на месте, а если строка пустая,то выводило бы что " В строке нет данных"
[vba]
Код
Selection.EntireRow.Delete
[/vba]

Автор - DKeT
Дата добавления - 12.05.2019 в 14:54
nilem Дата: Воскресенье, 12.05.2019, 19:02 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1519
Репутация: 528 ±
Замечаний: 0% ±

Excel 2013
DKeT, привет
типа такого:
[vba]
Код
Sub ttt()
If MsgBox("Вы действительно хотите удалить данные, данное действие отменить будет невозможно", _
          36, "Удалить данные") = vbYes Then
    If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then
        MsgBox "В строке нет данных", 64
    Else
        Selection.EntireRow.Delete
    End If
End If
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеDKeT, привет
типа такого:
[vba]
Код
Sub ttt()
If MsgBox("Вы действительно хотите удалить данные, данное действие отменить будет невозможно", _
          36, "Удалить данные") = vbYes Then
    If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then
        MsgBox "В строке нет данных", 64
    Else
        Selection.EntireRow.Delete
    End If
End If
End Sub
[/vba]

Автор - nilem
Дата добавления - 12.05.2019 в 19:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление активной строки после вывода сообщения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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