엑셀 버튼에 "확실한가요?"를 추가합니다. 어떻게 해야 하나요?
양식에 전체 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
'programing' 카테고리의 다른 글
Azure 컨테이너 서비스와 컨테이너용 웹 앱의 차이점 (0) | 2023.05.04 |
---|---|
Eclipse가 기본 작업 공간을 요청하도록 강제하는 방법은 무엇입니까? (0) | 2023.05.04 |
IIS7 캐시 제어 (0) | 2023.04.29 |
C#에서 bigint에 해당하는 것은 무엇입니까? (0) | 2023.04.29 |
Azure BLOB 컨테이너 내의 폴더를 삭제하는 방법 (0) | 2023.04.29 |