SelectionChange 이벤트를 사용하고 계셔서... 일반적인 셀 작업을 할 수 없습니다. => BeforeDoubleClick 이벤트를 사용하되 끝에 Cancel = True를 추가하여 사용하는 것이 사용상 좋을 듯 합니다. Cancel = True로 하면 더블클릭했을 때에 셀 수정모드로 들어가지 않도록 해서 작업이 정상적으로 진행되도록 합니다. 그러면, 셀 선택후 복사나 지우기 등의 일반적인 작업이 가능해 져서 더 유용해 질 것 같아요...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'이전 TempMultiCombo가 있으면 삭제
On Error Resume Next
Me.OLEObjects("TempMultiCombo").Delete
On Error GoTo 0
'H2:J10 범위 클릭 시, 선택된 셀이 1개일 때만 매크로1 실행
If Not Intersect(Target, Me.Range("H2:J10")) Is Nothing Then ' <==여기에 적용범위 설정
If Target.Count = 1 Then
Call 다중드롭박스선택하기
End If
End If
Cancel = True
End Sub
추가로 다른 오류 때문에 매크로가 중단된 경우 Application.EnableEvents = True를 복구해 주는 뭔가가 있어면 좋습니다. 별도 버튼을 사용하지 않는 경우 Worksheet_Activate 이벤트에 넣어 두면 다른 시트를 선택하고 다시 오면 정상 작동하도록 할 수 있습니다.
마지막으로 매크로 방법은 항상 "되돌리기"를 지워버리기 때문에 주의가 필요함을 꼭 알려 주세요.
=> BeforeDoubleClick 이벤트를 사용하되 끝에 Cancel = True를 추가하여 사용하는 것이 사용상 좋을 듯 합니다.
Cancel = True로 하면 더블클릭했을 때에 셀 수정모드로 들어가지 않도록 해서 작업이 정상적으로 진행되도록 합니다.
그러면, 셀 선택후 복사나 지우기 등의 일반적인 작업이 가능해 져서 더 유용해 질 것 같아요...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '이전 TempMultiCombo가 있으면 삭제 On Error Resume Next Me.OLEObjects("TempMultiCombo").Delete On Error GoTo 0 'H2:J10 범위 클릭 시, 선택된 셀이 1개일 때만 매크로1 실행 If Not Intersect(Target, Me.Range("H2:J10")) Is Nothing Then ' <==여기에 적용범위 설정 If Target.Count = 1 Then Call 다중드롭박스선택하기 End If End If Cancel = True End Sub추가로 다른 오류 때문에 매크로가 중단된 경우 Application.EnableEvents = True를 복구해 주는 뭔가가 있어면 좋습니다. 별도 버튼을 사용하지 않는 경우 Worksheet_Activate 이벤트에 넣어 두면 다른 시트를 선택하고 다시 오면 정상 작동하도록 할 수 있습니다.
마지막으로 매크로 방법은 항상 "되돌리기"를 지워버리기 때문에 주의가 필요함을 꼭 알려 주세요.