Coding Form Data Siswa

CODING FORM DATA SISWA
Option Explicit
Private Sub CMDADD_Click()
Dim DBSISWA As Object
Set DBSISWA = Sheet2.Range("B100000").End(xlUp)
If Me.TXTNISN.Value = "" _
Or Me.TXTNAMASISWA.Value = "" _
Or Me.CBKELAMIN.Value = "" _
Or Me.CBKELAS.Value = "" _
Or Me.CBKETERANGAN.Value = "" _
Or Me.TXTTAHUN.Value = "" _
Or Me.TXTHPORTU.Value = "" Then
Call MsgBox("Isi data barang masuk dengan lengkap", vbInformation, "Barang Masuk")
Else
DBSISWA.Offset(1, -1).Value = "=ROW()-ROW(DATASISWA!$A$4)"
DBSISWA.Offset(1, 0).Value = Me.TXTNISN.Value
DBSISWA.Offset(1, 1).Value = Me.TXTNAMASISWA.Value
DBSISWA.Offset(1, 2).Value = Me.CBKELAMIN.Value
DBSISWA.Offset(1, 3).Value = Me.CBKELAS.Value
DBSISWA.Offset(1, 4).Value = Me.CBKETERANGAN.Value
DBSISWA.Offset(1, 5).Value = Me.TXTTAHUN.Value
DBSISWA.Offset(1, 6).Value = Me.TXTHPORTU.Value
Call AmbilData
Call MsgBox("Data siswa telah disimpan", vbInformation, "Barang Masuk")
Me.TXTNISN.Value = ""
Me.TXTNAMASISWA.Value = ""
Me.CBKELAMIN.Value = ""
Me.CBKELAS.Value = ""
Me.CBKETERANGAN.Value = ""
Me.TXTTAHUN.Value = ""
Me.TXTHPORTU.Value = ""
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
Sheet6.Range("K4").Value = Me.CBKRITERIA.Value
Sheet6.Range("K5").Value = "*" & Me.TXTCARI.Value & "*"
CARI_DATA.Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet6.Range("K4:K5"), CopyToRange:=Sheet6.Range("A4:I4"), Unique:=False
iRow = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
If Application.WorksheetFunction.CountA(Sheet6.Range("A5:A60000")) = 0 Then
Me.TABELDATA.RowSource = ""
Call MsgBox("Data tidak ditemukan", vbInformation, "Cari Data")
Else
Me.TABELDATA.RowSource = "CARISISWA!A5:I" & iRow
End If
Me.TXTJUMLAH.Value = Me.TABELDATA.ListCount
Exit Sub
Salah:
Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")

End Sub
Private Sub CMDDELETE_Click()
Application.ScreenUpdating = False
Me.TABELDATA.Value = ""
If Me.TXTNISN.Value = "" 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
Sheet3.Select
Selection.EntireRow.Delete
Call MsgBox("Data berhasil dihapus", vbInformation, "Hapus Data")
Sheet1.Select
End If
End Sub
Private Sub CMDRESET_Click()
Me.CBKRITERIA.Value = ""
Me.TXTCARI.Value = ""
Call AmbilData
Me.CMDADD.Enabled = True
End Sub
Private Sub CMDUPDATE_Click()
Dim BARIS As String
If Me.TXTNISN.Value = "" Then
Call MsgBox("Pilih data terlebih dahulu", vbInformation, "Pilih Data")
Else
Sheet2.Select
BARIS = ActiveCell.Row
Cells(BARIS, 2) = Me.TXTNISN.Value
Cells(BARIS, 3) = Me.TXTNAMASISWA.Value
Cells(BARIS, 4) = Me.CBKELAMIN.Value
Cells(BARIS, 5) = Me.CBKELAS.Value
Cells(BARIS, 6) = Me.CBKETERANGAN.Value
Cells(BARIS, 7) = Me.TXTTAHUN.Value
Cells(BARIS, 8) = Me.TXTHPORTU.Value
Call MsgBox("Data berhasil di update", vbInformation, "Update Data")
End If
Sheet1.Select
End Sub
Private Sub TABELDATA_Click()
End Sub
Private Sub TABELDATA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim SUMBERUBAH, CELLAKTIF As String
On Error GoTo EXCELVBA
Me.TXTNISN.Value = Me.TABELDATA.Column(1)
Me.TXTNAMASISWA.Value = Me.TABELDATA.Column(2)
Me.CBKELAMIN.Value = Me.TABELDATA.Column(3)
Me.CBKELAS.Value = Me.TABELDATA.Column(4)
Me.CBKETERANGAN.Value = Me.TABELDATA.Column(5)
Me.TXTTAHUN.Value = Me.TABELDATA.Column(6)
Me.TXTHPORTU.Value = Me.TABELDATA.Column(7)
Sheet2.Select
SUMBERUBAH = Sheets("DATASISWA").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("DATASISWA").Range("B4:B" & SUMBERUBAH).Find(What:=Me.TXTNISN.Value,

LookIn:=xlValues, LookAt:=xlWhole).Activate
CELLAKTIF = ActiveCell.Row
Sheets("DATASISWA").Range("A" & CELLAKTIF & ":I" & CELLAKTIF).Select
Sheet1.Select
Me.CMDADD.Enabled = 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 = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
TData = Application.WorksheetFunction.CountA(Sheet2.Range("B5:B10000"))
If TData = 0 Then
Me.TABELDATA.RowSource = ""
Else
Me.TABELDATA.RowSource = "DATASISWA!A5:I" & iRow
End If
Me.TXTJUMLAH.Value = Me.TABELDATA.ListCount
End Sub

Coding Form Data Siswa

Uploaded by

Copyright:

Available Formats

Coding Form Data Siswa

Uploaded by

Document Information

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Coding Form Data Siswa

Uploaded by

Copyright:

Available Formats

CODING FORM DATA SISWA

Private Sub CMDADD_Click()

Dim DBSISWA As Object

Set DBSISWA = Sheet2.Range("B100000").End(xlUp)

Or Me.TXTHPORTU.Value = "" Then

DBSISWA.Offset(1, -1).Value = "=ROW()-ROW(DATASISWA!$A$4)"

DBSISWA.Offset(1, 0).Value = Me.TXTNISN.Value

DBSISWA.Offset(1, 1).Value = Me.TXTNAMASISWA.Value

DBSISWA.Offset(1, 2).Value = Me.CBKELAMIN.Value

DBSISWA.Offset(1, 3).Value = Me.CBKELAS.Value

DBSISWA.Offset(1, 4).Value = Me.CBKETERANGAN.Value

DBSISWA.Offset(1, 5).Value = Me.TXTTAHUN.Value

DBSISWA.Offset(1, 6).Value = Me.TXTHPORTU.Value

Call MsgBox("Data siswa telah disimpan", vbInformation, "Barang Masuk")

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

Sheet6.Range("K5").Value = "*" & Me.TXTCARI.Value & "*"

CARI_DATA.Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _

Sheet6.Range("K4:K5"), CopyToRange:=Sheet6.Range("A4:I4"), Unique:=False

iRow = Sheet6.Range("A" & Rows.Count).End(xlUp).Row

Call MsgBox("Data tidak ditemukan", vbInformation, "Cari Data")

Me.TABELDATA.RowSource = "CARISISWA!A5:I" & iRow

Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")

Private Sub CMDDELETE_Click()

If Me.TXTNISN.Value = "" Then

Call MsgBox("Pilih data pada tabel data", vbInformation, "Hapus Data")

'Membuat pesan konfirmasi hapus data

Select Case MsgBox("Anda akan menghapus data" _

& vbCrLf & "Apakah anda yakin?" _

, vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus data")

Call MsgBox("Data berhasil dihapus", vbInformation, "Hapus Data")

Private Sub CMDUPDATE_Click()

Dim BARIS As String

If Me.TXTNISN.Value = "" Then

Call MsgBox("Pilih data terlebih dahulu", vbInformation, "Pilih Data")

Call MsgBox("Data berhasil di update", vbInformation, "Update Data")

Private Sub TABELDATA_Click()

Private Sub TABELDATA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim SUMBERUBAH, CELLAKTIF As String

On Error GoTo EXCELVBA

SUMBERUBAH = Sheets("DATASISWA").Cells(Rows.Count, "B").End(xlUp).Row

Sheets("DATASISWA").Range("B4:B" & SUMBERUBAH).Find(What:=Me.TXTNISN.Value,

Sheets("DATASISWA").Range("A" & CELLAKTIF & ":I" & CELLAKTIF).Select

Call MsgBox("Klik 2x pada tabel data", vbInformation, "Pilih Data")

Private Sub TXTCARI_Change()

Private Sub UserForm_Initialize()

.AddItem "Laki - Laki"

.AddItem "Kelas 1"

.AddItem "Kelas 2"

.AddItem "Kelas 3"

.AddItem "Kelas 4"

.AddItem "Kelas 5"

.AddItem "Kelas 6"

.AddItem "Siswa Aktif"

.AddItem "Siswa Non-Aktif"

.AddItem "Nama Siswa"

Sheet6.Range("K5").Value = "" & Me.TXTCARI.Value & ""