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

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:

The 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 lengkapnya

Jejak gratis -hari dari Kutools for 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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (12)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi tetapi ketika saya menempelkan nilai ini memungkinkan data yang bukan dari daftar drop-down. Cara apa pun untuk membatasi nilai apa pun yang bukan dari daftar.
Komentar ini diminimalkan oleh moderator di situs
Hai Dilip, Apakah Anda dapat menyelesaikan masalah ini, saya juga mengalami masalah serupa. Saya harus mengizinkan salin, tempel hanya untuk nilai drop-down di sel validasi data lainnya yang harus saya batasi. Bisakah Anda membagikan solusi Anda. Terima kasih Rao
Komentar ini diminimalkan oleh moderator di situs
Hai, Saat saya menjalankan makro ini, saya mendapatkan kesalahan debug ini "Application.Undo". Tolong selesaikan ini secepatnya
Komentar ini diminimalkan oleh moderator di situs
Hai, kode vba yang disebutkan di atas tidak dijalankan. Mohon diselesaikan.
Komentar ini diminimalkan oleh moderator di situs
Private Sub Worksheet_Change(ByVal Target As Range) Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String If Target.Count > 1 Kemudian 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 Kemudian Target = xValue Else MsgBox "Tidak boleh menempelkan!" End If Application.EnableEvents = True End Sub Makro ini tidak berfungsi saat menyalin dari buku kerja atau lembar kerja yang berbeda, jadi tolong beri tahu saya cara menghindari hal-hal ini juga
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak !! bekerja dengan baik untuk saya !!! penyalinan ke dalam satu sel dibatasi. tetapi jika saya menyalin daftar sel dan menempelkan.., tempel diterima. biarkan saya melihat apakah saya bisa menyetel ini .. terima kasih lagi
Komentar ini diminimalkan oleh moderator di situs
Jepson, apakah Anda berhasil menyelesaikan masalah penyalinan dan tempel ke beberapa sel? Terima kasih sebelumnya!
Komentar ini diminimalkan oleh moderator di situs
Hai Dilip, apakah Anda dapat memperbaiki masalah mengizinkan data menggunakan nilai tempel..saya juga menghadapi masalah yang sama..tolong saya dalam hal ini
Komentar ini diminimalkan oleh moderator di situs
Hai Dilip, apakah Anda dapat memperbaiki masalah mengizinkan data menggunakan nilai tempel
Komentar ini diminimalkan oleh moderator di situs
apakah Anda berhasil menyelesaikan masalah penyalinan dan tempel ke beberapa sel? Terima kasih sebelumnya!
Komentar ini diminimalkan oleh moderator di situs
Tidak, saya tidak mengetahuinya. Saya tidak mencoba menyelesaikannya setelah beberapa saat.
Komentar ini diminimalkan oleh moderator di situs
Saya bekerja TETAPI setelah Anda memasukkan kode, Anda tidak dapat MENGUBAH apa pun. Tidak satu langkah mundur pun diperbolehkan.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL