엑셀 버튼에 "확실한가요?"를 추가합니다. 어떻게 해야 하나요?

엑셀 버튼에 "확실한가요?"를 추가합니다. 어떻게 해야 하나요?

양식에 전체 8장의 워크북을 지우는 버튼이 있습니다.가끔은 지우고 싶지만, 실수로 하고 싶지는 않습니다.저는 구글 검색을 해봤지만, 제가 발견한 모든 결과는 제가 저보다 VBA를 훨씬 더 확실하게 파악하고 있다고 가정합니다.버튼을 클릭하면 "모든 것이 지워집니다!"라는 대화 상자가 나타납니다.확실합니까?[계속] [취소]?감사해요.

기존 버튼 코드에서 절차 전에 다음 행을 삽입하기만 하면 됩니다.

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

사용자가 아니오를 누르면 강제로 종료됩니다.

다음 코드를 사용하여 새 서브를 작성하고 버튼에 할당합니다.삭제할 코드 이름으로 "삭제 프로세스"를 변경합니다.OK(확인) 또는 Cancel(취소) 상자가 나타나고, OK(확인)를 누르면 삭제 서브를 호출하고, 취소(취소)를 누르면 삭제 서브를 호출합니다.

Sub AreYouSure()

Dim Sure As Integer

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

End Sub

제시.

삭제 버튼을 눌렀을 때 나타나는 사용자 정의 사용자 양식을 만든 다음 계속 버튼을 삭제하는 실제 코드에 연결합니다.취소 단추를 눌러 사용자 양식을 숨깁니다.

언급URL : https://stackoverflow.com/questions/8569389/add-are-you-sure-to-my-excel-button-how-can-i