Menolak Input Data Ganda

Untuk mencegah menginput data yang sama lebih dari satu kali bisa menggunakan metode ini.

Sebelum membuat aplikasi untuk menolak input data ganda atau input data kembar kita harus paham dahulu menginput data menggunakan userform. berikut adalah langkah-langkah menolak input data ganda pada Microsoft excel

1. Buatlah sheet untuk data yang akan diinput, kemudian buatlah kolom A1( No), kolom          B1(Nama), kolom C1(Jenis Kelamin).

2. Buatlah userform pada Microsoft visual basic, kemudian buatlah dua buah textbox, textbox1 untuk nama, textbox2 untuk jenis kelamin, serta buatlah satu buah commandbutton untuk mengeksekusi perintah input data.

buatlah tiga buah label label1 ganti captionnya dengan Nama label2 dengan Jenis Kelamin label3 kosongkan captionnya.

Sehingga tampil userform seperti gambar berikut

3. kemudian double klik(klik ganda) pada command button1 kemudian ketikan kode program berikut:

Private Sub CommandButton1_Click()

If Label3.Caption > 0 Then

MsgBox "Nama Sudah diinput"

Exit Sub

End If

Dim isi As Long

isi = WorksheetFunction.CountA(Range("A:A")) + 1

Cells(isi, 1).Value = WorksheetFunction.Count(Range("A:A")) + 1

Cells(isi, 2).Value = TextBox1.Value

Cells(isi, 3).Value = TextBox2.Value

MsgBox "Input berhasil"

TextBox1.Value = ""

TextBox2.Value = ""

End Sub

Private Sub TextBox2_Change()

Label3.Caption = WorksheetFunction.CountIf(Sheet1.Range("b:b"), TextBox1.Value)

End Sub

Setelah selasai klik tombol run kemudian coba inputkan data pada textbox dengan nama yang sama maka data tersebut tidak akan diinputkan karena datanya sudah ada.

 itulah menolak input data ganda contoh tutorialnya bisa dilihat disini.