Membuat Entri Cari Simpan Edit Hapus Dengan Macro Excel [PDF]

Citation preview

MEMBUAT ENTRI CARI SIMPAN EDIT HAPUS DENGAN MACRO EXCEL



Private Sub cmdCari_Click() Dim KodeSiswa Dim CellTujuan As Range KodeSiswa = txtKodeSiswa.Text Set CellTujuan = Range("B:B").Find(What:=KodeSiswa) If Not CellTujuan Is Nothing Then txtNamaSiswa.Text = Cells(CellTujuan.Row, 3) cmbProgramStudi.Text = Cells(CellTujuan.Row, 4) If Cells(CellTujuan.Row, 5) = "Laki-laki" Then optLakiLaki.Value = True ElseIf Cells(CellTujuan.Row, 5) = "Perempuan" Then optPerempuan.Value = True End If txtTempatLahir.Text = Cells(CellTujuan.Row, 6) Else MsgBox "Tidak Ada Hasil !" End If End Sub



Private Sub cmdTambah_Click()      Dim baris As Integer                 baris = WorksheetFunction.CountA(Range("B:B")) baris = baris + 1                Cells(baris, 2) = txtKodeSiswa 



         



         



         



 Cells(baris, 3) = txtNamaSiswa   Cells(baris, 4) = cmbProgramStudi  If optLakiLaki = True Then   Cells(baris, 5) = "Laki-laki"   ElseIf optPerempuan = True Then



Cells(baris, 5) = "Perempuan" End If Cells(baris, 6) = txtTempatLahir Cells(baris, 7) = txtTanggalLahir   End Sub



Private Sub cmdUbah_Click() Dim KodeSiswa Dim CellTujuan As Range



                KodeSiswa = txtKodeSiswa.Text



Set CellTujuan = Range("B:B").Find(What:=KodeSiswa)   



Cells(CellTujuan.Row, 2) = txtKodeSiswa Cells(CellTujuan.Row, 3) = txtNamaSiswa Cells(CellTujuan.Row, 4) = cmbProgramStudi If optLakiLaki = True Then Cells(CellTujuan.Row, 5) = "Laki-laki" ElseIf optPerempuan = True Then Cells(CellTujuan.Row, 5) = "Perempuan" End If Cells(CellTujuan.Row, 6) = txtTempatLahir Cells(CellTujuan.Row, 7) =txtTanggalLahir End Sub Private Sub cmdHapus_Click() Dim KodeSiswa Dim CellTujuan As Range KodeSiswa = txtKodeSiswa.Text Set CellTujuan =Range("B:B").Find(What:=KodeSiswa) Rows(CellTujuan.Row).Delete Shift:=xlUp End Sub