Diskusi tentang Excel

Aplikasi SKKB dan Surat Keterangan Ver.1.11 Update April 2016

Beberapa waktu yang lalu saya pernah posting mengenai aplikasi SKKB (Surat Keterangan Kelakuan Baik) versi 10 dan sekarang 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 sebenarnya perbedaannya.

Aplikasi SKKB dan Surat Keterangan Versi terbaru yaitu Ver.11 ini merupakan update di bulan April 2016 dimana aplikasi ini hanya tidak usah menggunakan worksheet namun hanya menggunakan UserForm saja sehingga lebih mudah dan lebih userfriendly.

Ini lho link Aplikasi SKKB Versi 10 (Lama)

Seperti apa tampilan aplikasi SKKB terbaru tersebut? berikut screenshootnya



Yaps, seperti itulah tampilannya, sederhana sekali ya, tak apa yang jelas aplikasi ini mungkin akan sangat membantu sekolah dalam membuat Surat Keterangan Kelakuan Baik yang dikeluarkan oleh sekolah untuk siswa kelas XII.

Saat ini memang banyak sekali digunakan ketika siswa meminta surat keterangan kelakukan baik kepada sekolah khususnya TU dan tentunya staf TU harus lebih cerdik dan cepat dalam hal pelayanan. Bagaimana tidak, jika ada 10 orang sekaligus siswa meminta SKKB maka operator akan merasa kewalahan dalam membuatnya karena mungkin menggunakan word sehingga harus copy dan paste format SKKB yang dimilikinya.

Aplikasi SKKB Ver.11 ini masih tetap format Excel ya, ini karena saya suka dengan excel jadi tidak ada salahnya saya mencoba kembali untuk update aplikasi Surat Keterangan Kelakuan Baik berbasis Excel. Bagaimana cara menggunakan Aplikasi tersebut?

Anda cukup buka Aplikasinya kemudian jika Macro belum aktif maka aktifkan terlebih dahulu, belum tahu caranya ?

Simak tulisan saya
Cara Cepat Mengaktifkan Macro Excel
Jika sudah memahami, setelah macro nya aktif silakan tuliskan siapa yang akan membuat SKKB dan Surat Keterangan Masih sekolah dan telah melaksanakan 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 ketika Anda mengetikkan nama kemudian muncul data lengkapnya Anda harus memiliki database siswa, lalu bagaimana caranya mengentri database siswa yang begitu banyak?

Jangan khawatir Jika Anda Operator Sekolah cukup dengan download datanya pada Aplikasi DAPODIK dalam format excel kemudian pastekan saja pada aplikasinya. Aplikasi Updater terbaru ini sudah dilengkapi dengan animasi dati tombol jadi ketika tombol diarahkan ke salah satu tombol maka tombolnya akan berubah secara otomatis.

Kelebihan dari Aplikasi Ver.11 ini juga sudah dilengkapi database yang telah membuat SKKB dan Keterangan Siswa sehingga apabila dibutuhkan data siapa saja yang telah membuatnya Anda dapat melihatnya secara keseluruhan. Oke, aplikasi ini memang belum sempurna karena terburu-buru membuatnya ya untuk kebutuhan mendadak jadi seadanya saja.

Bagi yang mau mengembangkan saya kasih Coding VBA nya neh, silakan dibaca moga ajah bisa 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 membuat 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 download aplikasi SKKB dan Keterangan Ver.11 ini, kalo mau belajar silakan dicoba. Semoga bermanfaat.

Related

Aplikasi Excel 8465533332655541751

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item