Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để ngăn sao chép và dán qua ô với danh sách thả xuống trong Excel?

Đối với ô có danh sách sổ xuống xác thực dữ liệu, khi sao chép nội dung từ ô khác và dán vào ô đó, danh sách thả xuống sẽ biến mất và được thay thế bằng nội dung dán mới. Trong một số trường hợp, bạn muốn ngăn việc sao chép và dán nội dung khác lên ô bằng danh sách thả xuống, bạn sẽ làm gì để giải quyết? Trong bài viết này, bạn sẽ nhận được một phương pháp VBA để giải quyết vấn đề này.

Ngăn sao chép và dán qua ô với danh sách thả xuống trong Excel


Ngăn sao chép và dán qua ô với danh sách thả xuống trong Excel

1. Mở trang tính với ô danh sách thả xuống mà bạn muốn ngăn sao chép và dán.

2. nhấn Khác + F11 các phím đồng thời để mở Ứng dụng Microsoft Visual Basic cửa sổ.

3. bên trong Ứng dụng Microsoft Visual Basic , bấm đúp vào tên trang tính hiện tại trong ngăn bên trái, sau đó sao chép và dán mã VBA bên dưới vào Trình chỉnh sửa mã. Xem ảnh chụp màn hình:

Mã VBA: Ngăn sao chép và dán qua ô với danh sách thả xuống

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. nhấn Khác + Q chìa khóa để thoát khỏi Ứng dụng Microsoft Visual Basic cửa sổ.

5. Khi bạn dán nội dung vào một ô có danh sách thả xuống, một hộp thoại sẽ bật lên để nhắc nhở bạn không được phép dán. Xem ảnh chụp màn hình:

Chú thích: VBA này chỉ hoạt động trong dán ô đơn. Nếu bạn sao chép và dán vào nhiều ô, nó sẽ không hoạt động.

Dễ dàng tạo danh sách thả xuống với các hộp kiểm trong Excel:

Mô hình Danh sách thả xuống có hộp kiểm tiện ích của Kutools cho Excel có thể giúp bạn dễ dàng tạo danh sách thả xuống với các hộp kiểm trong một phạm vi được chỉ định, trang tính hiện tại, sổ làm việc hiện tại hoặc tất cả các sổ làm việc đã mở dựa trên nhu cầu của bạn.
Tải xuống toàn bộ tính năng 30-dấu vết miễn phí của Kutools cho Excel ngay bây giờ!


Các bài liên quan:

Làm thế nào để tạo danh sách thả xuống với nhiều hộp kiểm trong Excel?
Nhiều người dùng Excel có xu hướng tạo danh sách thả xuống với nhiều hộp kiểm để chọn nhiều mục từ danh sách mỗi lần. Trên thực tế, bạn không thể tạo danh sách có nhiều hộp kiểm với Xác thực dữ liệu. Trong hướng dẫn này, chúng tôi sẽ chỉ cho bạn hai phương pháp để tạo danh sách thả xuống với nhiều hộp kiểm trong Excel. Hướng dẫn này cung cấp phương pháp để giải quyết vấn đề.

Tạo danh sách thả xuống từ một sổ làm việc khác trong Excel
Khá dễ dàng để tạo danh sách sổ xuống xác thực dữ liệu giữa các trang tính trong sổ làm việc. Nhưng nếu dữ liệu danh sách bạn cần để xác thực dữ liệu nằm trong một sổ làm việc khác, bạn sẽ làm gì? Trong hướng dẫn này, bạn sẽ học cách tạo danh sách drop fown từ một sổ làm việc khác trong Excel một cách chi tiết.

Tạo danh sách thả xuống có thể tìm kiếm trong Excel
Đối với một danh sách thả xuống với nhiều giá trị, việc tìm một giá trị thích hợp không phải là một công việc dễ dàng. Trước đây, chúng tôi đã giới thiệu một phương pháp tự động hoàn thành danh sách thả xuống khi nhập ký tự đầu tiên vào hộp thả xuống. Bên cạnh chức năng tự động hoàn thành, bạn cũng có thể làm cho danh sách thả xuống có thể tìm kiếm được để nâng cao hiệu quả làm việc trong việc tìm kiếm các giá trị thích hợp trong danh sách thả xuống. Để làm cho danh sách thả xuống có thể tìm kiếm được, hãy thử phương pháp trong hướng dẫn này.

Tự động điền các ô khác khi chọn giá trị trong danh sách thả xuống của Excel
Giả sử bạn đã tạo một danh sách thả xuống dựa trên các giá trị trong phạm vi ô B8: B14. Khi bạn chọn bất kỳ giá trị nào trong danh sách thả xuống, bạn muốn các giá trị tương ứng trong phạm vi ô C8: C14 được tự động điền vào một ô đã chọn. Để giải quyết vấn đề, các phương pháp trong hướng dẫn này sẽ giúp bạn.

Các hướng dẫn khác cho danh sách thả xuống ...


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (12)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này hoạt động nhưng khi tôi dán giá trị, điều này cho phép dữ liệu không có từ danh sách thả xuống. Bất kỳ cách nào để hạn chế bất kỳ giá trị nào không có trong danh sách.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Dilip, Bạn có thể giải quyết được sự cố không, tôi cũng gặp sự cố tương tự. Tôi phải cho phép sao chép, chỉ dán các giá trị thả xuống trong ô xác thực dữ liệu mà tôi phải hạn chế. Bạn có thể chia sẻ giải pháp của bạn. Cảm ơn Rao
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Trong khi chạy macro này, tôi đã gặp lỗi gỡ lỗi "Application.Undo". Xin vui lòng giải quyết điều này càng sớm càng tốt
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, ở trên đề cập đến mã vba không được chạy. Vui lòng giải quyết.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Private Sub Worksheet_Change (ByVal Target As Range) Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String If Target.Count> 1 Then Exit Sub End If Application.EnableEvents = False xValue = Target.Value On Error Resume Next xCheck1 = Target. Validation.InCellDropdown khi có lỗi GoTo 0 Application.Undo khi có lỗi Tiếp tục lại xCheck2 = Target.Validation.InCellDropdown khi có lỗi GoTo 0 If xCheck1 = xCheck2 Then Target = xValue Else MsgBox "Không được phép dán!" End If Application.EnableEvents = True End Sub Macro này không hoạt động khi sao chép từ sổ làm việc hoặc trang tính khác, vì vậy, hãy cho tôi biết cách tránh những điều này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cám ơn rất nhiều !! hoạt động tốt cho tôi !!! sao chép vào một ô duy nhất bị hạn chế. nhưng nếu tôi sao chép danh sách các ô và dán .., quá trình dán được chấp nhận. hãy để tôi xem nếu tôi có thể điều chỉnh điều này .. cảm ơn dù sao
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Jepson, bạn đã giải quyết được vấn đề sao chép và dán vào nhiều ô chưa? Cảm ơn trước!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Dilip, bạn có thể khắc phục sự cố cho phép dữ liệu sử dụng các giá trị dán không..tôi cũng đang gặp phải vấn đề tương tự..giúp tôi với
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Dilip, bạn có thể khắc phục sự cố cho phép dữ liệu bằng cách sử dụng các giá trị dán không
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
bạn đã quản lý để giải quyết vấn đề sao chép và dán vào nhiều ô? Cảm ơn trước!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không, tôi đã không tìm ra nó. Tôi đã không cố gắng giải quyết sau một thời gian.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi làm việc NHƯNG sau khi bạn đặt mã, bạn không thể HOÀN TẤT bất cứ điều gì. Không được phép lùi một bước nào.
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL