Beberapa waktu yang kemudian saya pernah posting mengenai aplikasi SKKB (Surat Keterangan Kelakuan Baik) versi 10 dan kini saya update untuk SKKB ver.11. Lalu apa bedanya dengan versi 10 tersebut? Mungkin bagi yang belum pernah mencoba menggunakannya tidak akan mengetahui apa seh bahu-membahu perbedaannya.
Aplikasi SKKB dan Surat Keterangan Versi terbaru yakni Ver.11 ini merupakan update di bulan April 2016 dimana aplikasi ini hanya tidak usah memakai worksheet namun hanya memakai UserForm saja sehingga lebih gampang dan lebih userfriendly.
Ini lho link Aplikasi SKKB Versi 10 (Lama)
Seperti apa tampilan aplikasi SKKB terbaru tersebut? berikut screenshootnya
Yaps, menyerupai itulah tampilannya, sederhana sekali ya, tak apa yang terperinci aplikasi ini mungkin akan sangat membantu sekolah dalam menciptakan Surat Keterangan Kelakuan Baik yang dikeluarkan oleh sekolah untuk siswa kelas XII.
Saat ini memang berbagai dipakai dikala siswa meminta surat keterangan kelakukan baik kepada sekolah khususnya TU dan tentunya staf TU harus lebih berakal dan cepat dalam hal pelayanan. Bagaimana tidak, jikalau ada 10 orang sekaligus siswa meminta SKKB maka operator akan merasa kewalahan dalam membuatnya sebab mungkin memakai word sehingga harus copy dan paste format SKKB yang dimilikinya.
Aplikasi SKKB Ver.11 ini masih tetap format Excel ya, ini sebab saya suka dengan excel jadi tidak ada salahnya saya mencoba kembali untuk update aplikasi Surat Keterangan Kelakuan Baik berbasis Excel. Bagaimana cara memakai Aplikasi tersebut?
Anda cukup buka Aplikasinya kemudian jikalau Macro belum aktif maka aktifkan terlebih dahulu, belum tahu caranya ?
Jika sudah memahami, sesudah macro nya aktif silakan tuliskan siapa yang akan menciptakan SKKB dan Surat Keterangan Masih sekolah dan telah melakukan UN tersebut? Anda tinggal mengetikkannya maka data akan secara otomatis muncul dan Anda tinggal klik Print SKKB atau Print Surat Keterangan. Apabila Anda ingin menyimpannya maka boleh juga klik Tombol Simpan. Tentunya dikala Anda mengetikkan nama kemudian muncul data lengkapnya Anda harus mempunyai database siswa, kemudian bagaimana caranya mengentri database siswa yang begitu banyak?
Simak goresan pena saya
Cara Cepat Mengaktifkan Macro Excel
Jangan khawatir Jika Anda Operator Sekolah cukup dengan d0wnl0ad datanya pada Aplikasi DAPODIK dalam format excel kemudian pastekan saja pada aplikasinya. Aplikasi Updater terbaru ini sudah dilengkapi dengan animasi dati tombol jadi dikala tombol diarahkan ke salah satu tombol maka tombolnya akan berubah secara otomatis.
Kelebihan dari Aplikasi Ver.11 ini juga sudah dilengkapi database yang telah menciptakan SKKB dan Keterangan Siswa sehingga apabila diharapkan data siapa saja yang telah membuatnya Anda sanggup melihatnya secara keseluruhan. Oke, aplikasi ini memang belum tepat sebab terburu-buru membuatnya ya untuk kebutuhan mendadak jadi seadanya saja.
Bagi yang mau menyebarkan saya kasih Coding VBA nya neh, silakan dibaca moga ajah sanggup dipelajari
Private Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub CommandButton1_Click()
If Kode.Value = "" Then
MsgBox "kode tidak ditemukan", vbInformation, "Info"
Else
Nomor = Trim(Me.Kode.Value)
With Sheets("Database")
Baris = .Columns("A").Find(Nomor).Row
.Range("A" & Baris).Value = Me.Kode.Value
.Range("AL" & Baris).Value = Me.TextBox8.Value
End With
MsgBox "Data berhasil diupdate ", vbInformation, "Info"
End If
End Sub
Private Sub CBOCariSiswa_Change()
On Error Resume Next
If CBOCariSiswa.Value = "" Then
Call KosongkanData
Else
Sheets("SKKB").Range("O8").Value = CBOCariSiswa.Value
TextBox1.Value = Sheets("SKKB").Range("O9").Value
TextBox3.Value = Sheets("SKKB").Range("O10").Value
TextBox4.Value = Sheets("SKKB").Range("O11").Value
TextBox5.Value = Sheets("SKKB").Range("O12").Value
TextBox6.Value = Sheets("SKKB").Range("O13").Value
TextBox7.Value = Sheets("SKKB").Range("O14").Value
TextBox8.Value = Sheets("SKKB").Range("O15").Value
Kode.Value = Sheets("SKKB").Range("M7").Value
End If
End Sub
Sub KosongkanData()
TextBox1.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
End Sub
Private Sub TombolKeterangan1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
LabelKeterangan.ForeColor = &HFF00&
TombolKeterangan2.Visible = True
sndPlaySound32 "C:\Windows\Media\Windows Navigation Start.wav", &H1
End Sub
Private Sub TombolKeterangan2_Click()
sndPlaySound32 "C:\Windows\Media\Windows Pop-up Blocked.wav", &H1
Sheets("Keterangan").Select
Range("B6:I45").PrintOut
End Sub
Private Sub TombolSimpan1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolSimpan2.Visible = True
Label9.ForeColor = &HFF00&
sndPlaySound32 "C:\Windows\Media\Windows Navigation Start.wav", &H1
End Sub
Private Sub TombolSimpan2_Click()
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("DataPembuat")
Dim Path As String
iRow = Ws.Cells(Rows.Count, 3) _
.End(xlUp).Offset(1, 0).Row
If WorksheetFunction.CountIf(Ws.Range("A2", Ws.Cells(iRow - 1, 3)), Me.Kode.Value) > 0 Then
MsgBox "Nama tersebut pernah menciptakan dan ada di database, silakan ganti", vbInformation, "Info"
Kode.Value = ""
CBOCariSiswa.Value = ""
TextBox1.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
MsgBox "Penyimpanan ke database telah dibatalkan"
End If
If Trim(Me.TextBox8.Value) = "" Then
MsgBox "Kelas harus diisi"
Exit Sub
End If
Ws.Cells(iRow, 1).Value = Me.Kode.Value
Ws.Cells(iRow, 2).Value = Me.CBOCariSiswa.Value
Ws.Cells(iRow, 3).Value = Me.TextBox1.Value
Ws.Cells(iRow, 4).Value = Me.TextBox3.Value
Ws.Cells(iRow, 5).Value = Me.TextBox4.Value
Ws.Cells(iRow, 6).Value = Me.TextBox5.Value
Ws.Cells(iRow, 7).Value = Me.TextBox6.Value
Ws.Cells(iRow, 8).Value = Me.TextBox7.Value
Ws.Cells(iRow, 9).Value = Me.TextBox8.Value
sndPlaySound32 "C:\Windows\Media\Windows Pop-up Blocked.wav", &H1
CBOCariSiswa.Value = ""
TextBox8.Value = ""
Call ListPembuatData
With Me.CBOCariSiswa
.Value = "Ketikan nama siswa disini"
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
With ListBox1
.BoundColumn = 2
.ColumnCount = 10
.ColumnWidths = "0;150;0;0;0;0;0;0;100;100"
End With
End Sub
Private Sub TombolSKKB1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
LabelSKKB.ForeColor = &HFF00&
TombolSKKB2.Visible = True
sndPlaySound32 "C:\Windows\Media\Windows Navigation Start.wav", &H1
End Sub
Private Sub TombolSKKB2_Click()
sndPlaySound32 "C:\Windows\Media\Windows Pop-up Blocked.wav", &H1
Sheets("SKKB").Select
Range("B7:I51").PrintOut
End Sub
Private Sub UserForm_Initialize()
TombolSKKB2.Visible = False
TombolKeterangan2.Visible = False
LabelSKKB.ForeColor = &HFFFF00
LabelKeterangan.ForeColor = &HFFFF00
Label9.ForeColor = &HFFFF00
TombolSimpan2.Visible = False
With ListBox1
.RowSource = "ListPembuatData"
.BoundColumn = 2
.ColumnCount = 10
.ColumnWidths = "0;150;0;0;0;0;0;0;100;100"
End With
With Me.CBOCariSiswa
.Value = "Ketikan nama siswa disini"
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolSKKB2.Visible = False
TombolKeterangan2.Visible = False
LabelSKKB.ForeColor = &HFFFF00
LabelKeterangan.ForeColor = &HFFFF00
Label9.ForeColor = &HFFFF00
TombolSimpan2.Visible = False
End Sub
Oke, itu saja, maaf belum sempet kasih link d0wnl0ad aplikasi SKKB dan Keterangan Ver.11 ini, kalo mau berguru silakan dicoba. Semoga bermanfaat. Sumber http://www.excel-id.com/