Excel의 드롭 다운 목록을 사용하여 셀 위에 복사 및 붙여 넣기를 방지하는 방법은 무엇입니까?

데이터 유효성 검사 드롭 다운 목록이있는 셀의 경우 다른 셀에서 콘텐츠를 복사하여 붙여 넣으면 드롭 다운 목록이 사라지고 새 붙여 넣기 콘텐츠로 바뀝니다. 경우에 따라 드롭 다운 목록이있는 셀 위에 다른 내용을 복사하여 붙여 넣는 것을 방지하고 싶습니다. 어떻게 처리 하시겠습니까? 이 기사에서는이 문제를 처리하는 VBA 방법에 대해 설명합니다.

Excel의 드롭 다운 목록을 사용하여 셀 위에 복사 및 붙여 넣기 방지

Excel의 드롭 다운 목록을 사용하여 셀 위에 복사 및 붙여 넣기 방지

1. 복사 및 붙여 넣기를 방지 할 드롭 다운 목록 셀이있는 워크 시트를 엽니 다.

2. 프레스 다른 + F11 동시에 열려면 키 Microsoft Visual Basic 애플리케이션 창.

3. 에서 Microsoft Visual Basic 애플리케이션 창에서 왼쪽 창에서 현재 워크 시트 이름을 두 번 클릭 한 다음 아래 VBA 코드를 복사하여 코드 편집기에 붙여 넣습니다. 스크린 샷보기 :

VBA 코드 : 드롭 다운 목록으로 셀 위에 복사 및 붙여 넣기 방지

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
    Dim xValue As String
    Dim xCheck1 As String
    Dim xCheck2 As String
    Dim xRg As Range
    Dim xArrCheck1() As String
    Dim xArrCheck2() As String
    Dim xArrValue()
    Dim xCount, xJ As Integer
    Dim xBol As Boolean
'    If Target.Count > 1 Then
'        Exit Sub
'        End If
    xCount = Target.Count
    ReDim xArrCheck1(1 To xCount)
    ReDim xArrCheck2(1 To xCount)
    ReDim xArrValue(1 To xCount)
    Application.EnableEvents = False
    On Error Resume Next
    xJ = 1
    For Each xRg In Target
        xArrValue(xJ) = xRg.Value
         xArrCheck1(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    Application.Undo

    xJ = 1
    For Each xRg In Target
        xArrCheck2(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    xBol = False
    For xJ = 1 To xCount
        If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
            xBol = True
            Exit For
        End If
    Next

    If xBol Then
       MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
    Else
        xJ = 1
        For Each xRg In Target
            xRg.Value = xArrValue(xJ)
            xJ = xJ + 1
        Next

    End If

    Application.EnableEvents = True
End Sub

4. 프레스 다른 + Q 나가는 열쇠 Microsoft Visual Basic 애플리케이션 창.

5. 드롭 다운 목록이있는 셀에 내용을 붙여 넣으면 붙여 넣기가 허용되지 않음을 알리는 대화 상자가 나타납니다. 스크린 샷보기 :

주의 사항:이 VBA는 단일 셀 붙여 넣기에서 작동합니다. 여러 셀에 복사하여 붙여 넣으면 작동하지 않습니다.

관련 기사 :

---

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

• 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
• 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
• 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
• 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
• 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
• 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
• 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
• 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
• 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.

자세히보기 ... 무료 다운로드... 매수... 

---

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

• Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
• 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...