Mengolah daya Ms. Excel tak terlepas dari entry data secara vertikal hal ini dinamakan dengan data satu field. Biasanya Anda entri data yang banyak memakai Ms. Excel nah tidak menuntut kemungkinan data yang Anda entrikan mengalami data duplikat (ganda).
Menghandle data yang dianggap ganda tentunya penting sekali dalam entri data dalam database yang diketikkan di Ms. Excel hal ini akan mengakibatkan kesalahan dan tidak validnya data dalam rekap datanya. Jelas Anda tentu perlu kehati-hatian
Baca:
Cara Membuat Validasi Data
Solusi untuk mengatasi hal tersebut yakni Anda harus menawarkan peringatan berupa pesan bahwa data yang dientrikan yakni data ganda. Disini sedikit kita gunakan coding VBA untuk mengatasinya dan berikut coding untuk menampilkan pesan data ganda.
Menghandle data yang dianggap ganda tentunya penting sekali dalam entri data dalam database yang diketikkan di Ms. Excel hal ini akan mengakibatkan kesalahan dan tidak validnya data dalam rekap datanya. Jelas Anda tentu perlu kehati-hatian
Baca:
Cara Membuat Validasi Data
Solusi untuk mengatasi hal tersebut yakni Anda harus menawarkan peringatan berupa pesan bahwa data yang dientrikan yakni data ganda. Disini sedikit kita gunakan coding VBA untuk mengatasinya dan berikut coding untuk menampilkan pesan data ganda.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, r As Range, msg As String, x As Range
Set rng = Intersect(Columns(1), Target)
If Not rng Is Nothing Then
Application.EnableEvents = False
For Each r In rng
If Not IsEmpty(r.Value) Then
If Application.CountIf(Columns(1), r.Value) > 1 Then
msg = msg & vbLf & r.Address(0, 0) & vbTab & r.Value
If x Is Nothing Then
r.Activate
Set x = r
Else
Set x = Union(x, r)
End If
End If
End If
Next
If Len(msg) Then
MsgBox "Data Ganda" & msg
x.ClearContents
x.Select
End If
Set rng = Nothing
Set x = Nothing
Application.EnableEvents = True
End If
End Sub Coding diatas diterapkan pada mekanisme worksheet_change artinya bila ada aktifitas atau perubahan pada worksheet yang ditentukan pada coding tersebut dan data yang dientrikan yakni ganda maka munculah pesan info bahwa data yakni duplikat tetapi bila tidak ditemukan data ganda maka diabaikan.
Sebenarnya Anda dapat melaksanakan hal ini tanpa codingpun Anda dapat memakai kemudahan validasi data yang ada pada hidangan Data lalu pilih Data Validation. Silakan pilih mana yang termudah dan sesuai dengan kebutuhan.
Simak:
Cara Lain Mencegah Data Ganda
Perhatikan pesan yang muncul pada gambar diatas saat Anda mengetikkan nama "DADAN" di cell A5 maka munculah pesan "Data Ganda A5 DADAN".
Oke, itulah bagaimana cara menampilkan pesan bila ditemukan data ganda biar bermanfaat dan selamat mencoba.
Pelajari :
Cara Menghapus Data Ganda/Duplikat dengan Remove Duplicate
Set x = r
Else
Set x = Union(x, r)
End If
End If
End If
Next
If Len(msg) Then
MsgBox "Data Ganda" & msg
x.ClearContents
x.Select
End If
Set rng = Nothing
Set x = Nothing
Application.EnableEvents = True
End If
End Sub Coding diatas diterapkan pada mekanisme worksheet_change artinya bila ada aktifitas atau perubahan pada worksheet yang ditentukan pada coding tersebut dan data yang dientrikan yakni ganda maka munculah pesan info bahwa data yakni duplikat tetapi bila tidak ditemukan data ganda maka diabaikan.
Sebenarnya Anda dapat melaksanakan hal ini tanpa codingpun Anda dapat memakai kemudahan validasi data yang ada pada hidangan Data lalu pilih Data Validation. Silakan pilih mana yang termudah dan sesuai dengan kebutuhan.
Simak:
Cara Lain Mencegah Data Ganda
Perhatikan pesan yang muncul pada gambar diatas saat Anda mengetikkan nama "DADAN" di cell A5 maka munculah pesan "Data Ganda A5 DADAN".
Oke, itulah bagaimana cara menampilkan pesan bila ditemukan data ganda biar bermanfaat dan selamat mencoba.
Pelajari :
Cara Menghapus Data Ganda/Duplikat dengan Remove Duplicate
Sebenarnya Anda dapat melaksanakan hal ini tanpa codingpun Anda dapat memakai kemudahan validasi data yang ada pada hidangan Data lalu pilih Data Validation. Silakan pilih mana yang termudah dan sesuai dengan kebutuhan.
Simak:
Cara Lain Mencegah Data Ganda
Perhatikan pesan yang muncul pada gambar diatas saat Anda mengetikkan nama "DADAN" di cell A5 maka munculah pesan "Data Ganda A5 DADAN".
Oke, itulah bagaimana cara menampilkan pesan bila ditemukan data ganda biar bermanfaat dan selamat mencoba.
Pelajari :
Cara Menghapus Data Ganda/Duplikat dengan Remove Duplicate
Related Posts
- Cara Membuat/Split File Sesuai Nama Sheet Berbasis Vba (Macro)Bagaimana cara split file sesuai jumlah dan nama worksheet? Nah, pada kesempatan kali ini Excel-ID akan membahas sebuah tutorial Ms. Excel Advanced b ...
- Cara Perlindungan Otomatis Kalau Terdapat Rumus Pada Ms. ExcelBeberapa alasan yang dilakukan oleh pengguna Excel saat ingin memproteksi atau mengamankan rumus contohnya tidak ingin bahwa rumus tersebut dirubah o ...
- Beberapa Cara Mengaktifkan Range Dengan Coding Vba (Macro Excel)Coding VBA sangat berperan penting untuk membantu kita dalam menciptakan sebuah keputusan yang membutuhkan pengolahan data memakai Ms. Excel tentunya ...
- Membuat Format Tanggal Otomatis Di Textbox Userform Dengan VbaHai semua, udah usang ga posting artikel di blog ini, hemm jadi buat para pelanggan setia blog excel ini mohon maaf alasannya yaitu ada beberapa kesi ...
- Code Untuk Edit Data Cell Memakai Vba (Macro)Hallo sahabat Excel-ID apakah masih suasana liburan? Ya bagi yang masih liburan selamat berlibur saja dan bagi yang masih sibuk untuk merekap laporan ...
- Cara Menciptakan File .Txt Dengan Macro VbaHallo sahabat Excel-ID usang tidak posting artikel wacana Excel, jadi sebelum aku memulai untuk menulis artikel ini aku mohon maaf sebab kesibukan di ...
