선택한 셀을 기준으로 여러 확인란을 삭제합니다.

Question

특정 활동을 제어하기 위해 ActiveX 확인란을 사용하는 일부 Excel 워크 시트가 있습니다. 선택한 셀 (텍스트와 체크 상자 모두)의 내용을 삭제하는 메소드를 찾고 있습니다. 지금까지 아래 코드를 사용했지만 활성 셀 아래 셀의 확인란 만 삭제했습니다. 어떤 도움을 주시면 감사하겠습니다!

Sub DeleteJob1_Click() 

If MsgBox("This will erase this job! Are you sure?", vbYesNo) = vbNo Then Exit Sub 
Columns(ActiveCell.Column).Delete 

Dim cb As CheckBox 

For Each cb In ActiveSheet.CheckBoxes 
    If cb.TopLeftCell.Address = ActiveCell.Address Then cb.Delete 
Next 

End Sub 

Answer 1

시도 :

Sub DeleteJob1_Click() 
    Dim cb As CheckBox 
    If MsgBox("This will erase this job! Are you sure?", vbYesNo) = vbNo Then Exit Sub 
    For Each cb In ActiveSheet.CheckBoxes 
     If cb.TopLeftCell.Column = ActiveCell.Column Then cb.Delete 
    Next 
    Columns(ActiveCell.Column).Delete 
End Sub