|
|
|
|
|
|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전 :2010
* 아래줄에 질문을 작성하세요 >>
열에 중복 금지 설정(유효성 검사)을 적용해도 다른 셀에서 복사에서 붙여 넣기를 하면 중복이 됩니다. 혹은 ctrl+D를 눌러도 중복이 됩니다.
그 열에서 어떤 방법을 써도 중복이 안되게 막을 수 있는 방법이 있나요?
==============[이정세님 글에 대한 답변입니다]==============
Worksheet_Change 이벤트 함수을 이용해보세요...
아래 예시는 D열에 중복을 허용하지 않는 방법입니다.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Dim rX As Range, rTg As Range
Dim blnX As Boolean
For Each rX In Target.Columns(1).Cells
If WorksheetFunction.CountIfs(Target.EntireColumn, rX) > 1 Then
rX.ClearContents
blnX = True
If rTg Is Nothing Then Set rTg = rX
End If
Next
If blnX = True Then
If rTg Is Nothing Then Set rTg = Target.Cells(1)
rTg.Select
Application.SendKeys "{F2}"
End If
End If
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-05-30(09:35)
최종수정일 : 2019-05-30(09:35) |
|
|
|
|