Validasi Angka di TextBox VBA Excel

Perhatikan gambar format gif diatas..!!! Textbox hanya bisa di input angka saja, dan menolak untuk karakter lain. Validasi Angka dalam texbox dibutuhkan untuk menghidari salah pengetikan data. simak baik-baik langkah-langkah untuk membuat texbox hanya menerima input angka saja.

Langkah-langkah Validasi Angka di texbox VBA Excel 

• Download sample file Validasi Angka
• Buka Visual Basic dan masukkan kode berikut ini 
• Kode Validasi pada TextBox1

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Validasi angka TextBox
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
        KeyAscii = 0
End Select
End Sub

• Kode Validasi untuk TextBox2

Private Sub TextBox2_Change()
'Validasi Mata Uang Rupiah
TextBox2.Value = Format(TextBox2.Value, "Rp #,##0")
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Validasi angka TextBox Dengan Pesan
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
        KeyAscii = 0
End Select
End Sub

• Kode Validasi Untuk TextBox3

Private Sub TextBox3_Change()
    If TextBox3 = vbNullString Then Exit Sub
        If Not IsNumeric(TextBox3) Then
             MsgBox "Maaf, hanya data berupa angka yang diijinkan", 16, "Validasi"
             TextBox3 = vbNullString
        End If
End Sub

• Selesai..!!! Mudah bukan..!!

Tanggal Otomatis UserForm VBA Excel

Perhatikan gambar format gif diatas. Tanggal Otomatis muncul ketika UserForm dijalankan. Tanggal yang muncul akan sesuai dengan tanggal yang terdapat pada komputer. Penanggalan otomatis ini sangat membantu dalam membuat aplikasi database. Misalnya kita buat aplikasi pendaftaran siswa baru. Tanggal pendaftaran sangat perlu dicatat. langsung kita mempraktekkan cara membuat Tanggal Otomatis dengan UserForm VBA Excel

Langkah-Langkah Membuat Tanggal Otomatis Di UserForm VBA Excel 

• Download Sample File Tanggal Otomatis
• Buka visual basic dan masukkan kode berikut ini di UserForm

Sub Tahun()
Dim Thn As Integer
Dim DateX As Date
DateX = Date
   With UserForm1.CboTahun
      .Clear
      For Thn = 2014 To 2025
         .AddItem Thn
      Next Thn
      .ListRows = 15
      .Value = Format(Year(DateX), "0000")
   End With
End Sub
Sub Bulan()
Dim Bulan As Long
    For Bulan = 1 To 12
        UserForm1.CboBulan.AddItem Format(DateSerial(2000, Bulan, 1), "[$-21]mmmm")
    Next Bulan
    UserForm1.CboBulan.ListRows = 12
    UserForm1.CboBulan.Value = Format(Now(), "[$-21]mmmm")
End Sub
Sub Tanggal()
Dim Tgl As Integer
Dim DateX As Date
DateX = Date
   With UserForm1.CboTgl
      .Clear
      For Tgl = 1 To 31
         .AddItem Tgl
      Next Tgl
      .ListRows = 16
      .Value = Format(Day(DateX), "00")
   End With
End Sub

• Selanjutnya tambahkan Kode berikut diantara UserForm_initialize() dan End Sub

Private Sub UserForm_Initialize()
Call Tahun
Call Bulan
Call Tanggal
End Sub

• Selesai..!! Coba jalankan..! jika sudah mengikuti penempatan Kode dengan tepat, Makan tanggal, bulan dan tahun akan muncul secara otomatis di ComboBox.

Perintah Kadaluarsa (Expiration date) Aplikasi VBA Excel

Perhatikan gambar format gif diatas..!! Aplikasi dibatasi penggunaannya dengan memasukkan perintah kadaluarsa (Expiration date). Tujuannya agar aplikasi tidak dapat dibuka lagi dengan batasan waktu tertentu hingga pengguna aplikasi menghubungi programer. Mungkin dengan kata lain bisa disebut juga programer memberikan masa Trial penggunaan aplikasi. Banyak cara untuk membuat sebuah aplikasi VBA Excel Kadaluarsa (Expiration date) salah satunya dengan menentukan tanggal atau jumlah hari pemakaian dari tanggal tertentu. Ikuti dan praktekkan langkah-langkah membuat Aplikasi VBA Excel Kadaluarsa (Expiration date)

Baca Juga : Menampilkan Icon Pada Title Aplikasi/UserForm Vba Excel

Langkah-langkah membuat Aplikasi VBA Excel Kadaluarsa (Expiration date) :

• Masih menggunakan Aplikasi Data yang dapat di download pada posting "Tombol Simpan VBA Excel" yang merupakan posting pertama yang harus di simak untuk membuat Aplikasi Data yang kita gunakan pada posting ini.
• Buka Visual Basic Aplikasi Data, Pada Jendela Project Explorer, double klik "ThisWorBook" hingga muncul jendela Code dan masukkan kode berikut ini, perhatikan gambar dibawah kode.

Dim Edate As Date
Edate = Format("20/11/2015", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 30 Then
MsgBox "Aplikasi Data Telah Habis Masa Percobaan..!! Untuk Penggunaan Selanjutnya.!!Hubungi Programer, HP.08116822023", 16, "Trial"
ActiveWorkbook.Close
End If

• Selesai..!!! Mudah bukan..!!!
• Perlu diperhatikan bahwa tanggal "20/11/2015" merupakan tanggal hari pertama dan "30 Then" merupakan jumlah hari dari tanggal yang di tentukan.

Sekian pembahasan Perintah Kadaluarsa (Expiration date) Aplikasi VBA Excel. Posting ini merupakan posting terakhir untuk penggunaan file "Aplikasi Data". Untuk posting berikutnya InsyaAllah akan saya gunaka file lain.

File "Aplikasi Data" saya gunakan dalam beberapa Posting berikut ini :

1. Tombol Simpan VBA Excel
2. UserForm Muncul Otomatis Ketika Excel Dibuka
3. Range Dinamis
4. Tampilkan Data di ListBox di UserForm VBA Excel
5. Perintah Cari otomatis Melalui TextBox
6. Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik
7. Tombol Hapus UserForm VBA Excel
8. Cari Data Dengan TextBox Tampil Di ListBox
9. Disable Close Bawaan, Modifikasi Tombol Keluar Sendiri
10. Edit Data Melalui UserForm VBA Excel
11. Mencegah Rename File Macro Excel
12. Minimize UserForm VBA Excel
13. Perintah Print Preview Melalui UserForm VBA Excel
14. Peringatan "Aktifkan Macro Security" VBA Excel
15. Perintah Kadaluarsa (Expiration date) Aplikasi VBA Excel

Download Aplikasi Data yang sudah komplit semua posting diatas, Masa Expirenya 30 hari dari tanggal 24 Desember 2015.  Bila anda mengikuti dari posting pertama hingga akhir, Aplikasi Data yang anda gunakan juga sama dengan yang saya miliki. 

Peringatan "Aktifkan Macro Security" VBA Excel

Perhatikan gambar format gif diatas..!! Aplikasi Data tidak bisa menjalankan fungsinya dikarenakan pada pengaturan Excel Macro Security belum di aktifkan. UserForm tidak muncul, Sheet yang terlihat hanya sheet "PERINGATAN". Secara bawaan Microsoft Excel saat di instal macro security memang tidak aktif. Untuk menjalankan Aplikasi yang dibuat dengan menggunakan VBA Excel memang wajib mengaktifkan macro security. Kita akan membuat sebuah peringatan untuk pengguna aplikasi agar mengaktifkan macro Security agar aplikasi berjalan dengan baik. ikuti langkah-langkah yang saya sajikan di blog tercinta ini. File yang saya gunakan merupakan file Aplikasi Data yang dapat di download di posting Tombol Simpan VBA Excel yang merupakan tahap awal pembuatan Aplikasi Data yang saya gunakan dalam posting ini.

Langkah-langkah membuat Peringatan "Aktifkan Macro Security" VBA Excel :

• Buka file Aplikasi Data buatlah sebuat sheet dengan nama sheet "PERINGATAN" dan tulislah kalimat peringatan. Perhatikan gambar dibawah ini.

• Tahap selanjutnya klik Developer, pilih Visual Basic. Pada Project Explorer double klik "ThisWorkBook hingga muncul jendela kode. perhatikan gambar dibawah kode. Masukkan kode dibawah ini sesuai dengan gambar.

Private Const Sht As String = "PERINGATAN"
Dim Ws As Worksheet


On Error Resume Next
For Each Ws In Worksheets
If Ws.Name <> Sht Then Ws.Visible = xlSheetVisible
If Ws.Name = "PERINGATAN" Then Ws.Visible = xlSheetVeryHidden
Next Ws


Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
Application.Visible = True
Worksheets(Sht).Visible = xlSheetVisible
For Each Ws In Worksheets
If Ws.Name <> Sht Then Ws.Visible = xlSheetVeryHidden
Next Ws
ActiveWorkbook.Save
Application.Quit
End Sub

• Selesai..!! Penjelesan kode tidak ada. Yang penting letakkan kode sesuai posisi gambar di atas. begitulah caranya belajar otodidak. Praktekkan saja tanpa banyak tanya. "Do more Talk Less"

Perintah Print Preview Melalui UserForm VBA Excel

Print Preview diperlukan sebelum sebuah dokument di print untuk melihat kesesuian tata letak, mengatur jumlah print dan mengatur pilihan paper yang di gunakan agar menghasilkan dokument yang di print lebih baik.

Perintah Print Preview Melalui UserForm VBA Excel akan kita bahas secara singkat, karena memang kodenya amat singkat. ikuti saja langkah-langkah yang akan saya paparkan dalam posting ini. Sebelumnya perlu diketahui bahwa posting ini masih kelanjutan Aplikasi Data. Aplikasi Data dapat di download di posting "Tomboh Simpan VBA Excel" yang merupakan posting pertama menyangkut File yang saya gunakan dalam beberapa posting membuat Aplikasi Data.

Langkah-langkah membuat Perintah Print Preview Melalui UserForm VBA Excel :

• Buka Visual Basic file Aplikasi Data
• Tambahkan pada UserForm 1 buah Label, selanjutnya ubah namenya menjadi "LbPrint" dengan Caption "PRINT", download icon print untuk memperindah Aplikasi Data. Perhatikan gambar dibawah 

• Klik kanan "LbPrint" pilih View Code dan letakkan kode dibawah ini. Perhatikan gambar dibawah kode

Private Sub LbPrint_Click()
'Print Preview Dari Userform
Dim Ws As Worksheet: Set Ws = Sheets("DB")
UserForm1.Hide
Application.Visible = True
Ws.Activate
Ws.PrintPreview
Application.Visible = False
UserForm1.Show
End Sub

• Selesai..!! Uji Aplikasi Data yang telah anda buat perintah print preview dengan menekan F5. Jika anda telah menempatkan Kode nya dengan tepat makan Aplikasi Data untuk perintah Print Preview akan berfungsi dengan semestinya.

Minimize UserForm VBA Excel

Minimize UserForm VBA Excel - Perhatikan gambar gif diatas..!! Terus terang saya tidak punya ilmu untuk menjelaskan hal semacam ini dikarenakan saya belajar otodidak. Yang terpenting dari belajar otodidak aplikasinya dapat berjalan baik. Ada yang menyebutkan untuk membuat Minimize UserForm menggunakan Code API. Saya ngak paham tu. daripada membahas yang ngak paham kelamaan labih bagus kita nyontek ajha kode untuk Minimize UserForm VBA Excel. Ikuti ajha langkah-langkah yang saya sajikan berikut ini

Langkah-langkah membuat Tombol Minimize UserForm VBA Excel :

• Buka Visual Basic file Aplikasi Data (Download di Posting Tombol Simpan VBA Excel)
• Tambahkan sebuah Modul, masukkan kode berikut dalam modul tersebut.

Public Const WS_MINIMIZEBOX = &H10000
Public Const WS_MAXIMIZEBOX = &H20000
Public Const GWL_STYLE = (-16)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Public Sub AddMinMaxButtons(ByVal FormCaption As String, ByVal MinButton As Boolean, ByVal MaxButton As Boolean)
Dim hWnd As Long
Dim lngStyle As Long
hWnd = FindWindow(vbNullString, FormCaption)
lngStyle = GetWindowLong(hWnd, GWL_STYLE)
If MaxButton Then
    lngStyle = lngStyle Or WS_MAXIMIZEBOX
End If
If MinButton Then
    lngStyle = lngStyle Or WS_MINIMIZEBOX
End If
SetWindowLong hWnd, GWL_STYLE, lngStyle
DrawMenuBar hWnd
End Sub

• Langkah selanjutnya masukkan kode berikut di antara Private Sub UserForm_Activate() dan End Sub

Private Sub UserForm_Activate()
AddMinMaxButtons Me.Caption, MinButton:=False, MaxButton:=True
End Sub

• Selesai..!!! Jalankan Aplikasinya, Jika anda mengkuti penempatan kode dengan tepat, Aplikasi dengan Button Minimize akan berjalan.

Mencegah Rename File Macro Excel

Perhatikan gambar format gif diatas..!!! File Excel yang di rename setelah dibuka langsung memberikan peringatan agar nama file tidak di ubah dan harus dengan nama yang tertera. Walaupun Ngak penting-penting amat sich..!!! Ikuti langkah-langkah membuat file excel tidak bisa di rename. untuk percobaan ini saya  masih menggunakan file yang terdapat pada posting Tombol Simpan VBA Excel dengan tujuan agar anda bisa mengikuti dari awal pembahasan dengan demikian anda dapat membuat sebuah Aplikasi dari tahap awal secara otodidak.

Langkah-langkah Mencega Rename File Excel Macro :

• Buka Visual Basic File Aplikasi Data
• Pada Project Explorer(Jika tidak tampil tekan Ctrl + R pada Keyboard), double klik pada tulisan "ThisWorkbook" dan akan tampil layout Code. Masukkan kode dibawah ini diantara Private Sub Workbook_Open() dan End Sub

If ThisWorkbook.Name <> "Aplikasi Data.xlsb" Then
     MsgBox "Maaf, Nama File Harus ''Aplikasi Data.xlsb, Tidak Boleh DiGanti''", 16, "Error..."
       ThisWorkbook.Save
         ThisWorkbook.Close
        Application.Quit
    Exit Sub
    End If

• Selesai..!! Cobalah untuk merename file..!! bila anda meletakkan kode dengan benar maka file akan memberikan peringatan jika nama file di ganti.

Edit Data Melalui UserForm VBA Excel

Perhatikan gambar format gif diatas..!! begitu maksud dari posting ini. Edit Data melalui UserForm VBA Excel mengubah data yang terdapat dalam database. Edit data dilakukan untuk mengubah informasi yang ada dalam database dikarena kesalahan atau untuk melengkapi data yang benar. Ikuti langkah-langkah untuk membuat tombol edit data melalui UserForm VBA Excel.

Langkah-langkah Edit Data Melalui UserForm VBA Excel :

• Buka Visual Basic File Aplikasi Data (download di Posting Tombol Simpan VBA Excel)
• Buat 1 buah CommandButton ubah Name "CmdEdit" ubah Caption "EDIT" Melalui Properties
• Klik Kanan pilih View Code CmdEdit masukkan kode dibawah ini 

Private Sub CmdEdit_Click()
Dim Ws As Worksheet: Set Ws = Worksheets("DB")
Dim C As Range
Dim Baris As Long
If TxtNoInduk.Value = "" Then
MsgBox "Double Klik Untuk Pilih Data Yang Akan Di Edit", 16, "Aplikasi Data"
Exit Sub: End If
If MsgBox(" Anda Mau Ngedit Data : " & TxtNamaSiswa.Value, vbYesNo + 48, "Komfirmasi") = vbYes Then
Set C = Ws.Range("B4:B1000").Find(TxtNoInduk.Value, LookIn:=xlValues)
If Not C Is Nothing Then
Baris = C.Row
With Ws
.Cells(Baris, 2).Value = TxtNoInduk.Value
.Cells(Baris, 3).Value = TxtNamaSiswa.Value
.Cells(Baris, 4).Value = IIf(Me.OptLaki.Value = True, "Laki-Laki", "Perempuan")
.Cells(Baris, 5).Value = TxtAlamat.Value

End With
End If
Call ListDB
MsgBox "Data Telah DiRubah...", 64, "Aplikasi Data"
Else
Call CmdBatal_Click
MsgBox "Batal Edit Ya...", 64, "Aplikasi Data"
End If
End Sub

• Selesai..!! Jalankan Aplikasinya dengan menekan F5..!!

Disable Close Bawaan, Modifikasi Tombol Keluar Sendiri

Perhatikan gambar format gif diatas..!! Fungsi tombol close bawaan tidak dapat difungsikan, namun untuk keluar dari aplikasi pengguna aplikasi diarahkan untuk mengklik tombol keluar yang khusus dibuat. Perintah pada Tombol Keluar juga telah di tambahkan untuk menyimpan perubahan data terakhir saat kita menggunakan aplikasi.

Membuat Tombol dengan perintah keluar dari aplikasi sangat mudah..!! simak baik-baik dan ikuti langkah-langkah yang saya sajikan dalam postingan ini. Perlu sangat diperhatikan bahwa kita masih mengunakan file yang terdapat pada posting "Tombol Simpan VBA Excel"

Langkah-langkah Disable Close Bawaan,  Modifikasi Tombol Keluar Sendiri :

• Buka File Aplikasi Data dan masuk ke Visual Basic
• Untuk Disable Close Bawaan UserForm, klik kanan pada UserForm  pilih View Code dan masukkan kode dibawah ini, dan perhatikan gambar dibawah kode

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = 0 Then
        Cancel = True
        MsgBox "Klik Tombol Keluar..!!!", 16, "Aplikasi Data"
    End If
End Sub

• Pada UserForm tambahkan 1 buah label dengan Name "LbKeluar" dan Caption "Keluar", pada bagian Image load gambar yang cocok. Bila tidak ada stock Download Icon Turn Off. Perhatikan saja gambar dibawah yeah..!!!

• Tahap berikutnya masukkan kode dibawah pada "LbKeluar" dengan cara klik kanan selanjutnya pilih View Code. Perhatikan gambar dibawah kode yeah..!!

Private Sub LbKeluar_Click()
ActiveWorkbook.Close savechanges:=True
End Sub

• Selesai..!!! Mudah bukan..!!! Jalankan Aplikasi dengan menekan F5.!!

Demikian sedikit penjelasan mengenai Disable Close Bawaan dan Memodifikasi Tombol Keluar Aplikasi.

Cari Data Dengan TextBox Tampil Di ListBox

Salam bagi yang belajar VBA Excel secara otodidak..!!! Semoga apa yang saya sajikan pada blog pribadi saya ini membantu anda yang belajar otodidak membuat Aplikasi VBA Excel dengan tampilan UserForm. Perhatikan gambar Gif diatas..!!! Cari data dan data yang di cari akan tampil. Data yang di cari diisi pada TextBox, dan data yang dicari  tampil pada ListBox setelah klik perintah cari. Menampilkan data yang dicari sangatlah dibutuhkan dalam sebuah aplikasi data. Tujuannya agar pengguna Aplikasi dapat dengan mudah menemukan data tertentu. Ikuti selangkah demi selangkah agar anda juga dapat membuat perintah cari. Ok..!! Siapkan kopi..!!! agar bisa santai membuat perintah seperti gambar diatas.

Posting ini merupakan kelanjutan dari posting sebelumnya :

1. Tombol Simpan VBA Excel Terdapat File untuk di download sebagai bahan awal percobaan
2. UserForm Muncul Otomatis Ketika Excel Dibuka
3. Range Dinamis
4. Tampilkan Data di ListBox di UserForm VBA Excel
5. Perintah Cari otomatis Melalui TextBox
6. Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik
7. Tombol Hapus UserForm VBA Excel

Langkah-langkah menampilkan data yang di cari pada ListBox :

• Buka File Aplikasi Data (Download di Posting Tombol Simpan VBA Excel), rename Sheet2 menjadi "CARI". Selanjutnya klik Tab Data dan perhatikan pada ribbon Sort & Filter pilih Advaced untuk memfilter data dengan kreteria tertentu. perhatikan gambar dibawah.

• Pada kotak dialog pilih "Copy To another location" isikan List range dan Criteria range dari Sheet "DB". Perhatikan gambar dibawah ini

• Untuk "Copy To" pilih Sheet "CARI" yang merupakan tempat penempatan hasil Filter. dan kita memilih lokasi penempatan data pada "B3". Perhatikan gambar dibawah ini 

• Klik Ok untuk memfilter datanya. lihat hasil filernya dan buatlah Range Dinamis seperti gambar dibawah.

• Tahap selanjutnya buka Visual Basic Excel
• Tambahkan TextBox dengan Name "TxtCariData" dan 2 buah Label masing-masing "LbCariData" dan "LbTampilSemua"
• pada TextBox "TxtCariData" masukkan kode berikut ini dan perhatikan gambar dibawah kode ya.!!

Private Sub TxtCariData_Change()
TxtCariData = UCase(TxtCariData)
Sheets("DB").Range("M2").Value = UserForm1.TxtCariData.Text
End Sub

• Selanjutnya masukkan kode berikut pada "LbCariData", dan perhatikan gambar dibawah kode

Private Sub LbCariData_Click()
Dim Ws As Worksheet: Set Ws = Sheets("DB")
Dim wsrekap As Worksheet: Set wsrekap = Sheets("CARI")
Dim R As Range: Set R = Ws.Range("ListDB")
Dim RFilter As Range: Set RFilter = Ws.Range("M1:M2")
Dim RCari As Range: Set RCari = Ws.Range("M2")
Dim C As Variant
If Ws.FilterMode Then Ws.ShowAllData
If UserForm1.TxtCariData.Text = "" Then
    MsgBox "Maaf...!! Anda Belum Memasukkan Nama Siswa..!!", 16, "Aplikasi Data"
    Exit Sub
End If
        UserForm1.TxtCariData.Text = RCari
        R.AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=RFilter, CopyToRange:=wsrekap.Range("B3:F3"), Unique:=False
ListBox1.RowSource = "REKAPCARI"
End Sub

• Masukkan Kode dibawah ini pada "LbTampilSemua" dan perhatikan gambar dibawah kode

Private Sub LbTampilSemua_Click()
Dim Ws As Worksheet: Set Ws = Sheets("DB")
If Ws.FilterMode Then
Ws.ShowAllData
End If
Call ListDB
TxtCariData = ""
End Sub

• Selesai..!! Uji Aplikasi dengan F5..!! Jika langkah yang anda ikuti sudah sesuai, Aplikasi Data akan jalan sebagaimana yang diharapkan.

Demikian posting Cari Data Dengan TextBox, Tampil di ListBox. Semoga bermanfaat..!!

Tombol Hapus UserForm VBA Excel

Seperti terlihat pada gambar diatas, perintah hapus data yang di pilih dari UserForm. sebelumnya harus diperhatikan bahwa untuk memasukkan data dari ListBox ke Textbox sudah pernah kita bahas pada posting Tampilkan Data Dari ListBox Ke TextBox Dengan Double Klik. Data yang dipilih dengan double klik dari ListBox akan tampil ke TextBox. Selanjutnya kita akan menggunakan perintah hapus untuk menghapus data.  Posting ini merupakan kelanjutannya dalam membuat sebuah aplikasi dengan perintah dari UserForm VBA Excel. 

Langkah-langkah membuat Tombol Hapus Dari UserForm :

• Buka Visual Basic File Aplikasi Data (Tombol Simpan VBA Excel)
• Tambahkan Commandbutton pada UserForm, ganti (Name) menjadi "CmdHapus". Selanjutnya Klik kanan pada CmdHpus pilih View Code. Perhatikan gambar dibawah

• Masukkan kode berikut ini untuk perintah hapus data

Private Sub CmdHapus_Click()
Dim Ws As Worksheet
Dim Kode As Variant
Dim Baris As Long
Dim C As Range
If TxtNoInduk.Text = "" Then
MsgBox "Double Klik Untuk Input Data Yang Akan Hapus..!!", 16, "Aplikasi Data"
Exit Sub: End If
If MsgBox("Anda Yakin Akan Menghapus Data : " & TxtNamaSiswa.Text, vbYesNo + 48, "Aplikasi Data") = vbYes Then
Set Ws = Worksheets("DB")
Kode = Me.TxtNoInduk.Value
With Ws.Range("B4:B1000")
Set C = .Find(Kode, LookAt:=xlWhole)
If Not C Is Nothing Then
Baris = C.Row
Ws.Cells(Baris, 1).Value = ""
Ws.Cells(Baris, 2).Value = ""
Ws.Cells(Baris, 3).Value = ""
Ws.Cells(Baris, 4).Value = ""
Ws.Cells(Baris, 5).Value = ""
C.EntireRow.Delete
End If
End With
MsgBox "Data Telah Di Hapus", 64, "Aplikasi Data"
Else
MsgBox "Hapus Data Telah Di Batalkan", , "Aplikasi Data"
End If
Call CmdBatal_Click
Call ListDB
End Sub

• Selesai..!! Jalankan Aplikasinya...!! bila sudah mengikuti dengan benar tombol hapus data akan berfungsi sebagaimana mestinya.

Demikian sedikit penjelasan dari saya yang belajar otodidak cara membuat aplikasi dengan menggunakan VBA Excel. Semoga menjadi referensi buat anda yang membutuhkan.

Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik

Perhatikan gambar di atas.!! begitulah maksud saya dengan judul posting ini. Double klik pada data yang ada di ListBox, Data pada ListBox akan di tampilkan pada TextBox. 

Ini merupakan penjelasan lanjutan..!! File latihan yang digunakan juga merupakan lanjutan. Jadi perlu diperhatikan posting terdahulu..

1. Tombol Simpan VBA Excel
2. UserForm Muncul Otomatis Saat Excel Dibuka
3. Range Dinamis
4. Tampilkan Data ListBox UserForm VBA Excel

Langkah-langkah menampilkan data dari ListBox ke TextBox dengan Double klik :

• Buka Visual Basic File Aplikasi Data yang pernah di jelaskan (Tombol Simpan VBA Excel)
• Klik kanan pada ListBox dan pilih View Code. Perhatikan gambar dibawah ini 

• Masukkan kode dibawah ini seperti yang terlihat pada gambar diatas 

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim daftar As Long
Dim Ws As Worksheet: Set Ws = Worksheets("DB")
With Me.ListBox1
daftar = .ListIndex
If daftar < 1 Or daftar = .ListCount Then
ListDB
Else
TxtNoInduk.Value = .List(daftar, 1)
TxtNamaSiswa.Value = .List(daftar, 2)
If .List(daftar, 3) = "Laki-Laki" Then OptLaki.Value = True: OptPerempuan.Value = False
If .List(daftar, 3) = "Perempuan" Then OptPerempuan.Value = True: OptLaki.Value = False
End If
TxtAlamat.Value = .List(daftar, 4)
End With
End Sub

• Selesai, Coba jalankan..!! 

Demikian sedikit penjelasan cara menampilkan data yang ada pada ListBox ke TextBox dengan Double Klik. Semoga bermanfaat bagi anda yang belajar otodidak.

Perintah Cari otomatis Melalui TextBox

Perintah cari data sangat diperlukan dalam sebuah aplikasi, perintah cari memudahkan user menemukan data yang di inginkan. Salah satu dari sekian banyak cara perintah cari data, mencari data melalui TextBox. Simak baik-baik dan ikuti langkah-langkah yang saya sajikan ini 

Langkah-langkah membuat perintah cari data :

• Buka file excel yang sudah pernah kita rancang sejak posting Tombol Simpan
• Tambahkan Label, ubah caption Label menjadi "LbCari" dan Input Icon dalam LbCari supaya memperindah Aplikasi . Lihat gambar di bawah

• Download Icon View jika tidak ada stock persedian
• Lihat gambar dibawah setelah icon ditambahkan pada label terlihat lebih profesional bukan ??!!

• Berikutnya klik kanan pada LbCari pilih View Code dan masukkan kode berikut ini 

Private Sub LbCari_Click()On Error Resume NextDim Ws As WorksheetDim Kode, Cari As VariantDim Baris As LongSet Ws = Worksheets("DB")Kode = Me.TxtNoInduk.TextWith Ws.Range("B3:B100")Set Cari = .Find(Kode, Lookat:=xlWhole)If Not Cari Is Nothing ThenBaris = Cari.RowWith UserForm1.TxtNoInduk.Value = Ws.Cells(Baris, 2).Value.TxtNamaSiswa.Value = Ws.Cells(Baris, 3).ValueIf Ws.Cells(Baris, 4).Value = "Laki-Laki" Then OptLaki.Value = True:If Ws.Cells(Baris, 4).Value = "Perempuan" Then OptPerempuan.Value = True:.TxtAlamat.Value = Ws.Cells(Baris, 5).ValueEnd WithEnd IfEnd WithEnd Sub

• Selesai..!! Jalankan Aplikasi dengan mencari data siswa. ketikkan No Induk Siswa dan klik Icon. Data akan di tampilkan dalam TextBox
• Jika ingin pencarian otomatis, setelah No Induk Siswa diketikkan pada TextBox anda tekan enter data akan muncul otomatis dalam TextBox lainnya, Buatlah kode berikut ini pada TxtNoInduk

Private Sub TxtNoInduk_AfterUpdate()
Call LbCari_Click
End Sub

Demikian sedikit pencerahan tentang pencarian data menggunakan TextBox, semoga bisa di amalkan menurut kepercayaan masing-masing.. hehehe..!!

Tampilkan Data di ListBox di UserForm VBA Excel

Pada posting terdahulu kita sudah membahas tentang cara membuat Tombol Simpan VBA Excel menggunakan UserForm VBA Excel. Pada kesempatan ini lanjutannya, jadi masih pake aplikasi yang terdahulu kita rancang, saya akan mencoba menguraikan cara membuat ListBox yang dapat menampilkan data yang telah disimpan. ikuti langkah-langkah yang saya sajikan ini selangkah demi selangkah. Anda pasti bisa membuat Aplikasi..!!

Perlu diperhatikan.!!!

1. Kita menggunakan File yang telah kita rancang pada posting Tombol Simpan VBA Excel
2. Ikuti Posting Cara Membuat Range Dinamis

Langkah-langkah membuat ListBox :

• Buka kembali Excel Yang telah kita rancang pada posting Tombol Simpan VBA Excel
• Buatlah sebuah range dinamis baca posting Cara Membuat Range Dinamis
• Buka  Visual Basic dan tambahkan ListBox pada UserForm Seperti pada gambar berikut ini 

• Untuk Properties biarkan saja jangan di ubah baik Label maupun ListBox. Setelah siap di rancang, klik kanan pada UserForm pilih View Code  dan Masukkan Kode dibawah ini, perhatikan gambar dibawah kode..!!

 Sub ListDB()
With UserForm1.ListBox1
.ColumnCount = 5
.ColumnHeads = False
.ColumnWidths = "25;55;100;70;90"
.RowSource = "ListDB"
.MultiSelect = fmMultiSelectSingle
.BoundColumn = 0
End With
End Sub
Private Sub UserForm_Initialize()
Call ListDB
End Sub

1. Selesai, Agar saat setelah Tombol Simpan di klik langsung terlihat datanya pada ListBox kita tambahkan kode pada CmdSimpan dengan code berikut sebelum End Sub

Call ListDB

Demikian yang bisa saya share pada kesempatan ini tentang cara membuat ListBox agar menampilkan data dari Sheet. Semoga bermanfaat terutama bagi yang belajar otodidak seperti saya.

Range Dinamis

Kesempatan ini saya akan berbagi cara membuat range dinamis. Disini saya rasa bagi kita yang belajar otodidak copy dan copas ajha. dan ikuti saya aplikasi yang sudah pernah kita buat pada posting Tombol Simpan VBA Excel. Pada File terdahulu kita sudah membuat tabel dan isi tabel yang kita input dengan menggunakan UserForm dengan fungsi Tombol Simpan. berikut cara membuat range dinamis yang akan kita gunakan untuk keperluan tertentu dalam rancangan UserForm kemudian hari, seperti penggunaan range dinamis pada ListBox untuk menampilkan data yang telah di simpan.

Langkah-langkah membuat range dinamis

• Buka File Excel yang telah kita buat pada posting Tombol Simpan VBA Excel Blok tabel yang akan digunakan sebagai range
• Klik kanan dan pilih Name Range seperti pada gambar dibawah ini 

• Selanjutkannya akan muncul kotak dialaog New Name dan Ubah Name jadi "ListDB" dan ubah Refers To  menjadi range dinamis berikut dan perhatikan gambar 

=OFFSET(DB!$A$2;0;0;COUNTA(DB!$E:$E);5)

• Ikuti saja, seperti pada gambar, untuk penjelasan detail saya sendiri tidak paham. Karena saya hanya mengunakan logika asal bisa berfungsi.

Demikian cara membuat range dinamis yang akan kita gunakan untuk ListBox yang akan saya jelaskan berikutnya. Semoga bermanfaat bagi kita yang belajar Otodidak..!!

UserForm Muncul Otomatis Ketika Excel Dibuka

Cara membuat UserForm Muncul Otomatis Saat Excel dibuka agar keliatan Full Aplikasi sangat mudah. Simak dan ikuti langkah-langkah berikut ini :

• Buka jendela Visual Basic 

• Perhatikan gambar di atas pada Jendela Project Explorer Klik 2 Kali  "ThisWorkbook" dan muncul jendela Code masukkan kode berikut 

Private Sub Workbook_Open()UserForm1.ShowEnd Sub

• Agar UserForm aktif otomatis dan workbook tersembunyi, tambahkan kode seperti di bawah ini 

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
Application.Visible = True
End Sub

Demikian penjelasan tentang cara membuat UserForm Muncul Otomatis Ketika Excel dibuka. Semoga bisa bermanfaat.

Tombol Simpan VBA Excel

Merancang Aplikasi Data untuk menjalankan fungsi penyimpanan data sangat mudah. disini saya mencoba untuk memberikan tutorial singkat menyangkut membuat aplikasi menggunakan VBA Excel denga fungsi menyimpan data dari UserForm ke Tabel Pada Sheet Excel. ikuti saja langkah-langkah mudah yang saya sajikan ini. 

Langkah-Langkah Membuat Tombol "SIMPAN" VBA Excel :

• Buka Excel, pada "Sheet1" rename jadi "DB", Save File dengan nama "Aplikasi Data" dan buatlah tabel seperti contoh gambar dibawah
• Pada Tab Developer ==> Visual Basic  Perhatikan Gambar dibawah

• Rancanglah Userform seperti gambar dibawah ini 

• Selanjut kita akan bermain di properties, ganti Caption "UserForm1" dengan "Aplikasi Data", ganti (name) Textboxnya : TxtNoInduk, TxtNamaSiswa, TxtAlamat. Untuk OptionButton ganti (name) dengan OptLaki dan OptPerempuan. Untuk CommandButton ganti (name) dengan CmdSimpan dan CmdBatal.
• Klik kanan pada Tombol Simpan dan View Code, masukkan kode untuk CmdSimpan berikut :

Private Sub CmdSimpan_Click()

Dim Baris As Long

Dim Ws As Worksheet

Dim path As String

Set Ws = Worksheets("DB")

'Temukan Baris

Baris = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'peringatan Bila data tidak diisi

If UserForm1.TxtNoInduk.Value = "" Or UserForm1.TxtNamaSiswa.Value = "" Then

MsgBox " Lengkapi Data Yang Kosong..!!!", 48, "Aplikasi Data"

Exit Sub: End If

'Peringatan bila jenis kelamin bleom di pilih

If UserForm1.OptLaki.Value = False And UserForm1.OptPerempuan.Value = False Then

MsgBox "Pilih Jenis Kelamin..!!", 48, "Aplikasi Data"

Exit Sub: End If

If WorksheetFunction.CountIf(Ws.Range("B:B"), TxtNoInduk.Text) = 1 Then

MsgBox "No. Pendaftar Ganda..!!!", 48, "Aplikasi Seleksi Siswa Baru.."

Exit Sub: End If

Ws.Cells(Baris, 1).Value = "=Row()-3"

Ws.Cells(Baris, 2).Value = Me.TxtNoInduk.Value

Ws.Cells(Baris, 3).Value = Me.TxtNamaSiswa.Value

If OptLaki.Value = True Then

Ws.Cells(Baris, 4).Value = "Laki-Laki"

End If

If OptPerempuan.Value = True Then

Ws.Cells(Baris, 4).Value = "Perempuan"

End If

Ws.Cells(Baris, 5).Value = Me.TxtAlamat.Value

MsgBox "Data telah Di Tambah", 64, "Aplikasi Data"

Call CmdBatal_Click

End Sub

• Untuk Tombol Reset yang berfungsi mereset form pengisian data. masukkan kode berikut ini 

Private Sub CmdBatal_Click()

With UserForm1

.TxtNoInduk.Value = ""

.TxtNamaSiswa.Value = ""

.OptLaki.Value = False

.OptPerempuan.Value = False

.TxtAlamat.Value = ""

End With

End Sub

• Coba jalankan fungsinya dengan menekan tombol F5. Jika anda mengikuti dengan benar maka Aplikasi Akan Jalan dengan baik.
• Download File Aplikasi Data

Demikian tutorial cara membuat Tombol Simpan Aplikasi di VBA Excel,

Website Belajar VBA Excel

Di jaman sekarang dengan kemudahan informasi online membuat banyak orang bisa belajar dengan mudah. Tidak harus untuk menguasai ilmu pengetahuan dengan menjalani pendidikan tertentu  untuk mengasah keahlian. "Membaca..!!" adalah hal penting untuk mengasah kemampuan pada diri kita dengan tekad dan kemauan yang kuat. Tentu belajar otodidak akan banyak terkuras waktu, dan berbagai pendapat orang yang negatif. Namun dari pendapat orang yang negatiflah kita harus terus maju untuk membuktikan kita juga bisa walau tanpa harus kuliah dengan harga mahal. 

("Ngak Punya  Modal.. Ke WC ajha Harus Bayar..!!" kata orang..) 

Terserah..!! Lanjutkan Ajha...!!

Banyak para programer yang mau berbagi informasi tentang cara membuat Aplikasi menggunakan VBA Excel, Terutama orang-orang Luar Negeri. Bj Habiebie ajha belajar tu di Luar.!! 

Post pada kesempatan ini saya mencoba untuk mengumpulkan beberapa link Website yang sangat luar biasa, yang menjelaskan tentang VBA Excel. "Mencoba..!!" adalah langkah kedua yang harus kita lakukan setelah membaca. Mencoba merakit aplikasi sendiri dengan berbagai tutorial yang mudah kita dapatkan di berbagai Web lokal ataupun Web dari Luar Negeri.

Berikut Website Yang Menjelaskan Tentang VBA Excel Secara Gratis :

• Web Indonesia

1. www.klinikexcel.com
2. www.rumusexcel.com
3. www.belajarexcel.info
4. www.belajaroffice.com
5. www.excel-id.com
6. http://tutorialmicrosoftexcel.net
7. http://rumuslengkap.com
8. http://belajar-vbe.blogspot.co.id
9. https://excelitumudah.wordpress.com

• Web English

1. www.homeandlearn.org
2. www.excel-easy.com
3. www.excel-vba.com
4. www.tutorialspoint.com
5. www.i-programmer.info
6. www.homeandlearn.co.uk
7. http://excelvbatutor.com
8. www.excelfunctions.net
9. http://www.globaliconnect.com/
10. http://www.teachexcel.com/
11. http://www.exceltrainingvideos.com/

Demikian Posting Website Belajar VBA Excel Gratis..!! Mungkin Bisa Jadi Referensi Buat Teman-Teman Yang Ingin Belajar Otodidak.

Kisi-Kisi Soal Ujian Nasional Tahun Pelajaran 2015/2016

RALAT Kisi-Kisi Ujian Nasional untuk Satuan Pendidikan Dasar dan Menengah dan Pendidikan Kesetaraan Tahun Pelajaran 2015/2016

Berikut disampaikan :

1. Peraturan Badan Standar Nasional Pendidikan Nomor 0035/P/BSNP/IX/2015 tentang Kisi-Kisi Soal Ujian Nasional untuk Satuan Pendidikan Dasar dan Menengah (Peraturan BSNP Kisi-kisi UN Dasar Menengah 2015-2016);
2. Kisi-Kisi Ujian Nasional Sekolah Menengah Pertama/Madrasah Tsanawiyah Tahun Pelajaran 2015/2016 (KISI-KISI UJIAN NASIONAL 2016 SMP);
3. Kisi-Kisi Ujian Nasional Sekolah Menengah Atas/Madrasah Aliyah/Sekolah Menengah Teologi Kristen/Sekolah Menengah Agama Katolik Tahun Pelajaran 2015/2016 (KISI-KISI UJIAN NASIONAL 2016 SMA);
4. Kisi-Kisi Ujian Nasional Sekolah Menengah Kejuruan/Madrasah Aliyah Kejuruan Tahun Pelajaran 2015/2016 (KISI-KISI UJIAN NASIONAL 2016 SMK);
5. Kisi-Kisi Ujian Nasional Pendidikan Kesetaraan Tahun Pelajaran 2015/2016 (Kisi Kisi Ujian Nasional Paket B & C).

Aplikasi Absensi Gratis

Aplikasi Absensi merupakan aplikasi yang kedua saya buat dengan menggunakan VBA Excel. Aplikasi yang fleksibel ini dapat digunakan untuk semua lembaga.

Filtur Aplikasi : 

1. Input Data

Merupakan menu untuk memasukkan database awal yang mendata NIP/No. Id Karyawan, Nama Karyawan, Tempat Dan Tanggal Lahir serta Jabatan.

2. Absensi

Menu untuk mencatat kehadiran.

3. Laporan

Merupakan menu untuk memfilter rekap absensi berdasarkan Tanggal, Bulan, Tahun dan mencetak laporan.

Bagi yang menginginkan aplikasi absensi ini dapat menghungi programernya melalui contack berikut :

PIN BB : 5AEC40B3

FB : Taheu Teubingong Keudroe

Phone : 0811-6822-023

Menampilkan Icon Pada Title Aplikasi/UserForm Vba Excel

Menampilkan Icon pada title UserForm akan membuat tampilan Aplikasi Vba Excel lebih profesional. Standarnya properties UserForm Vba Excel tidak ada fasilitas ini,  untuk menampilkan icon kita bisa menggunakan fungsi API sehingga icon akan terlihat seperti gambar yang ada di atas.

Ikuti langkah-langkah berikut  agar Icon Tilte Aplikasi Muncul :

• Buka Vba Excel ==>> Dowload File Aplikasi Icon Title
• Buat Sebuah UserForm
• Tambahkan Image Control dari Tollbox 
• Properties Image Controlnya, pilih bagian Picture dan masukkan gambar berformat *.ico yang akan menjadi Icon pada UserForm ====>> Download File Ico Sebagai Percobaan

• Setelah Icon masuk selanjutnya Klik Kanan UserForm dan Klik View Code

• Selanjutnya masukkan Code seperti gambar di bawah ini, Perhatikan Garis Merah dan Panah Merah sesuaikan dengan Name pada Properties Image , Garis Biru dan Panah Biru sesuaikan dengan Name UserForm yang anda buat.

Code Pada Option Explicit :

Option Explicit

Private Declare Function SendMessage Lib "user32" _

Alias "SendMessageA" (ByVal hWnd As Long, _

ByVal wMsg As Long, ByVal wParam As Long, _

LParam As Any) As Long

Private Declare Function FindWindow Lib "user32" _

Alias "FindWindowA" (ByVal lpClassName As String, _

ByVal lpWindowName As String) As Long

Private Const WM_SETICON = &H80

Private Const ICON_SMALL = 0&

Private Const ICON_BIG = 1&

Dim hWnd As Long

 Code Pada UserForm_Initialize()

Private Sub UserForm_Initialize()

Image8.Visible = False

hWnd = FindWindow(vbNullString, LoginUser.Caption)

Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal Image8.Picture.Handle)

Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal Image8.Picture.Handle)

End Sub

• Selanjutnya Jalankan Aplikasinya dengan menekan F5 pada UserForm. Jika  Langkah-langkah tersebut sudah di ikuti dengan benar, maka Aplikasi VBA Excel Anda akan ada tambahan Icon yang menampilkan Aplikasi lebih profesional.

Catatan Penting :

1. Gambar yang berformat *.ico tidak semua bisa di jadikan icon pada UserForm Excel, karena ada standar tertentu yang bisa digunakan, seperti menggunakan 16 Colors dan 256 Colors. Untuk yang lebih bagus bisa memakai yang 256 Colors dengan pixel 48 x 48. 
2. Jika gambar yang dimasukkan bukan berformat *.ico maka icon yang ditampilkan tidak akan sesuai dengan gambar yang telah ditambahkan pada properties imagenya.

Semoga bisa di prakterkkan ..!!

Tips Jadi Programer Otodidak (Khusus VBA Excel)

Tips ini saya tulis berdasarkan pengalaman yang saya jalani dalam 1 bulan ini dalam belajar membuat Aplikasi berbasis VBA Excel. Walaupun Aplikasi yang udah dibikin masih jauh dari orang-orang profesional yang menjalani pendidikan di bidangnya. yang penting Aplikasinya bisa jalan walau size filenya melambung tinggi.

Bagi yang baru belajar secara otodidak pasti tau dong sama  Oom Thomas. Thomas alpha edison, bukan orang yang berprestasi di sekolah, bahkan di masa kecil Thomas di keluarkan dari sekolahnya karena tidak bisa membaca dan sebagainya. saya yakin anda yang belajar Otodidak pada pinter-pinter membaca. Klo gtu... Otaknya lebih hebat dong dari Oom Thomas... hehehe.. hehe..!!

Saya berharap tulisan ini bisa menjadi   tambahan stimulus buat kita-kita yang belajar otodidak yang tidak kuliah di bidang Programer , ataupun memang kita yang tidak kuliah sama sekali. 

Simak baik-baik Tips dari saya ini :

• Ngopi dan Cemilan 

Buat ngisi perut lapar.

• Internet 

Cari informasi dengan cepat lewat media internet baik dengan modem atau wifi gratis. Terus download sebanyak-banyak aplikasi yang menarik. 

• Jebol 

Pakai aplikasi penjebol VBA Excel. "Banyak Yang Full Crack, Pacth". Selanjutnya gunakan aplikasi untuk membobol aplikasi orang lain. Intip tu code-codenya semua. Semakin banyak aplikasi yang di jebol makin banyak code yang di dapat.!! 

Rekomendasi dari saya pake software "Reset VBA Password" 100% Working..!! Pengalaman saya menjebol aplikasi para master.

• Nyontek dan Praktekkan

Hasil contekan  di Copy menurut keperluan dan Modifikasi sedikit dan Jalankan Aplikasinya

• Share Aplikasi

Kalau sudah jadi aplikasi selanjutnya share aplikasi tersebut di group facebook atau di website pribadi. Tunggu Kripik singkong rasa pedas (kritik dan saran) dari orang-orang yang mencoba  menyicipi aplikasi kita.

 Sekian dari saya.. semoga bermanfaat...!!!

Aplikasi Database Gen-03.1

Aplikasi Database Gen-03.1 merupakan aplikasi database untuk madrasah/sekolah yang mencatat biodata siswa lengkap. Aplikasi yang di bangun dengan program VBA Excel ini merupakan Generasi Ke-3 dari 2 generasi sebelumnya dan pengembangan pertama setelah Aplikasi Database Gen-03 yang telah di pakai di MTsS Muta'allimin dan MAS Muta'allimin.  

Filtur :

1. Menu Login untuk keamanan Database

2. Menu Utama untuk memilih pemakaian Aplikasi

3. Input Merupakan Input Data Siswa dengan disertai load Foto siswa

• Simpan Data Siswa
• Cari Berdasarkan NIS
• Edit Data Siswa
• Riset Form

4. Search Merupakan menu mencari data siswa berdasarkan nama, Lihat data lengkap yang

     telah di input aktif doble klik untuk edit data

5. Menu Print merupakan menu untuk mencetak absensi

6. Menu Setting merupakan menu melengkapi profil Madrasah/sekolah (Belum Aktif)

7. Menu Help merupakan menu petunjuk dan ketentuan penggunaan aplikasi

8. Menu Save and Close merupakan menu untuk keluar dari aplikasi dan secara otomatis menyimpan data dalam database.

Berikut merupakan Screenshot Database Gen-03.1 :

Form Login

Menu Utama

Input Data

View Data

Cetak Absensi Siswa

Aplikasi ini gratis, bagi yang ingin menggunakan silahkan isi kolom komentar yang disertai alamat emailnya. Semoga aplikasi ini bermanfaat..!! Amiin.!!

Username dan Passwodnya : "senbakusen"

.