CODING FORM DATA SISWA
Option Explicit
Private Sub CMDADD_Click()
Dim DBSISWA As Object
Set DBSISWA = [Link]("B100000").End(xlUp)
If [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" Then
Call MsgBox("Isi data barang masuk dengan lengkap", vbInformation, "Barang Masuk")
Else
[Link](1, -1).Value = "=ROW()-ROW(DATASISWA!$A$4)"
[Link](1, 0).Value = [Link]
[Link](1, 1).Value = [Link]
[Link](1, 2).Value = [Link]
[Link](1, 3).Value = [Link]
[Link](1, 4).Value = [Link]
[Link](1, 5).Value = [Link]
[Link](1, 6).Value = [Link]
Call AmbilData
Call MsgBox("Data siswa telah disimpan", vbInformation, "Barang Masuk")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
End Sub
Private Sub CMDCARI_Click()
On Error GoTo Salah
Dim iRow As Long
Dim JData As Long
Dim CARI_DATA As Object
Set CARI_DATA = Sheet2
[Link]("K4").Value = [Link]
[Link]("K5").Value = "*" & [Link] & "*"
CARI_DATA.Range("A4").[Link] Action:=xlFilterCopy, CriteriaRange:= _
[Link]("K4:K5"), CopyToRange:=[Link]("A4:I4"), Unique:=False
iRow = [Link]("A" & [Link]).End(xlUp).Row
If [Link]([Link]("A5:A60000")) = 0 Then
[Link] = ""
Call MsgBox("Data tidak ditemukan", vbInformation, "Cari Data")
Else
[Link] = "CARISISWA!A5:I" & iRow
End If
[Link] = [Link]
Exit Sub
Salah:
Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")
End Sub
Private Sub CMDDELETE_Click()
[Link] = False
[Link] = ""
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
[Link]
[Link]
Call MsgBox("Data berhasil dihapus", vbInformation, "Hapus Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End If
End Sub
Private Sub CMDRESET_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Call AmbilData
[Link] = True
End Sub
Private Sub CMDUPDATE_Click()
[Link] = False
Dim BARIS As String
If [Link] = "" Then
Call MsgBox("Pilih data terlebih dahulu", vbInformation, "Pilih Data")
Else
[Link]
BARIS = [Link]
Cells(BARIS, 2) = [Link]
Cells(BARIS, 3) = [Link]
Cells(BARIS, 4) = [Link]
Cells(BARIS, 5) = [Link]
Cells(BARIS, 6) = [Link]
Cells(BARIS, 7) = [Link]
Cells(BARIS, 8) = [Link]
Call MsgBox("Data berhasil di update", vbInformation, "Update Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
[Link]
End Sub
Private Sub TABELDATA_Click()
End Sub
Private Sub TABELDATA_DblClick(ByVal Cancel As [Link])
Dim SUMBERUBAH, CELLAKTIF As String
[Link] = False
On Error GoTo EXCELVBA
[Link] = [Link](1)
[Link] = [Link](2)
[Link] = [Link](3)
[Link] = [Link](4)
[Link] = [Link](5)
[Link] = [Link](6)
[Link] = [Link](7)
[Link]
SUMBERUBAH = Sheets("DATASISWA").Cells([Link], "B").End(xlUp).Row
Sheets("DATASISWA").Range("B4:B" & SUMBERUBAH).Find(What:=[Link],
LookIn:=xlValues, LookAt:=xlWhole).Activate
CELLAKTIF = [Link]
Sheets("DATASISWA").Range("A" & CELLAKTIF & ":I" & CELLAKTIF).Select
[Link]
[Link] = False
Exit Sub
EXCELVBA:
Call MsgBox("Klik 2x pada tabel data", vbInformation, "Pilih Data")
End Sub
Private Sub TXTCARI_Change()
End Sub
Private Sub UserForm_Initialize()
Call AmbilData
With CBKELAMIN
.AddItem "Laki - Laki"
.AddItem "Perempuan"
End With
With CBKELAS
.AddItem "Kelas 1"
.AddItem "Kelas 2"
.AddItem "Kelas 3"
.AddItem "Kelas 4"
.AddItem "Kelas 5"
.AddItem "Kelas 6"
End With
With CBKETERANGAN
.AddItem "Siswa Aktif"
.AddItem "Siswa Non-Aktif"
End With
With CBKRITERIA
.AddItem "Nama Siswa"
.AddItem "Kelas"
End With
End Sub
Private Sub AmbilData()
Dim TData As Long
Dim iRow As Long
iRow = [Link]("A" & [Link]).End(xlUp).Row
TData = [Link]([Link]("B5:B10000"))
If TData = 0 Then
[Link] = ""
Else
[Link] = "DATASISWA!A5:I" & iRow
End If
[Link] = [Link]
End Sub
