CODING FORM GURU
1. CODING USERFORM INITIALIZE
With CBJENIS
.AddItem "Laki - Laki"
.AddItem "Perempuan"
End With
With CBPENDIDIKAN
.AddItem "Diploma 1"
.AddItem "Diploma 2"
.AddItem "Diploma 3"
.AddItem "Sarjana"
End With
With CBPERNIKAHAN
.AddItem "Kawin"
.AddItem "Belum Kawin"
End With
2. CODING TOMBOL ADD
Private Sub CMDTAMBAH_Click()
Dim DbGuru As Object
Set DbGuru = Sheet1.Range("A5000").End(xlUp)
If Me.TXTID.Value = "" _
Or Me.TXTNAMA.Value = "" _
Or Me.CBJENIS.Value = "" _
Or Me.TXTTELPON.Value = "" _
Or Me.CBPENDIDIKAN.Value = "" _
Or Me.CBPERNIKAHAN.Value = "" _
Or Me.TXTMASUK.Value = "" _
Or Me.TXTHONOR.Value = "" Then
Call MsgBox("Harap isi data guru dengan lengkap", vbInformation, "Data Guru")
Else
DbGuru.Offset(1, 0).Value = Me.TXTID.Value
DbGuru.Offset(1, 1).Value = Me.TXTNAMA.Value
DbGuru.Offset(1, 2).Value = Me.CBJENIS.Value
DbGuru.Offset(1, 3).Value = Me.TXTTELPON.Value
DbGuru.Offset(1, 4).Value = Me.CBPENDIDIKAN.Value
DbGuru.Offset(1, 5).Value = Me.CBPERNIKAHAN.Value
DbGuru.Offset(1, 6).Value = Me.TXTMASUK.Value
DbGuru.Offset(1, 7).Value = Me.TXTHONOR.Value
On Error Resume Next
Sheet3.TABELDATA.ListFillRange = Sheet1.Range("TABELGURU").Address(External:=True)
Call MsgBox("Data guru berhasil ditambah", vbInformation, "Data Guru")
Me.TXTID.Value = ""
Me.TXTNAMA.Value = ""
Me.CBJENIS.Value = ""
Me.TXTTELPON.Value = ""
Me.CBPENDIDIKAN.Value = ""
Me.CBPERNIKAHAN.Value = ""
Me.TXTMASUK.Value = ""
Me.TXTHONOR.Value = ""
End If
End Sub
3. CODING LISTBOX TABEL GURU (SHEET MENU)
On Error GoTo EXCELVBATUTORIAL
FORMGURU.TXTID.Value = Sheet3.TABELDATA.Value
FORMGURU.TXTNAMA.Value = Sheet3.TABELDATA.Column(1)
FORMGURU.CBJENIS.Value = Sheet3.TABELDATA.Column(2)
FORMGURU.TXTTELPON.Value = Sheet3.TABELDATA.Column(3)
FORMGURU.CBPENDIDIKAN.Value = Sheet3.TABELDATA.Column(4)
FORMGURU.CBPERNIKAHAN.Value = Sheet3.TABELDATA.Column(5)
FORMGURU.TXTMASUK.Value = Sheet3.TABELDATA.Column(6)
FORMGURU.TXTHONOR.Value = Sheet3.TABELDATA.Column(7)
FORMGURU.TXTMASUK.Value = Format(FORMGURU.TXTMASUK.Value, "DD MMMM YYYY")
FORMGURU.CMDTAMBAH.Enabled = False
FORMGURU.Show
On Error Resume Next
Application.ScreenUpdating = False
Sheet1.Select
SUMBERUBAH = Sheets("DATAGURU").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("DATAGURU").Range("A2:A" & SUMBERUBAH).Find(What:=FORMGURU.TXTID.Value,
LookIn:=xlValues, LookAt:=xlWhole).Activate
CELLAKTIF = ActiveCell.Row
Sheets("DATAGURU").Range("A" & CELLAKTIF & ":H" & CELLAKTIF).Select
Sheet3.Activate
Exit Sub
EXCELVBATUTORIAL:
Call MsgBox("Pilih data pada tabel data", vbInformation, "Pilih Data")
4. CODING TOMBOL UBAH
Application.ScreenUpdating = False
Dim BARIS, SUMBERUBAH As String
If Me.TXTID.Text = "" Then
Call MsgBox("Pilih data terlebih dahulu", vbInformation, "Pilih Data")
Else
Sheet1.Activate
BARIS = ActiveCell.Row
Cells(BARIS, 1) = Me.TXTID.Value
Cells(BARIS, 2) = Me.TXTNAMA.Value
Cells(BARIS, 3) = Me.CBJENIS.Value
Cells(BARIS, 4) = Me.TXTTELPON.Value
Cells(BARIS, 5) = Me.CBPENDIDIKAN.Value
Cells(BARIS, 6) = Me.CBPERNIKAHAN.Value
Cells(BARIS, 7) = Me.TXTMASUK.Value
Cells(BARIS, 8) = Me.TXTHONOR.Value
Cells(BARIS, 8) = CDec(Cells(BARIS, 8))
Sheet3.Activate
On Error Resume Next
Sheet3.TABELDATA.ListFillRange = Sheet1.Range("TABELGURU").Address(External:=True)
Call MsgBox("Data berhasil di update", vbInformation, "Update Data")
Me.TXTID.Value = ""
Me.TXTNAMA.Value = ""
Me.CBJENIS.Value = ""
Me.TXTTELPON.Value = ""
Me.CBPENDIDIKAN.Value = ""
Me.CBPERNIKAHAN.Value = ""
Me.TXTMASUK.Value = ""
Me.TXTHONOR.Value = ""
Me.CMDTAMBAH.Enabled = True
End If
5. CODING TOMBOL HAPUS
If Me.TXTID.Value = "" Then
Call MsgBox("Masukkan ID Guru yang dicari", vbInformation, "Cari Guru")
Else
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 CariGuru = Sheet1.Range("A2:A100000").Find(What:=Me.TXTID.Value, LookIn:=xlValues)
CariGuru.Offset(0, 0).ClearContents
CariGuru.Offset(0, 1).ClearContents
CariGuru.Offset(0, 2).ClearContents
CariGuru.Offset(0, 3).ClearContents
CariGuru.Offset(0, 4).ClearContents
CariGuru.Offset(0, 5).ClearContents
CariGuru.Offset(0, 6).ClearContents
CariGuru.Offset(0, 7).ClearContents
Call MsgBox("Data Guru telah di hapus", vbInformation, "Hapus Data")
Me.TXTID.Value = ""
Me.TXTNAMA.Value = ""
Me.CBJENIS.Value = ""
Me.TXTTELPON.Value = ""
Me.CBPENDIDIKAN.Value = ""
Me.CBPERNIKAHAN.Value = ""
Me.TXTMASUK.Value = ""
Me.TXTHONOR.Value = ""
End If
Call UrutData
6. MODUL URUTDATA
Sub UrutData()
Application.ScreenUpdating = False
Sheet1.Select
Sheet1.Range("A1:H20000").Sort KEY1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
Sheet3.Select
End Sub
7. CODING RESET
Me.TXTID.Value = ""
Me.TXTNAMA.Value = ""
Me.CBJENIS.Value = ""
Me.TXTTELPON.Value = ""
Me.CBPENDIDIKAN.Value = ""
Me.CBPERNIKAHAN.Value = ""
Me.TXTMASUK.Value = ""
Me.TXTHONOR.Value = ""
Me.CMDTAMBAH.Enabled = True
