cara buat tombol cari,hapus,edit

  1. 6 tahun lalu

    Assalamualaikum para master
    mohon pencerahannnya..

    1. perintah macro tombol edit,hapus dan cari
    2. data ketika diinput id double bs masuk

    berikut filenya

  2. 5 bulan yang lalu

    MuizMadura

    Jun 9 Pamekasan Madura Jawa Timur + 112 Poin

    Private Sub cbCLEAR_Click()
    tbNIS.Value = ""
    tbNOREG.Value = ""
    tbNAMALENGKAP.Value = ""
    tbNIKSANTRI.Value = ""
    tbNOMORKK.Value = ""
    tbJENISKELAMIN.Value = ""
    tbTEMPATLAHIR.Value = ""
    tbTANGGALLAHIR.Value = ""
    tbAGAMA.Value = ""
    tbKEWARGANEGARAAN.Value = ""
    tbANAKKE.Value = ""
    tbJUMLAHSAUDARA.Value = ""
    tbDESA.Value = ""
    tbDUSUN.Value = ""
    tbRT.Value = ""
    tbRW.Value = ""
    tbNOMORWHATSAAP.Value = ""
    tbNAMAAYAH.Value = ""
    tbNIKAYAH.Value = ""
    tbNAMAIBU.Value = ""
    tbNIKIBU.Value = ""
    tbKELAS.Value = ""

    End Sub

    Private Sub cbEDIT_Click()
    Set ws = Worksheets("DATA SANTRI")
    Dim rng As Range

    If MsgBox("Apakah Anda Yakin Merubah Data Ini ?", vbOKCancel + vbQuestion, "konfirmasi") = vbOK Then
    Set rng = ws.Range("D18:X222").Find(tbNAMALENGKAP.Value, LookIn:=xlValues)
    ' krn yg dijadikan acuan adalah "tbnamalengkap" , maka namalengkap tidak dapat dirubah
    ' kalau yg dijadikan acuan "tbniksantri" , maka niksantri tidak dapat dirubah
    ' untuk merubah , pakai tombol hapus , lalu input lagi yg benar
    If Not rng Is Nothing Then
    baris = rng.Row

    With ws
    .Cells(baris, 2).Value = tbNIS.Value
    .Cells(baris, 3).Value = tbNOREG.Value
    .Cells(baris, 4).Value = tbNAMALENGKAP.Value
    .Cells(baris, 5).Value = tbNIKSANTRI.Value
    .Cells(baris, 6).Value = tbNOMORKK.Value
    .Cells(baris, 7).Value = tbJENISKELAMIN.Value
    .Cells(baris, 8).Value = tbTEMPATLAHIR.Value
    .Cells(baris, 9).Value = tbTANGGALLAHIR.Value
    .Cells(baris, 10).Value = tbAGAMA.Value
    .Cells(baris, 11).Value = tbKEWARGANEGARAAN.Value
    .Cells(baris, 12).Value = tbANAKKE.Value
    .Cells(baris, 13).Value = tbJUMLAHSAUDARA.Value
    .Cells(baris, 14).Value = tbDESA.Value
    .Cells(baris, 15).Value = tbDUSUN.Value
    .Cells(baris, 16).Value = tbRT.Value
    .Cells(baris, 17).Value = tbRW.Value
    .Cells(baris, 18).Value = tbNOMORWHATSAAP.Value
    .Cells(baris, 19).Value = tbNAMAAYAH.Value
    .Cells(baris, 20).Value = tbNIKAYAH.Value
    .Cells(baris, 21).Value = tbNAMAIBU.Value
    .Cells(baris, 22).Value = tbNIKIBU.Value
    .Cells(baris, 23).Value = tbKELAS.Value

    End With
    End If
    End If
    End Sub

    Private Sub cbHAPUS_Click()
    ' fungsi hapus disini = kalau kita mendelete baris didata excel
    ' jadi blok area database buat sebanyak mungkin kebawah
    ' jika blok area sampai baris 10 , kemudian baris 10 dihapus , maka input baru
    ' akan masuk ke baris 10 , namun dilist box (dng rowssource "hasil") tidak akan nampak

    nama = tbNAMALENGKAP.Value
    ' ini perlu dibuat sebagai acuan pertama dan dipakai pada script berikutnya
    ' kl masterdata berupa nama stok , maka nama ini akan merujuk pada textboxstok ("nama =tbstock")
    ' atau barang = tbstok

    Set ws = Worksheets("DATA SANTRI")
    With ws.Range("D18:D222")

    Set c = .Find(nama, LookIn:=xlValues)

    baris = c.Row

    If MsgBox("Apakah Data Akan Dihapus ?", vbOKCancel + vbQuestion, "konfirmasi") = vbOK Then
    If Not c Is Nothing Then
    ws.Cells(baris, 24).EntireRow.Delete
    'ws.Cells(baris, 24).EntireRow.ClearContents
    End If
    MsgBox "Data Telah Dihapus"

    End If
    End With
    End Sub

    Private Sub CBSIMPAN_Click()

    'script simpan
    Set ws = Worksheets("DATA SANTRI")

    With ws.Range("D18:X222")

    barisakhir = ws.Range("D" & Rows.Count).End(xlUp).Row + 1

    ws.Range("B" & barisakhir).Value = tbNIS.Text
    ws.Range("C" & barisakhir).Value = tbNOREG.Text
    ws.Range("D" & barisakhir).Value = tbNAMALENGKAP.Text
    ws.Range("E" & barisakhir).Value = tbNIKSANTRI.Text
    ws.Range("F" & barisakhir).Value = tbNOMORKK.Text
    ws.Range("G" & barisakhir).Value = tbJENISKELAMIN.Text
    ws.Range("H" & barisakhir).Value = tbTEMPATLAHIR.Text
    ws.Range("I" & barisakhir).Value = tbTANGGALLAHIR.Text
    ws.Range("J" & barisakhir).Value = tbAGAMA.Text
    ws.Range("K" & barisakhir).Value = tbKEWARGANEGARAAN.Text
    ws.Range("L" & barisakhir).Value = tbANAKKE.Text
    ws.Range("M" & barisakhir).Value = tbJUMLAHSAUDARA.Text
    ws.Range("N" & barisakhir).Value = tbDESA.Text
    ws.Range("O" & barisakhir).Value = tbDUSUN.Text
    ws.Range("P" & barisakhir).Value = tbRT.Text
    ws.Range("Q" & barisakhir).Value = tbRW.Text
    ws.Range("R" & barisakhir).Value = tbNOMORWHATSAAP.Text
    ws.Range("S" & barisakhir).Value = tbNAMAAYAH.Text
    ws.Range("T" & barisakhir).Value = tbNIKAYAH.Text
    ws.Range("U" & barisakhir).Value = tbNAMAIBU.Text
    ws.Range("V" & barisakhir).Value = tbNIKIBU.Text
    ws.Range("W" & barisakhir).Value = tbKELAS.Text

    End With

    End Sub

    Private Sub lbHASIL_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Dim daftar As Long
    'Dim ws As Worksheet
    'set ws as sheets("DATA SANTRI")

    Set ws = Worksheets("DATA SANTRI")

    With Me.lbHASIL
    If daftar < 2 Or daftar = ListCount Then
    daftar = .ListIndex
    tbNIS.Value = .List(daftar, 1)
    tbNOREG.Value = .List(daftar, 2)
    tbNAMALENGKAP.Value = .List(daftar, 3)
    tbNIKSANTRI.Value = .List(daftar, 4)
    tbNOMORKK.Value = .List(daftar, 5)
    tbJENISKELAMIN.Value = .List(daftar, 6)
    tbTEMPATLAHIR.Value = .List(daftar, 7)
    tbTANGGALLAHIR.Value = .List(daftar, 8)
    tbAGAMA.Value = .List(daftar, 9)
    tbKEWARGANEGARAAN.Value = .List(daftar, 10)
    tbANAKKE.Value = .List(daftar, 11)
    tbJUMLAHSAUDARA.Value = .List(daftar, 12)
    tbDESA.Value = .List(daftar, 13)
    tbDUSUN.Value = .List(daftar, 14)
    tbRT.Value = .List(daftar, 15)
    tbRW.Value = .List(daftar, 16)
    tbNOMORWHATSAAP.Value = .List(daftar, 17)
    tbNAMAAYAH.Value = .List(daftar, 18)
    tbNIKAYAH.Value = .List(daftar, 19)
    tbNAMAIBU.Value = .List(daftar, 20)
    tbNIKIBU.Value = .List(daftar, 21)
    tbKELAS.Value = .List(daftar, 22)
    'tbSTATUS.value = format(cdbl(tbSTATUS.value, "#;##0;00")
    End If
    End With
    End Sub

    kali aja cocok

 

atau Mendaftar untuk ikut berdiskusi!