Senin, 16 Mei 2016

Contoh Sederhana Penggunaan IF Else



Contoh sederhana penggunaan IF Else adalah sebagai berikut : 

1.Buka Aplikasi Microsoft Excel.
2.Tekan tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic.
3.Klik kanan pada Sheet1(Sheet1) pada VBAProject dan pilih view code.
4.Kemudian masukkan script berikut ini:


5.Setelah selesai, coba ketikkan angka 1, 2 dan 3 pada Sheet 1 Cell A1 maka hasilnya akan seperti gambar ini:

6.Terakhir jika ingin menyimpannya silahkan pilih ekstensi *.xlsm atau *.xlsb.

Demikian cara menggunakan IF Else di Excel, Contoh File bisa di unduh di sini.
 
Semoga Bermanfaat...............

Cara Menampilkan Tab Developer di Excel



Menampilkan Tab Developer di Excel 2007

1.Jalankan Aplikasi Microsoft Excel 2007.
2.Klik Office Button (tombol pojok kiri atas Excel).
3.Kemudian klik tombol Excel Options.
4.Akan ditampilkan Kotak Dialog Excel Options.
5.Pilih kategori Popular kemudian centang pilihan Show Developer tab in the Ribbon. Tab Developer Excel 6.Langkah terakhir klik OK untuk menyimpan pengaturan.

Menampilkan Tab Developer di Excel 2010

1.Jalankan Aplikasi Microsoft Excel 2010.
2.Klik Menu Tab File. 
3.Klik Options.
4.Akan ditampilkan Kotak Dialog Excel Options.
5.Pilih kategori Customize Ribbon dan centang pilihan Developer pada Main Tabs.
6.Langkah terakhir klik OK untuk menyimpan pengaturan.

Menampilkan Tab Developer di Excel 2013

1.Jalankan Aplikasi Microsoft Excel 2013
2.Klik Menu Tab File
3.Klik Options
3.Akan ditampilkan Kotak Dialog Excel Options.
4.Pilih kategori Customize Ribbon dan centang pilihan Developer pada Main Tabs.
5.Langkah terakhir klik OK untuk menyimpan pengaturan.

Begitulah cara mengaktifkan atau menampilkan Tab Developer pada aplikasi Microsoft Excel 2007, 2010 dan 2013.

Semoga Bermanfaat..............



Minggu, 15 Mei 2016

Contoh cara membuat aplikasi sederhana dengan VBA M.S Excel (Form Input Data Siswa)



Caranya hampir sama seperti membuat Form Data Barang.perbedaannya terletak pada fieldnya yang lebih banyak,yaitu  mulai dari 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, hingga alamat orang tua.
Berikut langkah pembuatannya:
1. Ubah nama Sheet1 menjadi databasesiswa
2. Buatlah tombol entry data dan juga tabel yang berisi data-data seperti yang telah disebutkan 
3. aktifkan VBA editor dengan menekan kombinasi keyboar ALT+F11 kemudian cari menu Insert dan klik UserForm.kemudian lakukan lagi,namun kali ini kita insert Module
4.Untuk langkah berikutnya setelah menyisipkan sebuah form baru maka kita edit ukuran form nya sesuai dengan kebutuhan kemudian buat sebuah label dengan menggunakan Toolbox,TextBox,ComboBox,dan CommandButton lalu letakkan pada Form kemudian ganti (Name) dan Captionnya.kita juga bisa mengganti picture,mengubah jenis,ukuran font,d.l.l. di properties window
5.Pada gambar di atas, 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, hingga alamat orang tua dibuat menggunakan ToolBox. Sedangkan untuk kotak di sampingnya dibuat dengan TextBox kecuali Jenis kelamin,Pendidikan Ibu,dan Pendidikan Ayah  yang dibuat dengan ComboBox. Lalu untuk Simpan , Cari Data,dan Close menggunakan CommandButton.
 6.Kemudian setiap kotak kita klik dan ubah namanya pada properties,seperti berikut :


Textbox NIS  ganti dengan TextNis
Textbox Nama  ganti dengan TextNama
Textbox Tempat Lahir  ganti dengan TextTempatlahir
Textbox  Tanggal Lahir ganti dengan TextTgllahir
Textbox Alamat  ganti dengan TextAlamat
Textbox NISN ganti dengan TextNisn
Textbox  No.HPganti dengan TextHP
Textbox  No.SKHUN ganti dengan TextSKHUN
Textbox  No.Seri Ijazah ganti dengan TextIjazah
Textbox  Nama Ibu Kandung ganti dengan TextNamaibu
Textbox   Tahun Lahir Ibu ganti dengan TextThnlahiribu
Textbox Pekerjaan Ibu ganti dengan TextPekerjaanibu
Textbox Nama Ayah ganti dengan TextNamaayah
Textbox  Tahun lahir Ayah ganti dengan TextThnlahirayah
Textbox  Pekerjaan Ayah ganti dengan TextPekerjaanayah
Textbox Penghasilan Orang Tua  ganti dengan TextPenghasilanortu
Textbox  Alamat Orang Tua ganti dengan TextAlamatOrtu

ComboBox Jenis Kelamin ganti dengan CBOKelamin
ComboBox Pendidikan Ibu  ganti dengan CBOPendidikanibu
ComboBox Jenis Kelamin ganti dengan CBOPendidikanayah

CommandButton Simpan ganti dengan TBLSimpan
CommandButton Cari Data Siswa ganti dengan CMDCaridata
CommandButton Close ganti dengan CMDClose 
7.Setelah selesai,selanjutnya adalah coding.klik kanan pada userform1 dan pilih View Code,lalu ketikkan codenya
8.Kemudian double Click pada SIMPAN,Cari Data Siswa,dan Close.lalu isikan kodenya.



9. Lalu klik modules,pilih modules 1 dan isi kodenya
10. Setelah selesai jangan lupa menekan tombol save.
11.  Kemudian kita kembali  ke sheet databasesiswa. Lalu klik kanan tombol entry data ,pilih Assign macro,pilih nama macro yang sesuai,klik ok.
12. Untuk mengetahui hasilnya,dapat dilakukan dengan meng-klik Run atau F5. Bisa juga dengan meng-klik tombol entry yang telah kita buat tadi. Hasilnya adalah
 

Filenya dapat dilihat di sini

Semoga Bermanfaat......................