Diskusi tentang Excel

Cara Menampilkan Pesan Jika Data yang Dientrikan Ganda (Double)

Mengolah daya Ms. Excel tak terlepas dari entry data secara vertikal hal ini dinamakan dengan data satu field. Biasanya Anda entri data yang banyak menggunakan 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 adalah Anda harus memberikan peringatan berupa pesan bahwa data yang dientrikan adalah 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 prosedur worksheet_change artinya jika ada aktifitas atau perubahan pada worksheet yang ditentukan pada coding tersebut dan data yang dientrikan adalah ganda maka munculah pesan informasi bahwa data adalah duplikat tetapi jika tidak ditemukan data ganda maka diabaikan.


Sebenarnya Anda bisa melakukan hal ini tanpa codingpun Anda bisa menggunakan fasilitas validasi data yang ada pada menu Data kemudian 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 ketika Anda mengetikkan nama "DADAN" di cell A5 maka munculah pesan "Data Ganda A5 DADAN".

Oke, itulah bagaimana cara menampilkan pesan jika ditemukan data ganda semoga bermanfaat dan selamat mencoba.

Pelajari :
Cara Menghapus Data Ganda/Duplikat dengan Remove Duplicate

Related

Macro Excel VBA 7061085966092530416

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item