ON ERROR RESUME NEXT
Dim I As Long
Dim data As Long
PilihSheet = [Link]
Worksheets(PilihSheet).Activate
With ActiveSheet
[Link] = "A2:f" & Range("f" & [Link]).End(xlUp).Row
End With
Select Case MsgBox("Anda akan keluar dari Aplikasi" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Keluar")
Case vbNo
Exit Sub
Case vbYes
End Select
[Link]
[Link]
LISTBOX
On Error GoTo eRWIN
'Perintah memasukkan data dari ListBox ke TextBox
[Link] = [Link]
[Link] = [Link]
[Link] = [Link](1)
If [Link](2) = "Laki - Laki" Then
[Link] = True
End If
If [Link](2) = "Perempuan" Then
[Link] = True
End If
[Link] = [Link](3)
[Link] = [Link](4)
[Link] = [Link](5)
[Link] = False
[Link] = False
Exit Sub
eRWIN:
Call MsgBox("Pilih data pada tabel data", vbInformation, "Data Siswa")
PERINTAH UBAH
On Error GoTo eRWIN
PilihSheet = [Link]
Worksheets(PilihSheet).Activate
If [Link] = "" Then
Call MsgBox("Pilih data yang akan diubah", vbInformation, "Ubah Data")
Else
Set UbahData = [Link]("A2:A10000").Find(What:=[Link],
LookIn:=xlValues)
[Link](0, 1).Value = [Link]
If [Link] = True Then
[Link](0, 2).Value = "Laki - Laki"
End If
If [Link] = True Then
[Link](0, 2).Value = "Perempuan"
End If
[Link](0, 3).Value = [Link]
[Link](0, 4).Value = [Link]
[Link](0, 5).Value = [Link]
Call MsgBox("Data berhasil diubah", vbInformation, "Ubah Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
[Link] = ""
[Link] = ""
[Link] = ""
End If
Exit Sub
eRWIN:
Call MsgBox("Ubah Data Selain Nis", vbInformation, "Ubah Data")
PERINTAH DELETE
PilihSheet = [Link]
Worksheets(PilihSheet).Activate
If [Link] = "" Then
Call MsgBox("Pilih data pada tabel data", vbInformation, "Hapus Data")
Else
'Membuat pesan konfirmasi hapus data
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
'Menentukan tempat hapus data, menghapus data dan membersihkan form
Set Hapusdata = [Link]("A2:A40000").Find(What:=[Link],
LookIn:=xlValues)
[Link](0, 0).ClearContents
[Link](0, 1).ClearContents
[Link](0, 2).ClearContents
[Link](0, 3).ClearContents
[Link](0, 4).ClearContents
[Link](0, 5).ClearContents
Call MsgBox("Data berhasil dihapus", vbInformation, "Hapus Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
[Link] = ""
[Link] = ""
[Link] = ""
Call Urut_Data
[Link] = True
[Link] = True
End If
BERSIHKAN
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
[Link] = ""
[Link] = ""
[Link] = ""
Call Urut_Data
[Link] = True
[Link] = True
PERINTAH URUT
[Link] = False
[Link]
[Link]("A1:F20000").Sort KEY1:=Range("B1"), Order1:=xlAscending,
Header:=xlYes