Loncat ke daftar isi utama

Bagaimana cara mencegah salin dan tempel sel dengan daftar drop-down di Excel?

Untuk sel dengan daftar drop-down validasi data, ketika menyalin konten dari sel lain dan menempelkannya, daftar drop-down akan hilang dan diganti dengan konten yang baru menempel. Dalam beberapa kasus, Anda ingin mencegah salin dan tempel konten lain di sel dengan daftar tarik-turun, apa yang akan Anda lakukan untuk mengatasinya? Pada artikel ini, Anda akan mendapatkan metode VBA untuk mengatasi masalah ini.

Cegah salin dan tempel di sel dengan daftar drop-down di Excel


Cegah salin dan tempel di sel dengan daftar drop-down di Excel

1. Buka lembar kerja dengan sel daftar drop-down yang ingin Anda cegah salin dan tempel.

2. tekan lain + F11 tombol secara bersamaan untuk membuka Aplikasi Microsoft Visual Basic jendela.

3. Dalam Aplikasi Microsoft Visual Basic jendela, klik dua kali nama lembar kerja saat ini di panel kiri, lalu salin dan tempel kode VBA di bawah ini ke editor Kode. Lihat tangkapan layar:

Kode VBA: Mencegah salin dan tempel di sel dengan daftar drop-down

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. tekan lain + Q kunci untuk keluar dari Aplikasi Microsoft Visual Basic jendela.

5. Saat Anda menempelkan konten ke sel dengan daftar drop-down, kotak dialog akan muncul untuk mengingatkan Anda bahwa penyisipan tidak diperbolehkan. Lihat tangkapan layar:

Note: VBA ini hanya berfungsi dalam penempelan sel tunggal. Jika Anda menyalin dan menempel di beberapa sel, itu tidak akan berfungsi.

Mudah membuat daftar drop-down dengan kotak centang di Excel:

Grafik Daftar Drop-down dengan Kotak Centang kegunaan Kutools untuk Excel dapat membantu Anda dengan mudah membuat daftar turun bawah dengan kotak centang dalam kisaran tertentu, lembar kerja saat ini, buku kerja saat ini atau semua buku kerja yang dibuka berdasarkan kebutuhan Anda.
Unduh fitur lengkap jejak gratis 30 hari dari Kutools untuk Excel sekarang!


Artikel terkait:

Bagaimana cara membuat daftar drop-down dengan beberapa kotak centang di Excel?
Banyak pengguna Excel cenderung membuat daftar drop-down dengan beberapa kotak centang untuk memilih beberapa item dari daftar setiap kali. Sebenarnya, Anda tidak dapat membuat daftar dengan beberapa kotak centang dengan Validasi Data. Dalam tutorial ini, kami akan menunjukkan kepada Anda dua metode untuk membuat daftar drop-down dengan beberapa kotak centang di Excel. Tutorial ini memberikan metode untuk memecahkan masalah tersebut.

Buat daftar drop-down dari buku kerja lain di Excel
Sangat mudah untuk membuat daftar drop-down validasi data di antara lembar kerja dalam buku kerja. Tetapi jika daftar data yang Anda perlukan untuk validasi data ada di buku kerja lain, apa yang akan Anda lakukan? Dalam tutorial ini, Anda akan belajar cara membuat daftar drop fown dari workbook lain di Excel secara detail.

Buat daftar drop-down yang dapat dicari di Excel
Untuk daftar drop-down dengan banyak nilai, menemukan yang tepat bukanlah pekerjaan yang mudah. Sebelumnya kami telah memperkenalkan metode pengisian otomatis daftar drop-down saat memasukkan huruf pertama ke dalam kotak drop-down. Selain fungsi pelengkapan otomatis, Anda juga dapat membuat daftar drop-down dapat dicari untuk meningkatkan efisiensi kerja dalam menemukan nilai yang tepat dalam daftar drop-down. Untuk membuat daftar drop-down dapat dicari, coba metode dalam tutorial ini.

Mengisi otomatis sel lain saat memilih nilai di daftar drop-down Excel
Katakanlah Anda telah membuat daftar drop-down berdasarkan nilai dalam rentang sel B8: B14. Saat Anda memilih nilai apa pun dalam daftar turun bawah, Anda ingin nilai yang sesuai dalam rentang sel C8: C14 secara otomatis terisi dalam sel yang dipilih. Untuk memecahkan masalah, metode dalam tutorial ini akan membantu Anda.

Tutorial lainnya untuk daftar drop-down ...

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I works BUT after you put the code you cannot UNDO anything. Not a single step back is allowed.
This comment was minimized by the moderator on the site
No, I did not figure it out. I didn't try to resolve after a while.
This comment was minimized by the moderator on the site
did you manage to resolve the issue of copying and pasting into multiple cells? Thanks in advance!
This comment was minimized by the moderator on the site
Hi Dilip, are you able to fix the issue of allowing data using paste values
This comment was minimized by the moderator on the site
Hi Dilip, are you able to fix the issue of allowing data using paste values..i am also facing the same issue..help me on this please
This comment was minimized by the moderator on the site
Thank you very much !! works fine for me !!! copying into a single cell is restricted. but if i copy a list of cells and paste.., the paste is accepted. let me see if i can tune this up ..thanks anyways
This comment was minimized by the moderator on the site
Jepson, did you manage to resolve the issue of copying and pasting into multiple cells? Thanks in advance!
This comment was minimized by the moderator on the site
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 On Error GoTo 0 Application.Undo On Error Resume Next xCheck2 = Target.Validation.InCellDropdown On Error GoTo 0 If xCheck1 = xCheck2 Then Target = xValue Else MsgBox "No pasting allowed!" End If Application.EnableEvents = True End Sub This Macro not work when copy from different workbook or worksheet then so please tell me how to avoid these things also
This comment was minimized by the moderator on the site
Hi, above mention vba code is not run.kindly resolve.
This comment was minimized by the moderator on the site
Hi, While I running this macro I got this debug error "Application.Undo". Pls resolve this ASAP
This comment was minimized by the moderator on the site
This works but when I paste value this is allowing data which is not from the drop down list. Any way to restrict any value which is not from the list.
This comment was minimized by the moderator on the site
Hi Dilip, Did you able to resolve the issue, i too having similar issue. I have to allow copy,paste only for drop down values in the data validation cell other i have to restrict. Can you share your solution. Thanks Rao
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations