Macro Excel || Memberi Tanda Ganda pada Excel

Macro Excel VBA sebagai pengganti conditional formating. Pada tutorial kali ini saya akan membahas bagaimana cara membuat macro untuk data yang ganda yang biasa Anda gunakan adalah conditional formating namun kali ini saya akan membuat macro vba untuk menandai atau mewarnai data yang dianggap ganda.
Excel merupakan program untuk mengolah data terutama angka, nah bagaimana jika ketika Anda menginput data ribuan atau dikenal disini input database misalnya data pegawai, data pemilih, data siswa, data penduduk dan sebagainya. Tentu saja kesalaan mungkin terjadi ketika data sudah dimasukan naman Anda memasukan kembali data tersebut tanpa disadari.

Nah, bagaimana mensiasati data ganda tersebut menggunakan macro? baiklah inilah script macro vba untuk memberi tanda dengan warna jika terjadi data yang diinput adalah ganda

'Macro excel | Menandai Data ganda
'www.jago-office.blogspot.com
'Yatna Supriyatna

Sub DataGanda()
    With Selection
        .FormatConditions.Delete
        .FormatConditions.AddUniqueValues
        .FormatConditions(1).DupeUnique = xlDuplicate
        .FormatConditions(1).Interior.Color = RGB(255, 0, 0)
    End With
End Sub

Anda tinggal copy pastekan saja script vba tersebut ke ms. visual basic editor vba Anda caranya adalah sebagai berikut
  1. Klik menu developer kemudian klik juga View Code ini adalah cara menampilkan visual basic editor
  2. Langkah kedua Anda double klik ThisWorkbook kemudian ketikkan script vba seperti diatas atau copy paste kan saja scriptnya
  3. Coba anda ketikkan beberapa data seperti contoh gambar berikut, data yang dianggap ganda akan ditandai dengan warna merah, tetapi jika tidak ganda maka diabaikan saja
Mudah, bukan, coba Anda perhatikan angka 4, 5, dan 8 atau huruf a dan d ditandai dengan warna merah secara otomatis ketika memasukan atau mengetikkannya. Hal ini dihasilkan dari penulisan macro vba diatas, silakan Anda coba agar lebih mengerti. Jika mengalami kesulitan atau ada pertanyaan silakan komentar dibawah

Untuk video tutorial ini akan saya upload nanti kebetulan internetnya lagi lemod, so nunggu normal aja.

5 Responses to "Macro Excel || Memberi Tanda Ganda pada Excel"

  1. Mas... "DATA GANDA" spt program diatas, jika menggunakan Office 2003 gimana...??
    terimakasih

    BalasHapus
  2. Cara di atas sama nggak dengan menggunakan conditional formatting

    BalasHapus
  3. Cara jika menandai kolom berbeda terus di cari kesamaannya di kolom lainnya secara otomatis bagaimana?
    Contoh
    A b c d e
    1 0 3 4 9
    4 1 5 3 1
    3 4 9 5 4
    5 3 1 2 3
    9 0 4 7 6
    Di kolom A saya blok angka ke bawah 4 3 5.. terus bagaima memberi warna sama di kolom lainnya yang angka nya turun kebawah di kolom lainnya yaitu di kolom b c d e... ???..

    BalasHapus

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