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는 단일 셀 붙여 넣기에서 작동합니다. 여러 셀에 복사하여 붙여 넣으면 작동하지 않습니다.

관련 기사 :