it-swarm-pt.tech

Adicione "Tem certeza?" no meu botão do Excel, como posso?

Eu tenho um botão no meu formulário que limpa a pasta de trabalho inteira de 8 folhas. Quero limpá-lo ocasionalmente, mas odiaria fazê-lo por acidente. Eu tentei pesquisar no Google, mas todos os resultados que encontrei assumem que tenho uma compreensão muito mais firme do VBA do que eu. Como posso fazer isso quando o botão é clicado, aparece uma caixa de diálogo dizendo "Isso apagará tudo! Você tem certeza? [Continuar] [Cancelar]"? Obrigado.

21
aslum

No código do botão existente, basta inserir esta linha antes do procedimento:

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

Isso forçará o encerramento se o usuário pressionar não.

63
Matt Donnan

Crie um novo sub com o seguinte código e atribua-o ao seu botão. Mude o "DeleteProcess" para o nome do seu código para fazer a exclusão. Isso abrirá uma caixa com OK ou Cancelar e chamará o seu submarino de exclusão se você clicar em ok e não se você clicar em cancelar.

Sub AreYouSure()

Dim Sure As Integer

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

End Sub

Jesse

9
Jesse

Basta criar um formulário de usuário personalizado que seja mostrado quando o botão "excluir" for pressionado e vincular o botão continuar ao código real que faz a exclusão. Faça o botão Cancelar ocultar o formulário do usuário.

0
alyon2002