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

Вход

Регистрация

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

 

= Мир MS Excel/Запуск кнопки отмена на Vba - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Запуск кнопки отмена на Vba
neonar Дата: Вторник, 16.11.2021, 16:38 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
Помогите пожалуйста. На листе есть ячейка с выпадающим списком, которая не должна быть пустой.
Нужно чтобы в рамках проверки данных, если пользователь нажал del и ячейка стала пустой автоматически вернуть
прежнее значение, типа кнопки Отмена. Как это сделать?
 
Ответить
СообщениеЗдравствуйте.
Помогите пожалуйста. На листе есть ячейка с выпадающим списком, которая не должна быть пустой.
Нужно чтобы в рамках проверки данных, если пользователь нажал del и ячейка стала пустой автоматически вернуть
прежнее значение, типа кнопки Отмена. Как это сделать?

Автор - neonar
Дата добавления - 16.11.2021 в 16:38
Serge_007 Дата: Вторник, 16.11.2021, 17:21 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте
Используйте Target и SelectionChange для контроля заполненности ячейки возвращайте значение, если его удалили


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте
Используйте Target и SelectionChange для контроля заполненности ячейки возвращайте значение, если его удалили

Автор - Serge_007
Дата добавления - 16.11.2021 в 17:21
neonar Дата: Вторник, 16.11.2021, 19:57 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, попробовал так получилось
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells(1).Address = [МатериалИзоляции_ИД].Address And [МатериалИзоляции_ИД].Value = "" Then
   Application.Undo
End If

End Sub

[/vba]
 
Ответить
СообщениеСпасибо, попробовал так получилось
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells(1).Address = [МатериалИзоляции_ИД].Address And [МатериалИзоляции_ИД].Value = "" Then
   Application.Undo
End If

End Sub

[/vba]

Автор - neonar
Дата добавления - 16.11.2021 в 19:57
  • Страница 1 из 1
  • 1
Поиск:

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