Try Out MTK

• HOME
• PROFIL
• AGAMA
• KIRIM TUGAS
• MATERI KSM
• MATERI MTK
• BANK SOAL
• TRY OUT KSM
• TRY OUT-MI
• SOAL QUIZZ
• REKAP NILAI
• UJIAN ONLINE
• BSD MATEMATIKA
• APLIIKASI-WEB
• VISITOR
• KOTAK SARAN
• DONASI

Klik pada gambar agar file yang di inginkan terbuka.

QUIZZ

SOAL KSM

UJIAN ONLINE

TRY OUT

MATERI DASAR MTK

MATERI KSM

BANK SOAL

PHISIKOTES

• 

  https://onlinemtk.wordpress.com/materi-mtk/luas/

• 

  https://onlinemtk.wordpress.com/materi-mtk/volume/

• 

  https://onlinemtk.wordpress.com/materi-mtk/alat-ukur/

http://mubarikbir2.blogspot.com/

http://min-2-bna.blogspot.com/

*______*______*

Isi Buku Tamu Sebagai Reverensi kontrol Pengunjung/hari

_____(****)_____

BUKU TAMU

Nama(wajib)

Gmail(wajib)

Pesan(wajib)

mubarik.bitai@gmail.com

mubarikbir@gmail.com

WA. 085361562338

SuntingHome

http://mubarikbir2.blogspot.com/

Membuat Data Base

Cara Membuat Data Base Sederhana Dan Tabel Pencarian Data Microsoft Excel

 Cara Membuat Data Base Sederhana Dan Tabel Pencarian Data Microsoft Excel

Nah sekarang kita belajar membuat Data base secara sederhana, kemudian kita ingin mengolah database yang  berguna untuk mengetahui data atau informasi yang kita inginkan dengan maksud dengan sekali mengetikkan suatu data masukan maka data yang muncul adalah sebuah Informasi tentang kondisi dari data tersebut.

Kita ambil contoh tentang Data Base Hasil Ujian di sekolah disuatu kelas, coba perhatikan contoh Tabel.1 dibawah ini, ada sebuah data yang berisi Data Siswa dengan Nilai hasil Ujiannya. Sekarang coba buka Worksheet Excel Sheet1 dan ikuti contoh seperti Tabel.1 tersebut jangan lupa Sheet1 kita ganti nama menjadi DB (maksudnya Database).

Cell	A	B	C	D	E	F
1	NIS	Nama	Jenis Kelamin	Bulan	Ujian Ke	Nilai Ujian
2	A10001	Andi	L	Januari	1	8.5
3	A10002	Omiyan	L	Januari	1	7.6
4	A10003	Agung	L	Januari	1	7.7
5	A10004	Yanti	P	Januari	1	6.3
6	A10005	Lisa	P	Januari	1	9.2
7	A10001	Andi	L	Januari	2	8.0
8	A10002	Omiyan	L	Januari	2	7.2
9	A10003	Agung	L	Januari	2	9.3
10	A10004	Yanti	P	Januari	2	5.8
11	A10005	Lisa	P	Januari	2	9.5

Tabel.1 (Sheet1) atau DB

Jika sudah selesai, disini kita ingin membuat suatu cara bisa mengetahui berapa nilai ujian anak yang dimaksud dengan cukup mengetikkan Nomor Induk Siswa (NIS) tersebut, sekarang buka Worksheet Excel Sheet2, dan buatlah sebuah Table seperti Table.2 dibawah ini  :

Cell	A	B	C	D	E	F
1	NIS
2	Nama
3	Jenis Kelamin
4
5	Bulan	Ujian Ke		Jumlah	Nilai Rata-Rata	Keterangan
6		1	2
7	Januari
8

Tabel.2 (Sheet2)

Oke kalau sudah siap semua, coba siapkan Teh manis hangat plus Sepotong roti atau makanan ringan tapi ingat jangan merokok ya hehehehhe……

Coba ikuti langkah-langkah sebagai berikut :

1. Perhatikan Tabel.2, di Cell B2 tepat disamping Nama, coba ketikkan rumus dibawah ini :

=VLOOKUP(B1,DB!$A$2:$B$11,2,FALSE)

Artinya kita ingin melihat sebuah nilai yang sama dari Cell B1 yaitu NIS dengan muncul sebuah nama di Cell B2 yaitu Nama (dalam hal ini nama dari NIS dimaksud) dengan melihat data di DB diantara Cell A1 sampai dengan Cell B11, adapun sebuah muncul angka 2 maksudnya kolom yang menjadi patokan pencarian data atau mengadu data atau mencari persamaan hanya 2 kolom sedangkan False adalah sebuah Nilai dari range yang kita lihat benar atau salah.

2. Perhatikan Tabel.2, di Cell B3 tepat disamping Jenis Kelamin, coba ketikkan rumus dibawah ini :

=VLOOKUP(B1,DB!$A$2:$C$11,3,FALSE)

Artinya kita ingin melihat sebuah nilai yang sama dari Cell B1 yaitu NIS dengan muncul sebuah nama (kata) di Cell B3 yaitu Jenis Kelamin (dalam hal ini Jenis Kelamin dari NIS dimaksud) dengan melihat data di DB diantara Cell A1 sampai dengan Cell C11, adapun sebuah muncul angka 3 maksudnya kolom yang menjadi patokan pencarian data atau mengadu data atau mencari persamaan hanya 3 kolom sedangkan False adalah sebuah Nilai dari range yang kita lihat benar atau salah.

Ok Cukup dulu untuk pembuktian coba sekarang ketikkan salah satu NIS di Sheet 2 Cell B2, misalkan A10001 maka hasilnya akan muncul :

Cell	A	B
1	NIS	A10001
2	Nama	Andi
3	Jenis Kelamin	L

Jika muncul seperti diatas berarti rumusnya benar sekali, sekarang kita lanjut tapi ingat Teh manis hangatnya diminum dulu ntar keburu dingin lagi hehehehe.

Masih di Sheet2, pindahkan kursor ke Cell B7, sekarang kita ingin mencari Berapa Sih Nilai Ujian Siwa Tersebut Pada Ujian 1, uuntuk itu coba masukkan rumus sebagai berikut :

=SUMIFS(DB!$F$2:$F$11,DB!$A$2:$A$11,Sheet2!$B$1,DB!$D$2:$D$11,
Sheet2!$A7,DB!$E$2:$E$11,Sheet2!B$6)

Artinya kita menggunakan rumus SUMIFS karena kita akan mengadu dataatau mencari persamaan lebih dari satu data, disini data yang akan kita adu atau cari persamaannya adalah :

1.            Nilai ujian (F2:F11) dan NIS (A2:A11) yang ada di DB dengan data NIS di Sheet2 (B1).

2.            Nama Bulan (D2:D11) di DB dengan nama Bulan di Sheet 2 (A7).

3.            Ujian Ke (E2:E11) di DB dengan angka dibawah baris Ujian ke di Sheet 2 (B6).

4.            Tanda $ apabila berada sebelum dan sesudah Cell berarti mengunci data tersebut baik dari sisi kolom maupun baris.

5.            Tanda $ Cell berarti kita mengunci data tersebut dari sisi kolom.

6.            Tanda $ Cell berarti kita mengunci data tersebut dari sisi baris.

Jika sudah seperti pembuktian pertama coba ketikkan  salah satu NIS di Sheet 2 Cell B2, misalkan A10001 maka hasilnya akan muncul :

Cell	A	B	C	D	E	F
1	NIS	A10001
2	Nama	Andi
3	Jenis Kelamin	L
4
5	Bulan	Ujian Ke		Jumlah	Nilai Rata-Rata	Keterangan
6		1	2
7	Januari	8.5
8

Untuk melihat Nilai hasil Ujian ke 2 (Cell C7) cukup mencopy rumus sebelumnya. Kemudian untuk mencari total dari hasil 2 kali ujian (Cell D7) saya yakin semua sudah pada tahu cukup ketikkan rumus :

=SUM(B7:C7)

Untuk mencari Nilai Rata-Rata (Cell E7) saya yakin banget semua sudah pada tahu tinggak ketik rumus :

=D7/2

Untuk membuat keterangan bisa manual dengan memperhatikan beberapa kriteria misalkan jika nilainya dibawah 7 maka dianggap Kurang kalau diatas 7 berarti dan seterusnya. Nah disini kita bisa menggunakan Vlookup atau rumus IF, disini saya menggunakan rumus IF, coba masukkan rumus sebagai berikut :

=IF(E7<7,”Kurang”,IF(E7<8,”Cukup”,IF(E7<9,”Baik”,IF(E7=>9,”Baik Sekali”))))

Artinya Jika nilai Rata-rata siswa tersebut kurang dari 7 maka keterangan yang akan muncul adalah Kurang, jika lebih dari 7 tapi kurang dari 8 adalah Cukup, jika lebih dari 8 tapi kurang dari 9 adalah Baik, jika sama dengan dan atau lebih dari 9 maka hasilnya adalah Baik Sekali.

Jika benar maka kita sudah membuat suatu Data base yang sangat sederhana karena dengan sekali memasukkan data NIS maka akan dengan segera muncul Data atau informasi yang akan kita maksud.

Data Base diatas akan masih bisa dimodifikasi sedemikian rupa sesuai dengan kebutuhan kita anggaplah latihan kali ini adalah kita mencari Nilai Ujian Per NIS Siswa dan dilain kesempatan kita akan mencari data Nilai siswa tersebut dengan melihat variabel lainnya.

Mohon maaf bila saya menggunakan kata-kata yang kurang berkenan maklum namanya juga Blogger sehingga kata yang saya pake sesuai selera saya dan apabila ada cara lain yang lebih simple ayoooo kita Sharing berbagi Ilmu akan makin menambah wawasan kita semua.

MODEL 2

Dari tampilan aplikasi diatas sangat sederhana sekali hanya dengan memasukan NIS maka akan terlihat nama dan profil siswa secara otomatis dan ini terjadi karena data yang diambil adalah database siswa yang telah dimasukan tersebut.

Bagaimana cara membuat Aplikasi Data dan Profil Siswa ini ?

Aplikasi ini terdiri dari 3 buah sheet yang pertama adalah Sheet Aplikasi, yang kedua adalah Sheet DB, dan yang ketiga adalah Sheet DATA. Untuk membuatnya silakan ikuti langkah-langkah berikut:

1.            Buatlah desain pada Sheet 1 seperti gambar berikut ini kemudian beri nama pada sheet1 dengan cara merename menjadi "Aplikasi"

2.            Langkah berikutnya silakan klik pada Sheet 2 dan buat tabel database siswa yang terdiri dari NIS, Nama, Jenis Kelamin, Tempat Lahir, Tanggal Lahir, Nama Orangtua, dan Alamat. Kira-kira seperti terlihat pada gambar berikut ini kemudian rename nama sheet menjadi "DB" untuk mengganti nama sheet silakan lihat pada artikel Cara mengganti nama sheet.

3.            Pada sheet 3 buatlah data sekolah untuk memasukan nama sekolah kira-kira seperti gambar berikut

4.            Langkah berikutnya adalah membuat 3 buah tombol dengan menggunakan Shapes yang terdiri dari tombol Aplikasi, tombol, Database, dan tombol Data Utama. Ketiga tombol tersebut dibuatkan link yang mengarah kepada masing-masing sheet. Untuk cara membuat link di Excel silakan lihat di artikel saya yang lain.

5.            Langkah berikutnya adalah membuat rumus pada sheet aplikasi agar nama siswa otomatis muncul sesuai dengan database siswa yang dibuat pada cell E5 dengan menggunakan formula =IF(ISBLANK(E4),"",VLOOKUP(E4,DB!$A$6:$B$310,2,FALSE))

6.            Langkah ke-6 adalah membuat rumus untuk menampilkan profil siswa secara otomatis ketika memasukan NIS. Untuk membuat hal tersbut tulislah tumus di cell E6 dengan formula =IF(ISBLANK(E4),"",E5&" adalah siswa "&DATA!A3&" tempat lahir di "&IF(ISBLANK(E4),"",VLOOKUP(E4,DB!$A$6:$G$310,4,FALSE)&" tanggal "&IF(ISBLANK(E4),"",VLOOKUP(E4,DB!$A$6:$G$310,5,FALSE)&", jenis kelamin "&IF(ISBLANK(E4),"",VLOOKUP(E4,DB!$A$6:$G$310,3,FALSE)&", anak dari "&IF(ISBLANK(E4),"",VLOOKUP(E4,DB!$A$6:$G$310,6,FALSE)&" bertempat tinggal di "&IF(ISBLANK(E4),"",VLOOKUP(E4,DB!$A$6:$G$310,7,FALSE))))))) 

7.            Langkah terakhir simpailah hasil pekerjaan Anda jangan sampai keburu mati lampu, nanti harus diulang lagi...

Oke, cukup sekian bagaimana cara membuat aplikasi data dan profil siswa menggunakan Excel tanpa Macro. Semoga Anda bisa dan mengerti apa yang saya uraikan diatas. Atau jika Anda tidak paham dengan tutorial diatas silakan download File Excel dari aplikasi data siswa yang sudah saya buat ini

DOWNLOAD APLIKASI

atau bisa download pada link ini 
APLIKASI_DATA_PROFIL_SISWA_V.02.xls

Jika Anda bermasalah, silakan koment di bawah yah... semoga bermanfaat. Jangan lupa silakan lihat juga aplikasi Kasir Model Excel dan Aplikasi Data Base Siswa 



MODEL VBA

Input data siswa yang masih menggunakan Excel sebagai pengolahan database siswa memang masih banyak sekali digunakan. Aplikasi yang pernah saya buat tentang Aplikasi data dan Profil Siswa Berbasis Excel memang belum sempurna hanya sebatas menggunakan rumus-rumus excel standar yang biasa dan sering digunakan sehari-hari.

Kali ini saya membuat sebuah Form Input Data Siswa Berbasis Excel Versi Update Maret 2015 dengan VBA yang seblumnya masih menggunakan cara lama. Untuk melihat screeshoot silakan perhatikan gambar dibawah ini

Form input data siswa ini saya buat secara lengkap dari mulai NIS, NISN, Nama siswa, Tempat lahir, tanggal lahir, jenis kelamin, alamat, No. HP, No, SKHUN, No. Ijasah, Nama Ibu kandung, tahun lahir ibu kandung, pekerjaan ibu, pendidikan ibu, nama ayah, tahun lahir ayah, pekerjaan ayah, pendidikan ayah, penghasilan orang tua, alamat orang tua.

Field-fiel ini adalah sesuai dengan data di Aplikasi Dapodikmen untuk SMA. Form input data siswa ini juga dilengkapi dengan tombol "SIMPAN" untuk menyimpan dokumen data siswa yang telah di entri ke dalam database.

Bagaimana cara membuat Form Input Data Siswa Berbasis Excel ini?

Untuk membuatnya cukup sederhana silakan buat sebuah form seperti tampilakn diatas. Untuk yang belum mengetahui caranya silakan ikuti langkah berikut

STEP 1
Buat sebuah dokumen baru kemudian aktifkan VBA editor dengan menekan kombinasi keyboar ALT+F11 kemudian cari menu Insert dan klik UserForm

STEP 2
Untuk langkah kedua setelah menyisipkan sebuah form baru maka kita edit ukuran form nya sesuai dengan kebutuhan kemudian buat sebuah label dengan menggunakan Toolbox dan letakkan pada Form kemudian ganti Caption menjadi NIS

STEP 3
Setelah label NIS terbuat silakan buat label berikutnya sesuai dengan Field diatas dan caranya sama dengan tahap 2 hingga menjadi seperi tampilan berikut. Jangan lupa ganti properties Caption sesuai dengan fieldnya

STEP 4
Untuk langkah ke-4 Anda harus membuat beberapa TextBox sebagai syarat untuk pengisian data. Bagi yang belum tahu cara membuat textbox caranya adalah klik TextBox pada Toolbox kemudan drag ke UserForm misalnya untuk membuat textbox nis seperti berikut jangan lupa ganti properties Name menjadi "TXTNis" untuk mendefinisikan supaya tidak lupa dalam membuat kode program VBA nya.

Dari langkah ke-4 tersebut silakan  buat beberapa textbox Anda bisa juga menggunakan teknik copy paste. dan silakan ganti propertis name menjadi seperti berikut ini.

Textbox1 ganti dengan    TXTNis
Textbox2 ganti dengan    TXTNama
Textbox3 ganti dengan    TXTTempatLahir
Textbox4 ganti dengan    TXTTglLahir
Textbox5 ganti dengan    TXTALamat
Textbox6 ganti dengan    TXTNISN
Textbox7 ganti dengan    TXTHP
Textbox8 ganti dengan    TXTSKHUN
Textbox9 ganti dengan    TXTIjasah
Textbox10 ganti dengan    TXTNamaIbu
Textbox11 ganti dengan    TXTThnLahirIbu
Textbox12 ganti dengan    TXTPekIbu
Textbox13 ganti dengan    TXTNamaAyah
Textbox14 ganti dengan    TXTThnLahirAyah
Textbox15 ganti dengan    TXTPekAyah
Textbox16 ganti dengan    TXTPengAyah
Textbox17 ganti dengan    TXTAlamatOrtu

Untuk ComboBox silakan buat dengan menggunakan Toolbox dan ganti properties name nya
ComboBox1 ganti dengan CBO CBOKelamin
ComboBox2 ganti dengan CBO CBOPendidikanIbu
ComboBox3 ganti dengan CBO CBOPendidikanAyah

Hasil akhir kira-kira seperti ini

STEP 5
Untuk tahap ke-5 silakan buat 3 buah tombol dengan menggunakan CommandButton seperti diatas yang pertama tombol "Simpan" ke-2 tombol "Cari Data Siswa" dan yang ke-3 "Close" untuk masing-masing tombol silakan ganti properties name menjadi "TBLSimpan", "TBLCariData", CMDClose"

Untuk yang belum tahu cara membuat CommandButton caranya hampir sama dengan membuat texbox tetapi disini toolbox yang dipake adalah CommandButton. Jadi kalo untuk membuat tiga buah tombol maka kita harus membuat 3 buah CommandButton.

STEP 6
Langkah berikutnya adalah langkah membuat script VBA. dan yang pertama silakan View Code kemudian tuliskan script berikut untuk membuat initial pada UserForm

Private Sub UserForm_Initialize()
With CBOKelamin
    .AddItem "Laki-Laki"
    .AddItem "Perempuan"
End With
With CBOPendidikanIbu
    .AddItem "Tidak Sekolah"
    .AddItem "SD"
    .AddItem "SMP"
    .AddItem "SMA"
    .AddItem "D1"
    .AddItem "D2"
    .AddItem "D3"
    .AddItem "S1"
    .AddItem "S2"
    .AddItem "S3"
End With
With CBOPendidikanAyah
    .AddItem "Tidak Sekolah"
    .AddItem "SD"
    .AddItem "SMP"
    .AddItem "SMA"
    .AddItem "D1"
    .AddItem "D2"
    .AddItem "D3"
    .AddItem "S1"
    .AddItem "S2"
    .AddItem "S3"
End With
End Sub

STEP 7
Tahap ke-7 kita akan membuat sebuah script VBA untuk simpan data siswa silakan ketikkan script VBA nya di bawah ini

Private Sub TBLSimpan_Click()
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("databasesiswa")

'menemukan baris kosong pada database siswa
iRow = Ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check untuk sebuah nis
If Trim(Me.TXTNis.Value) = "" Then
  Me.TXTNis.SetFocus
  MsgBox "Masukan NIS terlebih dahulu Kang.."
  Exit Sub
End If


'copy data ke database siswa
Ws.Cells(iRow, 1).Value = Range("X1").Value
Ws.Cells(iRow, 2).Value = Me.TXTNis.Value
Ws.Cells(iRow, 3).Value = Me.TXTNama.Value
Ws.Cells(iRow, 4).Value = Me.TXTTempatLahir.Value
Ws.Cells(iRow, 5).Value = Me.TXTTglLahir.Value
Ws.Cells(iRow, 6).Value = Me.CBOKelamin.Value
Ws.Cells(iRow, 7).Value = Me.TXTAlamat.Value
Ws.Cells(iRow, 8).Value = Me.TXTNISN.Value
Ws.Cells(iRow, 9).Value = Me.TXTHP.Value
Ws.Cells(iRow, 10).Value = Me.TXTSKHUN.Value
Ws.Cells(iRow, 11).Value = Me.TXTIjasah.Value
Ws.Cells(iRow, 12).Value = Me.TXTNamaIbu.Value
Ws.Cells(iRow, 13).Value = Me.TXTThnLahirIbu.Value
Ws.Cells(iRow, 14).Value = Me.TXTPekIbu.Value
Ws.Cells(iRow, 15).Value = Me.CBOPendidikanIbu.Value
Ws.Cells(iRow, 16).Value = Me.TXTNamaAyah.Value
Ws.Cells(iRow, 17).Value = Me.TXTThnAyah.Value
Ws.Cells(iRow, 18).Value = Me.TXTPekAyah.Value
Ws.Cells(iRow, 19).Value = Me.CBOPendidikanAyah.Value
Ws.Cells(iRow, 20).Value = Me.TXTPengAyah.Value
Ws.Cells(iRow, 21).Value = Me.TXTAlamat.Value

'clear data siswa
Me.TXTNis.Value = ""
Me.TXTNama.Value = ""
Me.TXTTempatLahir.Value = ""
Me.TXTTglLahir.Value = ""
Me.CBOKelamin.Value = ""
Me.TXTAlamat.Value = ""
Me.TXTNISN.Value = ""
Me.TXTHP.Value = ""
Me.TXTSKHUN.Value = ""
Me.TXTIjasah.Value = ""
Me.TXTNamaIbu.Value = ""
Me.TXTThnLahirIbu.Value = ""
Me.TXTPekIbu.Value = ""
Me.CBOPendidikanIbu.Value = ""
Me.TXTNamaAyah.Value = ""
Me.TXTThnAyah.Value = ""
Me.TXTPekAyah.Value = ""
Me.CBOPendidikanAyah.Value = ""
Me.TXTPengAyah.Value = ""
Me.TXTAlamatOrtu.Value = ""
Me.TXTNis.SetFocus

'Simpan data
Application.ActiveWorkbook.Save
End Sub

STEP 8
Membuat perintah CLOSE silakan ketikkan script nya dibawah ini dengan cara double klik tombol CLOSE

Private Sub CMDClose_Click()
Unload Me
End Sub

STEP 9
Membuat sebuah validasi data untuk textbox yang berisi data angka agar data yang diinput hanya berupa data angka buka hurfu. Apabila data yang dimasukan pada textbox bukan berupa data angka maka secara otomatis akan menampilkan pesan error dan ini dia script nya

Private Sub HanyaAngka()
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Maaf, Masukan data angka saja"
                .Value = vbNullString
            End If
        End With
    End If
End Sub

STEP 10
Tahap 10 Anda bisa menggunakan variasi apabila ketika textbox aktif atau dipilih maka warna akan berubah. Ini dia script nya. Script ini juga akan menghasilkan perintah error yang merupakan pemanggilan prosedur dari tahap 9 diatas.

Private Sub TXTNISN_Change()
HanyaAngka
End Sub

Private Sub TXTHP_Change()
HanyaAngka
End Sub

Private Sub txtnis_Enter()
TXTNis.BackColor = &H80000005
End Sub
Private Sub txtnis_Exit(ByVal Cancel As MSForms.ReturnBoolean)
HanyaAngka
TXTNis.BackColor = &HE0E0E0
End Sub

Private Sub txtnama_enter()
TXTNama.BackColor = &H80000005
End Sub
Private Sub txtnama_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNama.BackColor = &HE0E0E0
End Sub

Private Sub txttempatlahir_enter()
TXTTempatLahir.BackColor = &H80000005
End Sub
Private Sub txttempatlahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTTempatLahir.BackColor = &HE0E0E0
End Sub

Private Sub txttgllahir_enter()
TXTTglLahir.BackColor = &H80000005
End Sub
Private Sub txttgllahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTTglLahir.BackColor = &HE0E0E0
End Sub

Private Sub txtalamat_Enter()
TXTAlamat.BackColor = &H80000005
End Sub
Private Sub txtalamat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTAlamat.BackColor = &HE0E0E0
End Sub

Private Sub cbokelamin_Enter()
CBOKelamin.BackColor = &H80000005
End Sub
Private Sub cbokelamin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOKelamin.BackColor = &HE0E0E0
End Sub

Private Sub txtnisn_Enter()
TXTNISN.BackColor = &H80000005
End Sub
Private Sub txtnisn_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNISN.BackColor = &HE0E0E0
End Sub

Private Sub txthp_Enter()
TXTHP.BackColor = &H80000005
End Sub
Private Sub txthp_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTHP.BackColor = &HE0E0E0
End Sub

Private Sub txtskhun_Enter()
TXTSKHUN.BackColor = &H80000005
End Sub
Private Sub txtskhun_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTSKHUN.BackColor = &HE0E0E0
End Sub

Private Sub txtijasah_Enter()
TXTIjasah.BackColor = &H80000005
End Sub
Private Sub txtijasah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTIjasah.BackColor = &HE0E0E0
End Sub

Private Sub txtnamaibu_Enter()
TXTNamaIbu.BackColor = &H80000005
End Sub
Private Sub txtnamaibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNamaIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtthnlahiribu_Enter()
TXTThnLahirIbu.BackColor = &H80000005
End Sub
Private Sub txtthnlahiribu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTThnLahirIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtpekibu_Enter()
TXTPekIbu.BackColor = &H80000005
End Sub
Private Sub txtpekibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPekIbu.BackColor = &HE0E0E0
End Sub

Private Sub cbopendidikanibu_Enter()
CBOPendidikanIbu.BackColor = &H80000005
End Sub
Private Sub cbopendidikanibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOPendidikanIbu.BackColor = &HE0E0E0
End Sub

Private Sub txtnamaayah_Enter()
TXTNamaAyah.BackColor = &H80000005
End Sub
Private Sub txtnamaayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTNamaAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtthnayah_Enter()
TXTThnAyah.BackColor = &H80000005
End Sub
Private Sub txtthnayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTThnAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtpekayah_Enter()
TXTPekAyah.BackColor = &H80000005
End Sub
Private Sub txtpekayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPekAyah.BackColor = &HE0E0E0
End Sub

Private Sub cbopendidikanayah_Enter()
CBOPendidikanAyah.BackColor = &H80000005
End Sub
Private Sub cbopendidikanayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CBOPendidikanAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtpengayah_Enter()
TXTPengAyah.BackColor = &H80000005
End Sub
Private Sub txtpengayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTPengAyah.BackColor = &HE0E0E0
End Sub

Private Sub txtalamatortu_Enter()
TXTAlamatOrtu.BackColor = &H80000005
End Sub
Private Sub txtalamatortu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXTAlamatOrtu.BackColor = &HE0E0E0
End Sub

Biasanya untuk melindungi scribe pada vba exel diperlukan password tapi kadang kita lupa pada password yang kita tulis di vba exel dan untuk menampilkan  jendela visual basic editor bisa dibuka dengan menekan kombinasi tobol Alt+F11, atau bisa juga dibuka melalui menu developper. Sekarang bagaimana jika jendela visual basic editor tersebut terkunci atau kita lupa passwordnya atau kita ingin membuka password VBE project orang lain yang kita download dari internet ?. Sekarang sudah ada toolsnya, aka tetapi tools ini hanya bisa digunakan untuk membuka password VBA/VBE pada microsoft excel 2003, jadi jika kita ingin membuka password VBA/VBE pada microsoft excel 2007 keatas maka kita wajib menkonversi kedalam excel 2003 dengan tombol Save As dan pilih Excel 97 - 2003 workbook

Tutorial ini dibuat berdasarkan pengalaman nyata. Penulis ceritanya dulu pernah buat program dengan macro VBA (Visual Basic Application) Excel menggunakan Excel 2010 dengan extensian Microsoft excel Macro-Enabled Worksheet ( xlms) . Program selesai dibuat terus VBA Excel nya penulis berikan proteksi dengan password.

Beberapa tahun kemudian penulis ingin buka dan edit program macro VBA nya. Sial bener deh lupa tuh password nya

Daripada capek tulis ulang program lagi penulis usaha deh coba cari tahu cara bukanya. Eh, ada ketemu panduannya. Ane test dan ternyata berhasil! Mau tahu caranya? Silahkan baca tutorial nya berikut ini.

Tahapannya Sebagai Berikut :

A. Tahapan Awal

1.     Jangan lupa backup file Excel yang kita lupa password VBA nya.

2.    Password VBA yang bisa dibuka khusus untuk document Excel versi 2003 atau sebelumnya (extention .XLS).

3.    Konversi Excel Ke Excel 97-2003 workbook dengan cara di Save As

4.    Download Tool File Editor di Sini atau  kita download dan install program Frhed dari: http://frhed.sourceforge.net/en/ 

5.    Buat File Dokument Excel Baru Lalu kita berikan proteksi password macro VBA nya. Sembarang password yang sederhana saja contoh: 1234.  dengan Cara Menu>Developer>Visual Basic > Vew > Project Explorer > Arahkan Kursor Pada Vba Project   > Tools > Vba Project Properties > Protection > Centang  Kotak dialog Look Project For View dan Isikan Pasworrd beserta konfirmasinya

6.    Selesai. Simpan file dan tutup program Microsoft Excel.

B. Tahapan Pelaksanaan

1.     Teknik dasarnya adalah kita akan copy password dari file Excel (yang baru kita buat dan kita tahu password nya) ke file Excel yang kita lupa password VBA nya.

2.    Password-nya tersimpan pada tiga text kunci: CMG, DPB dan GC. Jadi secara manual kita akan lakukan pencarian Find (Ctrl+F), Copy (Ctrl+C) dan Paste (Ctrl+V) terhadap tiga text kunci tersebut.

3.    Buka kedua file Excel dengan Frhed. Pertama Excel yang baru kita buat (yang kita tahu password nya). Dan satu lagi Excel yang kita lupa password VBA nya.

·         Aktifkan Frhead Excel yang baru (yang kita tahu password nya). 

·         Cari text CMG=  Lalu copy text yang berada diantara tanda petik.

·         Aktifkan Frhead Excel yang kita lupa password VBA nya.

·         Cari text CMG=Lalu paste pada posisi setelah tanda petik. Waktu melakukan paste penulis beri tanda centang pada pilihan Paste coded binary value as text.

·         Ulangi kembali step diatas untuk dua text kunci berikutnya DPB= dan GC=

·         Selesai. Simpan file nya. Dan silahkan coba buka password VBA nya.

Buka Kembali File yang sudah dibuka VbaProjectnya dan Lihat di Vba nya yang masih terpasword dengan Pasword baru , buka dengan Password yang sudah kita ganti dari File baru tadi ( Contoh : 1234 ) dan terbuka dech , selanjutnya terserah di apakan lagi Vba nya
Sekian tutorial gimana cara buka password Excel VBA ini. Semoga tutorial singkat ini bisa bermanfaat bagi pembaca sekalian.

CARA BUKA PASSWORD EXCEL Sheet Document ( Lupa pasword ) 

Seringkali Kita Jumpai Sheet Pada File Excel File Milik Orang yang Terproteksi dengan password atau barangkali File Kita Sendiri yang karena alasan tertentu Kita Proteksi pada Sheetnya dan Begitu kita butuh membuka Sheet tersebut ternyata Kita Lupa password , Nah gimana Caranya membukanya
cara membuka protect sheets atau password pada setiap sheets excel, karena sering ditemukan file excel yang diprotect oleh pembuatnya. Pada posting ini saya coba sharekan trik atau cara mudah untuk membuka protect sheets excel tanpa menggunakan password khusus pada microsoft excel 2007 (mungkin juga bisa digunakan pada ms excel 2010)..

Langkah Langkah yang diambil sebagai berikut :

1.     Klik kanan pada nama sheet file yang ada dibagian bawah (seperti sheet1, sheet2, dan sheet3) lalu pilih “VIEW CODE” atau tekan tombol kombinasi “Alt + F11″ maka akan terbuka jendela Microsoft visual basic kemudian pilih insert MODULE. Maka akan terlihat gambar seperti di bawah ini

2.    masukan kode di bawah ini

Sub InternalPasswords()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

Bagi Anda yang membutuhkan Script tersebut silahkan Klik Disini
Ingat, kode script di atas harus dicopy seluruhnya dari kata Sub InternalPasswords()  sampai dengan End Sub.

Sehingga pada layar akan tampak seperti ini

3.  klik TOOLS (yang ada di atas) kemudian pilih MACROS. Maka akan tampak layar seperti ini

4. Selanjutnya Anda klik RUN dan tunggu beberapa saat sampai proses selesai.

Setelah itu Anda keluarkan layar Microsoft visual basic dengan mengklik tanda close (x) yang ada di pojok kanan atas atau dengan mengklik FILE (dipojok kiri) lalu pilih Close and Return to Microsoft Excel , insya Allah protect sheet sudah hilang.
Untuk membuka protect sheet pada sheet-sheet yang lain lakukan dengan langkah yang sama.
Bagi Anda yang akan mencoba saya sarankan SAVE AS dulu file excel yang akan diedit dan gantikan dengan nama file yang lain. Untuk yang sudah mencobanya ditunggu komentar dan sarannya di bagian rubrik komentar
Apabila file EXCEL tersebut berbentuk MACRO ENABLE WORKBOOK, save as terlebih dahulu file tersebut ke tipe EXCEL WORKBOOK

MEMBUAT FORM VBA SEDERHANA PADA MS. EXCEL

tutorialmicrosoftexcel.net -Pada Tutorial Microsoft Excel yang lalu kita telah membahas beberapa point mengenai bagaimana cara memulai VBA Excel Macro. Kali ini kita akan praktik bagaimana Form VBA Sederhana Pada Ms. Excel dan menyimpan data pada Ms.Excel menggunakan form tersebut. Membuat form dengan VBA Excel dimaksudkan agar aplikasi pada VBA Excel lebih user friendly dan mudah untuk melakukan control data.

Pada Tutorial Excel kali ini kita akan mencoba mempraktikkan membuat dan mendesain sebuah Form pendataan Karyawan kemudian data tersebut dapat kita simpan di worksheet Excel. Ikuti langkah-langkah berikut ini.

1.    Buka Microsoft Excel, lalu pastikan anda telah mengaktifkan menu developer (baca Tutorial Memulai VBA Excel)

2.    Klik menu developer lalu klik tombol Visual basic atau dapat juga menggunakan Shortkey Alt + F11.

3.    Pilih menu Insert > UserForm maka akan tampil form VBA

4.    Perhatikan jendela Toolbox, Jendela tool box digunakan untuk membuat control object yang dibutuhkan oleh FORM. 

5.    Berikut ini keterangan dari control toolboxs yang akan kita gunakan untuk membuat form VBA Sederhana Pada Ms. Excel

Show  10 25 50 100  entries

Search:

Controls	Keterangan
	Label
	Text Box
	Combo Box
	Radio Button (Option Button)
	Command Button
	Check Box
	List Box

Showing 1 to 7 of 7 entries

PreviousNext

6.    Setiap control memiliki properti ada pada jendela properties. Gambar di bawah ini akan menjelaskan bagaimana mengisi sebuah properti pada control.

7.    Buatlah control sesuai dengan ketentuan properti di bawah ini

Search:

Control	Name	Caption
From	UserForm	Form Karyawan
Label Box	idKar	ID Karyawan
Label Box	namaKaryawan	Nama Karyawan
Label Box	tempatLahir	Tempat Lahir
Label Box	tglLahir	Tanggal Lahir
Label Box	mailid	Email ID
Label Box	sex	Jenis Kelamin
Text Box	txtidKar	-
Text Box	txtnamaKaryawan	-
Text Box	txttempatLahir	-
Text Box	txtemailid	-
Combo Box	cmbTanggal	-
Combo Box	cmbBulan	-
Combo Box	cmbTahun	-
Radio Button	radioLaki	Laki-Laki
Radio Button	radioPerempuan	Perempuan
Button	btnSimpan	Simpan
Button	btnBatal	Batal

Showing 1 to 18 of 18 entries

8.    Kini saatnya untuk melakukan coding program,

9.    Klik kanan pada form lalu pilih viewcode

10.  Masukkan code pemrograman di bawah ini.

11.Private Sub btnSimpan_Click()

12.Dim emptyRow As Long

13.'aktifkan Sheet1

14.Sheet1.Activate

15. 

16.'deteksi baris kosong

17.emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

18. 

19.'Simpan data ke sheet1

20.Cells(emptyRow, 1).Value = txtIdKar.Value

21.Cells(emptyRow, 2).Value = txtNamaKaryawan.Value

22.Cells(emptyRow, 3).Value = txtTempatLahir.Value

23.Cells(emptyRow, 4).Value = cmbTanggal.Value & "/" & cmbBulan.Value & "/" & cmbTahun.Value

24.Cells(emptyRow, 5).Value = txtemailid.Value

25. 

26.If RadioLaki.Value = True Then

27.    Cells(emptyRow, 6).Value = "Laki-Laki"

28.Else

29.   Cells(emptyRow, 6).Value = "Perempuan"

30.End If

31.End Sub

32. 

33.Private Sub cmdBatal_Click()

34.Unload Me

35.End Sub

36. 

37.Private Sub UserForm_Initialize()

38.'Kosongkan data Text Box

39.txtIdKar.Value = ""

40.txtIdKar.SetFocus

41.'txtempatlahir.SetFocus

42.txtNamaKaryawan.Value = ""

43.txtTempatLahir.Value = ""

44.txtemailid.Value = ""

45. 

46.'Clear Combo Tanggal Lahir

47.cmbTanggal.Clear

48.cmbBulan.Clear

49.cmbTahun.Clear

50. 

51.'Isi Tanggal untuk combo Box Tanggal Lahir

52.With cmbTanggal

53..AddItem "1"

54..AddItem "2"

55..AddItem "3"

56..AddItem "4"

57..AddItem "5"

58..AddItem "6"

59..AddItem "7"

60..AddItem "8"

61..AddItem "9"

62..AddItem "10"

63..AddItem "11"

64..AddItem "12"

65..AddItem "13"

66..AddItem "14"

67..AddItem "15"

68..AddItem "16"

69..AddItem "17"

70..AddItem "18"

71..AddItem "19"

72..AddItem "20"

73..AddItem "21"

74..AddItem "22"

75..AddItem "23"

76..AddItem "24"

77..AddItem "25"

78..AddItem "26"

79..AddItem "27"

80..AddItem "28"

81..AddItem "29"

82..AddItem "30"

83..AddItem "31"

84.End With

85. 

86.'Isi Bulan untuk combo Box Bulan Lahir

87.With cmbBulan

88..AddItem "JAN"

89..AddItem "FEB"

90..AddItem "MAR"

91..AddItem "APR"

92..AddItem "MAY"

93..AddItem "JUN"

94..AddItem "JUL"

95..AddItem "AUG"

96..AddItem "SEP"

97..AddItem "OCT"

98..AddItem "NOV"

99..AddItem "DEC"

100.   End With

101.    

102.   'Isi Tahun untuk combo Box Tahun Lahir

103.   With cmbTahun

104.   .AddItem "1980"

105.   .AddItem "1981"

106.   .AddItem "1982"

107.   .AddItem "1983"

108.   .AddItem "1984"

109.   .AddItem "1985"

110.   .AddItem "1986"

111.   .AddItem "1987"

112.   .AddItem "1988"

113.   .AddItem "1989"

114.   .AddItem "1990"

115.   .AddItem "1991"

116.   .AddItem "1992"

117.   .AddItem "1993"

118.   .AddItem "1994"

119.   .AddItem "1995"

120.   .AddItem "1996"

121.   .AddItem "1997"

122.   .AddItem "1998"

123.   .AddItem "1999"

124.   .AddItem "2000"

125.   .AddItem "2001"

126.   .AddItem "2002"

127.   .AddItem "2003"

128.   .AddItem "2004"

129.   .AddItem "2005"

130.   .AddItem "2006"

131.   .AddItem "2007"

132.   .AddItem "2008"

133.   .AddItem "2009"

134.   .AddItem "2010"

135.   .AddItem "2011"

136.   .AddItem "2012"

137.   End With

138.    

139.   'Reset Radio Button/Option Button

140.   RadioLaki.Value = False

141.   radioPerempuan.Value = False

142.   End Sub

143.    

Jalankan aplikasi tersebut, jika berhasil maka akan tampil seperti gambar di bawah ini 

Untuk lebih jelas lagi anda dapat melihat video tutorial membuat form macro excel di bawah ini

Demikian Tutorial kami tentang Form VBA Sederhana Pada Ms. Excel sangat mudah dipraktikan dan dipahami. Selamat mencoba Tutorial Microsoft Excel. Baca juga artikel kami VBA Macro Excel yang lain seperti Object Range Pada Macro Excel.

'menemukan baris kosong pada database siswa

'check untuk sebuah nis

'copy data ke database siswa

'clear data siswa

'Simpan data