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

 Bagaimana cara mengizinkan nilai unik di Excel?

Jika Anda hanya ingin menyimpan nilai unik yang dimasukkan ke dalam kolom lembar kerja dan mencegah duplikat, artikel ini akan memperkenalkan beberapa trik cepat bagi Anda untuk menangani tugas ini.

Hanya izinkan nilai unik di lembar kerja dengan Validasi Data

Hanya izinkan nilai unik di lembar kerja dengan kode VBA

Hanya izinkan nilai unik di lembar kerja dengan Kutools for Excel


Hanya izinkan nilai unik di lembar kerja dengan Validasi Data

Bahkan, Validasi Data Fungsi Excel dapat membantu Anda untuk memecahkan masalah ini, lakukan hal berikut:

1. Pilih sel atau kolom yang Anda inginkan untuk memasukkan nilai unik saja, lalu klik Data > Validasi Data > Validasi Data, lihat tangkapan layar:

doc hanya mengizinkan unique 1

2. di Validasi Data kotak dialog, lakukan operasi berikut:

(1.) Klik Settings Tab;

(2.) Di bawah mengizinkan daftar drop-down, pilih Kustom;

(3.) Dan masukkan rumus ini: = COUNTIF ($ E: $ E, E1) <2 (E adalah kolom yang Anda hanya ingin memperbolehkan nilai unik, E1 adalah sel pertama dari kolom yang ingin Anda gunakan) ke dalam Rumus kolom tulisan.

doc hanya mengizinkan unique 2

3. Dan kemudian klik OK tombol, mulai sekarang, ketika Anda memasukkan nilai duplikat ke kolom tertentu yang Anda atur, pesan peringatan akan muncul untuk mengingatkan Anda, lihat tangkapan layar:

doc hanya mengizinkan unique 3


Hanya izinkan nilai unik di lembar kerja dengan kode VBA

Jika Anda tertarik dengan kode VBA, kode berikut juga dapat membantu Anda.

1. Klik kanan tab lembar yang ingin Anda izinkan hanya angka negatif, dan pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, harap salin dan tempel kode berikut ke dalam kolom kosong Modul:

Kode VBA: Hanya izinkan nilai unik di lembar kerja:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

doc hanya mengizinkan unique 4

Note: Pada kode di atas, file A1: A1000 adalah sel kolom yang ingin Anda cegah duplikatnya.

2. Kemudian simpan dan tutup kode ini, sekarang, ketika Anda memasukkan nilai duplikat di sel A1: A1000, pesan peringatan muncul untuk mengingatkan Anda bahwa entri duplikat tidak diizinkan, lihat tangkapan layar:

doc hanya mengizinkan unique 5

3. Lalu klik OK tombol, nilai duplikat akan dihapus.


Hanya izinkan nilai unik di lembar kerja dengan Kutools for Excel

Dua metode di atas hanya dapat mencegah entri duplikat dalam satu kolom, jika Anda punya Kutools untuk Excel, nya Mencegah Duplikat utilitas dapat membantu Anda dengan cepat mencegah duplikat dalam berbagai sel dan hanya satu kolom atau baris.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. 

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

1. Pilih kolom atau rentang sel yang Anda inginkan untuk mencegah nilai duplikat tetapi hanya memperbolehkan data unik.

2. Lalu klik Kutools > Cegah Pengetikan > Mencegah Duplikat, lihat tangkapan layar:

3. Dan pesan peringatan akan muncul untuk mengingatkan Anda tentang Validasi Data akan dihapus jika menerapkan fitur ini, lihat tangkapan layar:

doc hanya mengizinkan unique 7

4. Lalu klik Yes tombol untuk melanjutkan, dan kotak prompt lain muncul untuk mengingatkan Anda sel mana yang telah menerapkan fitur ini. Lihat tangkapan layar:

doc hanya mengizinkan unique 8

5. Dan kemudian klik OK tombol, sekarang, ketika Anda memasukkan beberapa data duplikat dalam rentang A1: D15, kotak prompt ditampilkan untuk mengingatkan Anda bahwa data duplikat tidak valid, Anda hanya perlu memasukkan nilai unik. Lihat tangkapan layar:

doc hanya mengizinkan unique 9

Lebih dari 200 fungsi dapat membuat pekerjaan Anda efisien, Anda bisa unduh Kutools for Excel untuk jejak gratis.


Demo: Hanya izinkan nilai unik di lembar kerja dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

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-2019 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
rumus ini tidak berfungsi =COUNTIF($A:$A,A2)<2
Komentar ini diminimalkan oleh moderator di situs
Silakan coba rumus di bawah ini:

=COUNTIF($A:$A,A1)<2
Komentar ini diminimalkan oleh moderator di situs
Saya berharap formulanya akan berfungsi saat Anda menempelkan juga. Tetapi bagi saya itu hanya berfungsi jika saya mengetik. Saat mengetik nilai yang tidak unik, saya melihat pesan kesalahan dan saya tidak diizinkan untuk melanjutkan. yang bagus. Namun, jika saya menempelkan nilainya, tidak ada pesan kesalahan yang muncul. Apakah itu yang diharapkan, atau saya melakukan sesuatu yang salah?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan