Подтвердить что ты не робот

Добавьте "Вы уверены?" к моей кнопке excel, как я могу?

У меня есть кнопка в моей форме, которая очищает всю книгу из 8 листов. Иногда я хочу его очистить, но я бы не хотел этого делать случайно. Я пробовал использовать его, но каждый результат, который я нашел, предполагает, что у меня гораздо более крепкое понимание VBA, чем у меня. Как я могу это сделать, когда нажимается кнопка, появляется диалоговое окно, в котором говорится: "Это сотрет все! Вы уверены? [Продолжить] [Отменить]"? Спасибо.

4b9b3361

Ответ 1

В существующем коде кнопки просто вставьте эту строку перед процедурой:

If MsgBox("This will erase everything! Are you sure?", vbYesNo) = vbNo Then Exit Sub

Это заставит его выйти, если пользователь не нажал.

Ответ 2

Создайте новый элемент со следующим кодом и назначьте его кнопке. Измените "DeleteProcess" на имя вашего кода, чтобы сделать удаление. Появится окно с ОК или Отмена и вызовет ваш элемент delete, если вы нажмете ОК, а не если вы отмените отмену.

Sub AreYouSure()

Dim Sure As Integer

Sure = MsgBox("Are you sure?", vbOKCancel)
If Sure = 1 Then Call DeleteProcess

End Sub

Джесси

Ответ 3

Просто создайте пользовательскую форму, которая отображается при нажатии кнопки "Удалить", затем привяжите кнопку "Продолжить" к фактическому коду, который удаляет. Нажмите кнопку отмены, чтобы скрыть форму пользователя.