PEMBUATAN APLIKASI MENGGUNAKAN VBA EXCEL
Private Sub FAKULTAS_Change()
Sheet1.Range("fakultas").Value = Me.FAKULTAS.Value
End Sub
____________________________________________
Private Sub HILANG_Change()
Sheet1.Range("hilang").Value = Me.HILANG.Value
End Sub
Private Sub JURUSAN_Change()
Sheet1.Range("jurusan").Value = Me.JURUSAN.Value
End Sub
Private Sub NAMA_Change()
Sheet1.Range("nama").Value = Me.NAMA.Value
End Sub
Private Sub NIM_Change()
Sheet1.Range("nim").Value = Me.NIM.Value
End Sub
Private Sub rekap_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Salah
Me.NAMA.Value = Me.rekap.Value
Me.NIM.Value = Me.rekap.Column(1)
Me.FAKULTAS.Value = Me.rekap.Column(2)
Me.JURUSAN.Value = Me.rekap.Column(3)
Me.HILANG.Value = Me.rekap.Column(4)
Me.RUSAK.Value = Me.rekap.Column(5)
Me.NAMA.Enabled = False
Me.SIMPAN.Enabled = False
Exit Sub
Salah:
Call MsgBox("Silahkan pilih data pada tabel data", vbInformation, "Data Surat")
End Sub
____________________________________________
Private Sub RUSAK_Change()
Sheet1.Range("hilang").Value = Me.RUSAK.Value
End Sub
Private Sub SIMPAN_Click()
Dim DataSurat As Object
Dim i As Long
Set DataSurat = Sheet2.Range("A20000").End(xlUp)
If Me.NAMA.Value = "" _
Or Me.NIM.Value = "" _
Or Me.FAKULTAS.Value = "" _
Or Me.JURUSAN.Value = "" _
Or Me.HILANG.Value = "" _
Or Me.RUSAK.Value = "" Then
Call MsgBox("Isi semua data surat terlebih dahulu", vbInformation, "Data Surat")
Else
DataSurat.Offset(1, 0).Value = Me.NAMA.Value
DataSurat.Offset(1, 1).Value = Me.NIM.Value
DataSurat.Offset(1, 2).Value = Me.FAKULTAS.Value
DataSurat.Offset(1, 3).Value = Me.JURUSAN.Value
DataSurat.Offset(1, 5).Value = Me.HILANG.Value
DataSurat.Offset(1, 6).Value = Me.RUSAK.Value
Call MsgBox("Data Surat telah ditambah", vbInformation, "Data Surat")
Me.NAMA.Value = ""
Me.NIM.Value = ""
Me.FAKULTAS.Value = ""
Me.JURUSAN.Value = ""
Me.HILANG.Value = ""
Me.RUSAK.Value = ""
End If
End Sub
____________________________________________
Private Sub BERSIHKAN_Click()
Me.NAMA.Enabled = True
Me.SIMPAN.Enabled = True
Me.NIM.Value = ""
Me.FAKULTAS.Value = ""
Me.JURUSAN.Value = ""
Me.HILANG.Value = ""
Me.RUSAK.Value = ""
End Sub
Private Sub PRINTTING_Click()
If Me.NAMA.Value = "" _
Or Me.NIM.Value = "" _
Or Me.FAKULTAS.Value = "" _
Or Me.JURUSAN.Value = "" _
Or Me.RUSAK.Value = "" Then
Call MsgBox("Isi semua data surat terlebih dahulu", vbInformation, "Data Surat")
Else
Sheet1.PrintOut
End If
End Sub
____________________________________________
Private Sub Hapus_Click()
If Me.NAMA.Value = "" Then
Call MsgBox("Silahkan pilih data yamg akan dihapus", vbInformation, "Hapus Data")
Exit Sub
End If
Select Case MsgBox("Anda akan menghapus data." _
& vbCrLf & "Apakah Anda Yakin ?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus Data")
Case vbNo
Exit Sub
Case vbYes
End Select
Set HAPUS_DATA = Sheet2.Range("A2:A20000").Find(What:=Me.NAMA.Value, LookIn:=xlValues)
Sheet2.Select
HAPUS_DATA.Offset(0, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete Shift:=xlUp
Me.NAMA.Value = ""
Me.NIM.Value = ""
Me.FAKULTAS.Value = ""
Me.JURUSAN.Value = ""
Me.HILANG.Value = ""
Me.RUSAK.Value = ""
End Sub
____________________________________________
Private Sub RUBAH_Click()
On Error GoTo Salah
If Me.NAMA.Value = "" Then
Call MsgBox("Pilih data yang mau diubah", vbInformation, "Data Surat")
Else
Set UbahSurat = Sheet2.Range("A2:A2000").Find(What:=Me.NAMA.Value, LookIn:=xlValues)
UbahSurat.Offset(0, 0).Value = Me.NAMA.Value
UbahSurat.Offset(0, 1).Value = Me.NIM.Value
UbahSurat.Offset(0, 2).Value = Me.FAKULTAS.Value
UbahSurat.Offset(0, 3).Value = Me.JURUSAN.Value
UbahSurat.Offset(0, 4).Value = Me.HILANG.Value
UbahSurat.Offset(0, 5).Value = Me.RUSAK.Value
Call MsgBox("Data Surat telah diubah", vbInformation, "Data Surat")
Me.NAMA.Value = ""
Me.NIM.Value = ""
Me.FAKULTAS.Value = ""
Me.JURUSAN.Value = ""
Me.HILANG.Value = ""
Me.RUSAK.Value = ""
End If
Exit Sub
Salah:
Call MsgBox("Ubah surat selain pada nomor surat", vbInformation, "Data Surat")
End Sub
____________________________________________
Private Sub UserForm_Click()
End Sub