Keadaan Tubuh Setelah Mati

Keadaan Tubuh Setelah Mati, Sebagai Renungan Buat Kita Semua..!!! 

Yang Saya Kutip Dari Sosial Media.

MALAM PERTAMA 

SETELAH DIKUBURKAN,

PEMBUSUKAN BERMULA PADA

BHGN PERUT & KEMALUAN..

SUBHANALLAH, PERUT & KEMALUAN ADALAH 2 HAL

TERPENTING YG ANAK CUCU ADAM SALING BERGULAT &

MENJAGANYA DI DUNIA..

SETELAH ITU, 

JASAD AKAN MULA BERUBAH MENJADI HIJAU

KEHITAMAN..

SETELAH BERBAGAI SOLEKAN & ALAT2 KECANTIKAN

SEMASA HAYAT DI DUNIA,

SETELAH MENINGGAL DUNIA,

MANUSIA HANYA AKAN MEMILIKI 1 WARNA SHJ..

MALAM KEDUA 

ANGGOTA2 TUBUH YG LAIN SEPERTI LIMPA, HATI & PARU2

AKAN MULA MEMBUSUK..

HARI KETIGA 

ANGGOTA2 TUBUH MULA MENGELUARKAN BAU YG

BUSUK..

SETELAH SEMINGGU ~

WAJAH & MATA MULA MEMBENGKAK..

SETELAH 10 HARI ~

TETAP TERJADI PEMBUSUKAN PADA PADA ANGGOTA2

TUBUH..

SETELAH 2 MINGGU 

RAMBUT MULAI GUGUR..

LALAT HIJAU MULAI MENCIUM BAU BUSUK DARI JARAK 5

KM & ULAT2 PUN MULA MENUTUPI SELURUH TUBUH..

SETELAH 6 BULAN 

SEMUA ANGGOTA TELAH TIADA..

YG TINGGAL CUMA TULANG RANGKA SHJ..

SETELAH 25 TAHUN 

RANGKA TUBUH INI AKAN BERUBAH MENJADI SEMACAM

BIJI & DI DLM BIJI TERSEBUT, ANDA AKAN MENEMUKAN 1

TULANG YG SGT KECIL YG DIPANGGIL ‘AJBUDZ

DZANAB’ (TULANG EKOR)..

DARI TULANG INILAH KITA AKAN DIBANGKITKAN OLEH

ALLAH SWT PADA HARI KIAMAT..

SAHABAT2 YG DIRAHMATI ALLAH, INILAH TUBUH YG

SELAMA INI KITA JAGA..

INILAH TUBUH YANG KITA BERBUAT MAKSIAT KPD ALLAH

DGN NYA..

OLEH KERANA ITU, JGN BIARKAN UMUR & JASAD KITA DLM

KEADAAN SIA2..

JANJI ALLAH ADALAH BENAR..

YA ALLAH, TETAPKANLAH HATI KAMI DI ATAS AGAMA-

MU..

YA ALLAH, JADIKANLAH KUBURAN KAMI SEBAGAI 1

TAMAN DARI TAMAN2 SYURGA & JANGAN JADIKAN IANYA

SEBAGAI 1 LUBANG DARI LUBANG2 API NERAKA...

AAMIIN... ..

AKU BERDOA..

YA ﺍَﻟﻠّﻪُ :

MULIAKANLAH DIRIKU DAN ORG YANG MENGHANTAR

PESANAN INI

LAPANGKANLAH HATIKU DAN HATINYA

BAHAGIAKANLAH KELUARGAKU DAN KELUARGANYA, 

DAN

LUASKANLAH REZEKIKU DAN REZEKINYA SELUAS ENGKAU CIPTAKAN

MUDAHKAN SEGALA URUSANKU DAN URUSANNYA

KABULKANLAH CITA-CITAKU & CITA-CITANYA

JAUHKAN KAMI DARI SEGALA PENYAKIT, FITNAH,

PRASANGKA KEJI, BERKATA KASAR, DAN

JAUHKAN KAMI DARI SEGALA MUSIBAH

SERTA TERIMALAH. SEMUA AMAL IBADAH KU DAN

AMAL IBADAHNYA, 

DAN

KELAK JADIKANLAH DIRIKU DAN DIRI DIA SEBAGAI

PENGHUNI SURGA-MU.

ﺁﻣِّﻴْﻦَ ﻳﺎ ﺭَﺏَّ ﺍﻟْﻌَﺎﻟَﻤِﻴْﻦ

KIRIM KEPADA SEMUA ORANG DALAM CONTACT.

KITA AKAN SALING MENDOAKAN ANTARA SATU SAMA LAIN, DAN

MUDAH²AN DOA KITA DIKABULKAN.

ﺁﻣِﻴّﻦْ ... ﺁﻣِﻴّﻦْ ... ﻳَﺎ ﺭَﺏَّ ﺍﻟﻌَـــﺎﻟَﻤِﻴْﻦ 

NASIHAT KUBUR

AKU ADALAH TEMPAT YG PALING GELAP DI ANTARA YG GELAP, MAKA TERANGILAH AKU DENGAN TAHAJUD..

AKU ADALAH TEMPAT YANG PALING SEMPIT, MAKA

LUASKANLAH AKU DENGAN SILATURAHIM

AKU ADALAH TEMPAT YANG PALING SEPI MAKA

RAMAIKANLAH AKU DENGAN PERBANYAK BACA AL-QUR'AN

AKU ADALAH TEMPATNYA BINATANG2 YANG MENJIJIKAN

MAKA RACUNILAH IA DENGAN AMAL SEDEKAH

AKU YG MENYEPITMU HINGGA HANCUR BILA MANA TIDAK SOLAT BEBASKAN SEMPITAN ITU DENGAN SOLAT

AKU ADALAH TEMPAT UTK MERENDAM DGN CAIRAN YG AMAT MENYAKITKAN MU, BEBASKAN RENDAMAN ITU DGN PUASA

AKU ADALAH TEMPAT MUNKAR & NAKIR BERTANYA

MAKA PERSIAPKANLAH JAWAPANMU DENGAN PERBANYAK

MENGUCAPKAN KALIMAH "LAILAHAILALLAH"..

Download POS Kisi-Kisi UAM-UAMBN Tahun Pelajaran 2015/2016

Prosedur Operasional Standar Penyelenggaraan Ujian Akhir Semester Berstandar Nasional (UAMBN) Tahun Pelajaran 2015/2016 tertuang dalam Keputusan Direktur Jenderal Pendidikan Islam Nomor : 7322 Tahun 2015 dengan Menetapkan Kisi-kisi Soal Ujian Akhir Madrasah Berstandar Nasional.

UAMBN merupakan keistimewaan yang terdapat pada Lembaga Pendidikan Madrasah, Hanya di Madrasah adanya penyelenggaraan UAMBN yang di tetapkan secara Nasional dan diselenggarakan di semua jenjang pendidikan Madrasah.

UAMBN hampir serupa dengan UN, pelajaran yang di ujiankan pada UAMBN yaitu Fikih, Akidah Akhlak, Al-Quran-Hadist, Sejarah Kebudayaan Islam, dan Bahasa Arab. sebagaimana pada UN hasil dari Ujian Nasioan dicantumkan pada lembaran Surat Keputusan Hasil Ujian Nasional (SKHUN), UAMN juga mencatumkan nilai mata pelajaran yang di uji pada lembaran Surat Keputusan Hasil Ujian Akhir Madrasah Berstandar Nasional (SKHUAMBN). 

Berikut POS dan Kisi-kisi UAM-UAMBN Tahun Pelajaran 2015/2016 yang dapat di download.

Download : POS dan Kisi-Kisi UAM-UAMBN Tahun Pelajaran 2015/2016

Download Kisi-Kisi UN Tahun Pelajaran 2015/2016

Pelaksanaan UN Tahun 2016 mengacu pada Peraturan Menteri Pendidikan dan Kebudayaan Republik Indonesia Nomor 57 Tahun 2015 tentang Penilaian Hasil Belajar oleh Pemerintah Melalui Ujian Nasional, dan Penilaian Hasil Belajar oleh Satuan Pendidikan Melalui Ujian Sekolah/Madrasah/Pendidikan Kesetaraan pada SMP/MTs atau yang sederajat dan SMA/MA/SMK atau yang sederajat dan Peraturan Badan Standar Nasional Pendidikan Nomor: 0034/P/BSNP/XII/2015 tentang Prosedur Operasional Standar Penyelenggaraan Ujian Nasional Tahun Pelajaran 2015/2016.

Perubahan mendasar penyelenggaraan UN Tahun Pelajaran 2015/2016 dibandingkan Tahun Pelajaran 2014/2015, sebagai berikut: (1) Permendikbud hanya mengatur dan menetapkan kebijakan mendasar tentang penilaian hasil belajar dan berlaku multi tahun, (2) kisi-kisi UN Tahun Pelajaran 2015/2016 disusun berdasarkan kriteria kompetensi lulusan, standar isi, dan kurikulum yang berlaku pada lingkup materi yang sama; dan (3) perluasan jangkauan pelaksanaan Ujian Nasional Berbasis Komputer (UNBK)

Tujuan penyelenggaraan UN - Merupakan amanah Undang Undang Nomor 20 Tahun 2005 tentang Sistem Pendidikan Nasional yang bertujuan untuk mengukur pencapaian kompetensi lulusan pada mata pelajaran tertentu secara nasional dengan mengacu pada Standar Kompetensi Lulusan (SKL). Melaksanakan amanah PP Nomor 19 Tahun 2015 yang direvisi menjadi PP Nomor 32 Tahun 2014 dan PP Nomor 13 Tahun 2015. UN sebagai sub-sistem penilaian dalam Standar Nasional Pendidikan (SNP) menjadi salah satu tolak ukur pencapaian SNP dalam rangka penjaminan dan peningkatan mutu pendidikan. 

Hasil UN digunakan untuk :

1. Pemetaan mutu program pendidikan dan/atau satuan pendidikan;
2. Pertimbangan seleksi masuk jenjang pendidikan berikutnya; dan
3. Dasar pembinaan dan pemberian bantuan kepada satuan pendidikan untuk pemerataan dan peningkatan mutu pendidikan.

Dikutip dari Website BSNP yang di posting tanggal 15 Oktober 2015 terdapat ralat Kisi-kisi UN Tahun 2015/2016. Berikut File Kisi-Kisi UN yang dapat di download untuk acuan Pelaksanaan UN Tahun Pelajaran 2015/2016.

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).

Download Juga PERMENDIKBUD DAN POS UN TAHUN PELAJARAN 2015/2016

1. Surat edaran Badan Standar Nasional Pendidikan Nomor 0065/SDAR/BSNP/XII/2015 perihal Peraturan Menteri dan POS UN Tahun Pelajaran 2015/2016 (Surat Edaran BSNP tentang Permen dan POS UN TP 2015-2016);
2. Peraturan Menteri Pendidikan dan Kebudayaan Nomor 57 Tahun 2015 tentang Penilaian Hasil Belajar oleh Pemerintah Melalui Ujian Nasional, dan Penilaian Hasil Belajar oleh Satuan Pendidikan Melalui Ujian Sekolah/Madrasah/Pendidikan Kesetaraan pada SMP/MTs atau yang Sederajat dan SMA/MA/SMK atau yang Sederajat (PERMEN No 57 Tahun 2015);
3. Peraturan Badan Standar Nasional Pendidikan Nomor 0034/P/BSNP/XII/2015 tentang Prosedur Operasional Standar Penyelenggaraan Ujian Nasional Tahun Pelajaran 2015/2016 (Peraturan BSNP No 0034 – POS UN TP 2015-2016).

Demikian Informasi UN Tahun Pelajaran 2015/2016, Semoga informasi ini dapat membantu pada guru dalam mempersiapkan anak didiknya di Sekolah/Madrasah.

Download Buku Saku UN Tahun Ajaran 2015/2016

Ujian Nasional (UN) diselenggarakan untuk mengukur pencapaian kompetensi lulusan peserta didik jenjang satuan pendidikan dasar dan pendidikan menengah sebagai hasil dari proses pembelajaran sesuai dengan Standar Kompetensi Lulusan (SKL). Selain itu UN digunakan juga untuk melakukan pemetaan tingkat pencapaian hasil belajar siswa pada satuan pendidikan. Salah satu upaya untuk mewujudkan pendidikan berkualitas diperlukan adanya sistem penilaian yang dapat dipercaya (credible), dapat diterima (acceptable), dan dapat dipertanggunggugatkan (accountable).

Pelaksanaan UN Tahun 2016 mengacu pada Peraturan Menteri Pendidikan dan Kebudayaan Republik Indonesia Nomor 57 Tahun 2015 tentang Penilaian Hasil Belajar oleh Pemerintah Melalui Ujian Nasional, dan Penilaian Hasil Belajar oleh Satuan Pendidikan Melalui Ujian Sekolah/Madrasah/Pendidikan Kesetaraan pada SMP/MTs atau yang sederajat dan SMA/MA/SMK atau yang sederajat dan Peraturan Badan Standar Nasional Pendidikan Nomor: 0034/P/BSNP/XII/2015 tentang Prosedur Operasional Standar Penyelenggaraan Ujian Nasional Tahun Pelajaran 2015/2016.

Perubahan mendasar penyelenggaraan UN Tahun Pelajaran 2015/2016 dibandingkan Tahun Pelajaran 2014/2015, sebagai berikut:

1. Permendikbud hanya mengatur dan menetapkan kebijakan mendasar tentang penilaian hasil belajar dan berlaku multi tahun, 
2. Kisi-kisi UN Tahun Pelajaran 2015/2016 disusun berdasarkan kriteria kompetensi lulusan, standar isi, dan kurikulum yang berlaku pada lingkup materi yang sama;
3. Perluasan jangkauan pelaksanaan Ujian Nasional Berbasis Komputer (UNBK)

Buku saku “Tanya Jawab UN” ini disusun untuk memberikan informasi jelas dan ringkas tentang pelaksanaan UN Tahun Pelajaran 2015/2016, agar kualitas pelaksanaan UN dapat ditingkatkan sebagai upaya untuk meningkatkan mutu pendidikan nasional. Buku saku ini disusun oleh Badan Standar Nasional Pendidikan (BSNP) dan Badan Penelitian dan Pengembangan, Kementerian Pendidikan dan Kebudayaan (Balitbang Kemdikbud).

Download : Buku Saku UN Tahun Pelajaran 2015/2016

Pendataan EMIS dan Jadwal Upload EMIS Online Semester Genap TP 2015-2016

Rekan OPM (Operator Madrasah)..!! Pendataan EMIS dan Jadwal Upload EMIS Online Semester Genap TP 2015/2016 sudah dimulai, Informasi resmi dapat dilihat di website PENDIS. Siapkan semua perkakas kembali, Tenaga kita akan dibutuhkan berhari-hari dan berbulan. Siapkan juga Vitamin agar tubuh selalu Fit untuk melengkapi data yang Valid dan Real. 

Data yang Valid selayaknya tiap Lembaga memiliki Aplikasi Database agar memudahkan OPM mendata secara Real Time 

Download : Aplikasi Database GEN-03.1

Perkakas yang usang yang banyak error, seperti PC/Laptop yang hank segera beli baru...!! klo ngak ada duit minta bantu ama kepala Madrasah beli baru.!! Usahakan Modem 4G. Tahun Baru dengan perkakas baru semangatpun akan baru.!!!

Sehubungan dengan Surat Pengantar Pemutakhiran Data EMIS Semester Genap Tahun Pelajaran 2015/2016 Kementerian Agama Republik Indonesia Direktorat Jenderal Pendidikan Islam. Pemutakhiran Data EMIS Genap Tahun Ajaran 2015/2016 diberlakukan bagi seluruh entitas pendataan dibawah binaan Direktorat Jenderal Pendidikan Islam yang meliputi 

1. RA, MTs, MA dan Pengawas Madrasah
2. Pendataaan Pondok Pesantren, Madrasah Diniyah Takmiliyah, Lembaga Pendidikan Al-Quran, serta Pondok Pesantren penyelengara WAJAR DIKDAS
3. Pendataan Guru PAI pada Sekolah dan Pengawas PAI
4. Pendataan Perguruan Tinggi Islam Negeri dan Swasta

Untuk lebih jelas dapat dibaca pada Surat Pengantar Pemutakhiran Data EMIS Semester Genap Tahun Pelajaran 2015/2016. berikut Link Download beberapa file EMIS Genap 2015/2016 

Download : Surat Pengantar Pemutakhiran EMIS Genap 2015/2016

Download : Jadwad Upload Online EMIS Genap 2015/2016

Download Format Pendataan EMIS Genap 2015/2016

Bidang Madrasah : 

1. Format Pendataan EMIS Tingkat Raudhatul Athfal Semester Genap TP 2015/2016
2. Format Pendataan EMIS Tingkat Madrasah Ibtidaiyah Semester Genap TP 2015/2016
3. Format Pendataan EMIS Tingkat Madrasah Tsanawiyah Semester Genap TP 2015/2016
4. Format Pendataan EMIS Tingkat Madrasah Aliyah Semester Genap TP 2015/2016
5. Format Pendataan EMIS Pengawas Madrasah Semester Genap TP 2015/2016

Bidang PD Pontren :

1. Format Pendataan EMIS Lembaga Pondok Pesantren TP 2015/2016
2. Format Pendataan EMIS Santri Pondok Pesantren TP 2015/2016
3. Format Pendataan EMIS Pondok Pesantren Penyelenggara Program Wajar Dikdas Salafiyah TP 2015/2016
4. Format Pendataan EMIS Santri Peserta Wajar Dikdas Salafiyah TP 2015/2016
5. Format Pendataan EMIS Lembaga Diniyah TP 2015/2016
6. Format Pendataan EMIS Lembaga Pendidikan Al Qur`an (LPQ) TP 2015/2016

Bidang PAI :

1. Format Pendataan EMIS Guru PAI Pada Sekolah TP 2015/2016
2. Format Pendataan EMIS Pengawas PAI Pada Sekolah TP 2015/2016 (Pengawas PAIS)

Perguruan Tinggi Islam :

1. Format Pendataan EMIS Pendidik (Dosen) pada PTKI Tahun Akademik 2015/2016
2. Format Pendataan EMIS Tenaga Kependidikan (Non Dosen) pada PTKI Tahun Akademik 2015/2016
3. Format Pendataan EMIS Mahasiswa Reguler (Program Diploma dan S1) pada PTKI Tahun Akademik 2015/2016
4. Format Pendataan EMIS Mahasiswa Program Pasca Sarjana pada PTKI Tahun Akademik 2015/2016
5. Format Pendataan EMIS Lulusan PTKI Tahun Akademik 2015/2016

Update informasi selanjutnya dapat di akses di http://pendis.kemenag.go.id/

Konsultasi Online permasalah dan kendalam EMIS dapat ditanyakan disini

Software Untuk Mengubah Ribbon Excel 2007/2010 Semau Kita

Custom UI Editor For Microsoft Office merupakan aplikasi untuk mengubah Ribbon yang ada pada microsoft Office yang telah disematkan Visual Basic For Application yang lebih dikenal dengan VBA. Dengan Custom UI Editor For Microsoft Office dapat menambahkan Ribbon, Menghapus, dan Menyembunyikan Ribbon Bawaan Microsoft Office.

Penggunaan Ribbon untuk mempermudah User memahami dan mempermudah penggunaan Aplikasi yang dibuat dengan Excel atau Microsoft Office lainnya. Pada umumnya, Ribbon Office banyak yang mengubah pada Excel yang dirancang untuk membuat sebuah aplikasi, 

Download ajha dulu Softwarenya, Coba-coba ajha...!! Beberapa Model Ribbon dapat ditelusuri di Blog saya ini.

Download : Custom UI For Microsoft Office

Baca Juga : Custom Ribbons Dengan Pilihan Label

Custom Ribbons Dengan Pilihan Label

Perhatikan gambar yang berformat gif diatas..!! Pada gambar diatas terlihat bahwa excel telah ditambahkan "RibbonKu" dengan Tab "Aplikasi Ribbon Label" dengan Iconnya sendiri. Ketika User mengklik "RibbonKu" Keluarlah beberapa pilihan Sheet1, Sheet2, dan Sheet3 yang merupakan pilihan dari "RibbonKu". Saat User mengklik Label Ribbon Sheet1 maka Worksheet dengan Sheet1 akan di tampilkan, jika Label Sheet2 yang diklik maka Sheet2 akan di tampilkan, begitu juga dengan Label Sheet3 maka yang ditampilkan adalah Sheet3.

Dengan membuat Ribbon sendiri pada file excel yang kita buat akan terlihat lebih indah dan profesional. Apalagi kita bisa membuat Aplikasi dengan menggunakan Excel, maka sudah seharusnya kita juga menggunakan Ribbon Excel tersendiri. Selain itu dengan menambahkan Ribbon di Excel maka pengguna Aplikasi Excel akan lebih memahami cara menggunakan Aplikasi yang dibuat dengan Excel. Kesempatan ini kita akan mempelaji bagaimana cara membuat Ribbon dengan Pilihan Label. Ikuti ajha langkah-langkah yang akan saya berikan.!! nanti modifikasi sendiri dech...!! disini saya menggunakan Office 2007.

Baca Juga : Software Untuk Mengubah Ribbon Excel 2007/2010 Semau Kita

Cara Membuat Ribbon dengan Pilihan Label Pada Excel 2007 :

• Save Workbook Excel dengan judul "Ribbon1" setelah di Save, Tutup excelnya terlebih dahulu
• Buka Software Custom UI Editor For Microsoft Office, Selanjutnya Klik File dan pilih Open (Ctrl + O) dan telusuri file Excel yang telah di Save tadi dengan judul "Ribbon1".
• File Excel "Ribbon1" akan terlihat dipanel sebelah kanan. Selanjutnya Klik Insert dan pilih Office 2007 Custom UI Part.
• Copy kode berikut ini dan Paste ke Editor Custom UI

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="rxtab" insertBeforeMso="TabHome" label="Aplikasi Ribbon Pertama">
            <group id="rxgrp" label="Ribbon Pertama">
               <!-- Starts the definition of our gallery.-->
               <gallery id="rxgal"
                   label="Ribbon Ku" columns="3" rows="10"
                   imageMso="ChartTypeOtherInsertGallery"
                   getItemCount="rxgal_getItemCount"
                   getItemLabel="rxgal_getItemLabel"
                   getItemScreentip="rxgal_getItemScreentip"
                   onAction="rxgal_Click"
                   showItemLabel="true"
                   size="large">
            <!-- Insert a button at the end of the gallery.-->
            <button id="rxbtn"
                    imageMso="RefreshStatus"
                    label="Visit Ron's Excel site..."
                    onAction="rxbtn_Click"/>
               </gallery>
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

• Selanjutnya Klik File dan pilih Save (Ctrl + S). Selesai urusan menggunakan Custom Editor For Office. Tutup ajha dech tu Softwarenya. Selanjutnya..!!!
• Buka File Excel "Ribbon1", Klik Tab Developer dan pilih Visual Basic  (Alt + F11). Setelah terbuka Editor Visual Basicnya. Klik Insert dan Pilih Modul

Sub rxgal_getItemCount(control As IRibbonControl, ByRef returnedVal)
'Code Untuk memanggil banyaknya Label pada ribbons yang akan ditampilkan.
    returnedVal = 3
End Sub

Sub rxgal_getItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
'Code untuk menampilkan Nama label pada Ribbon
    Dim Labelname As Variant
    Labelname = _
    Array("Sheet 1", _
          "Sheet 2", _
          "Sheet 3")
    On Error Resume Next
    returnedVal = Labelname(index)
    On Error GoTo 0
End Sub

Sub rxgal_getItemScreentip(control As IRibbonControl, index As Integer, ByRef returnedVal)
'Code untuk menampilkan Scren Tips Label.
    Dim Tipname As Variant
    Tipname = _
    Array("Tip 1", _
          "Tip 2", _
          "Tip 3")
    On Error Resume Next
    returnedVal = Tipname(index)
    On Error GoTo 0
End Sub

Sub rxgal_Click(control As IRibbonControl, id As String, index As Integer)
'Code untuk menampilkan nama Macro dari label.
    On Error Resume Next
    Application.Run "macro_" & Format(index + 1, "00")
    On Error GoTo 0
End Sub

Sub macro_01()
Worksheets("Sheet1").Activate
    MsgBox "Anda Telah Menuju Sheet 1", 36, "Aplikasi Ribbon"
End Sub
Sub macro_02()
Worksheets("Sheet2").Activate
    MsgBox "Anda Telah Menuju Sheet 2", 36, "Aplikasi Ribbon"
End Sub
Sub macro_03()
Worksheets("Sheet3").Activate
    MsgBox "Anda Telah Menuju Sheet 3", 36, "Aplikasi Ribbon"
End Sub

Sub rxbtn_Click(control As IRibbonControl)
'Code untuk memanggil Alamat Web saat Klik Help
    ActiveWorkbook.FollowHyperlink "http://www.senbakusen.com/"
End Sub

• Save Excel, dan selesai....!! Jalankan Aplikasi..!! bila penempatan kode sudah benar maka aplikasi akan tampil seperti punya saya yang didapat di download di akhir posting ini
• Selebihnya silahkan di modifikasi sendiri, karena saya tidak bisa menjelaskan terlalu panjang lebar, saya tu belajar copy.. modifikasi.. paste.. yang penting hasilnya..!!! 

Download : Aplikasi Ribbon1

Aplikasi Database Gen-03.1 Tingkat MI/SD-MTs/SMP-MA/SMA

Aplikasi Database Gen-03.1 merupakan Aplikasi Database Generasi Ke 3 Pengembangan Pertama yang saya kembangkan dengan belajar secara otodidak. Fungsi utamanya adalah mencatat data siswa dengan lengkap yang disesuaikan dengan permintaan data yang ada pada EMIS untuk Madrasah dan DAPODIK untuk Sekolah.

Output dari data dapat di Exract  dalam bentuk Workbook Excel Baru yang mencakup semua siswa baik yang aktif maupun yang sudah mutasi. Aplikasi ini akan terus dikembangkan. Aplikasi ini dapat digunakan untuk tingkat MTs dan SMP. Untuk lebih lengkapnya silahkan bisa di simak filtur-filtur yang sudah ada. 

Filtur Aplikasi Database Gen-03.1 Tingkat MTs/SMP

• Home, merupakan menu awal aplikasi saat dibuka
• Input, Menu untuk mengentry data siswa yang telah dilengkapi dengan Nomor Induk Sekolah secara otomatis sehingga dapat menimalisir kesalahan pada Nomor Induk Siswa yang double. Filtur pada menu input data juga dilengkapi dengan Simpan Data, Edit Data, Hapus Data, Reset Form, dan Mutasi Siswa.
• Search, merupakan menu untuk mencari data siswa berdasarkan Nomor Induk Sekolah, Nomor Induk Nasional, Nama Siswa, Tingkat dan berdasarkan Kelas Siswa sehingga untuk mencari data sangat mudah. Pada Menu Search, User yang menggunakan aplikasi ini dengan mudah untuk mengedit data, hanya dengan double klik pada data, selanjutnya Form Entry Data akan aktif untuk melakukan Operasi lainnya yang tersedia pada menu Input. Pada menu ini juga tersedia menu untuk Export Data ke WorkBook Baru
• Daftar Mutasi, merupakan menu yang menampilkan data siswa yang telah mutasi
• Cetak, Merupakan menu untuk mencetak Absensi Siswa dalam Format Excel. 
• Setting, Merupakan Menu untuk mengatur Profil Madrasah/Sekolah serta untuk menentukan kelas pada tiap tingkatnya.
• Save & Close Merupakan Menu untuk menutup dan menyimpan data secara keseluruhan

Aplikasi ini diperbolehkan untuk dibobol agar bagi yang membobolnya dapat mempelajari Script yang terdapat didalamnya.

Update Infomasi 
Aplikasi telah tersedia untuk semua jenjang sekolah, dari SD/MI, SMP/MTs, dan SMA/MA.

Download : Aplikasi Database Gen-03.1 Tingkat MI/SD Free Trial
Download : Aplikasi Database Gen-03.1 Tingkat MTs/SMP Free Trial

Download : Aplikasi Database Gen-03.1 Tingkat MA/SMA Free Trial

Programer
Contact : 0811-6822-023
PIN  BB : 5AEC40B3

Download Aplikasi Database Gen-03 "Gratis"

Aplikasi Database Gen-03 merupakan aplikasi untuk mencatat database siswa di madrasah/sekolah. Database hal yang sangat penting di lembaga pendidikan. Selain memudahkan untuk membuat laporan, Database merupakan Acuan data untuk membuat data lain seperti Absensi, mempersiapkan usulan Beasiswa dan lainnya agar data lebih valid. 

Filtur Aplikasi sudah menggunakan Ribbon tersendiri sehingga mudah untuk di pelajari dan dipahami dalam penggunaannya. 

Aplikasi ini merupakan aplikasi yang pertama saya buat dan dari aplikasi inilah saya belajar Macro/VBA Excel secara otodidak. Saya sematkan nama aplikasi ini "Aplikasi Database Gen03" yang merupakan Aplikasi database yang saya buat setelah dua generasi sebelumnya yang tidak menggukana Ribbon serta Userform dan Macro. Aplikasi ini saya bagikan secara cuma-cuma untuk anda yang membutuhkan. Bagi yang ingin belajar dari Aplikasi ini dalam membuat UserForm, Macro dan lainnya saya izinkan untuk dibobol. 

Baca Juga : Aplikasi Database Gen-03.1 Tingkat MTs/SMP

Filtur Aplikasi Database Gen.03

• Form Login dengan UserName dan Password
• Menu Awal : Merupakan Menu Beranda Aplikasi
• Menu Madrasah : Merupakan Menu untuk menginput data Profil Madrasah/Sekolah
• Menu Data Siswa : Merupakan Menu yang menyimpan seluruh data siswa baik yang masih aktif maupun yang telah mutasi
• Menu Input Siswa : Merupakan Menu untuk mengentry data siswa kedalam database (Menu Data Siswa). Filtur ini dilengkapi Simpan Data, Edit Data, Cari Data berdasarkan NIS, dan Hapus Data
• Menu Statistik Merupakan Menu yang menampilkan jumlah siswa berdasarkan Kelas, dan Umur
• Menu Daftar Mutasi : Merupakan Menu yang menampilkan seluruh data siswa yang telah mutasi
• Menu Input Muasi : Merupakan Menu untuk mengentry data siswa yang akan di mutasikan dan data akan otomatis dicatat ke Menu Daftar Mutasi
• Menu Absensi Siswa : Merupakan Menu untuk mencetak Absensi berdasarkan kelas
• Menu Preview : Merupakan Menu Print Preview untuk melihat dokumen sebelum di cetak
• Menu Print : merupakan menu untuk mencetak secara langsung
• Menu Convert PDF : Merupakan Menu untuk menghasilkan Output file Absensi dengan Format PDF
• Menu Data Beasiswa : merupakan Menu untuk mencatat siswa yang telah diberikan beasiswa 
• Menu Hapus Database : Menu ini akan menghapus semua data yang ada pada Menu Data Siswa dan data yang ada pada Menu Daftar Mutasi dengan sekali Klik
• Menu Petunjuk : Petunjuk Pemakaian Aplikasi 
• Menu Programer merupakan Menu Informasi tentang Programer
• Menu MacroSecurity merupakan menu untuk mengaktifkan macro dengan mudah.

Download : Aplikasi Database Gen-03.1

Belajar Text Arab Jawi Melayu - Tata Cara/Kaedah Arab Jawi

Setelah beberapa bulan saya disibukkan dengan beberapa kesibukan serta menyempatkan diri mempelajari kode membuat aplikasi dengan VBA excel/Macro secara otodidak melalui media internet. apa yang saya pelajari secara otodidak tentang VBA Excel/Macro sudah saya sajikan pada katagori VBA Exce dan UserForm. 

Posting pada kesempatan ini, Kembali pada asal, yang merupakan habitat kehidupan empunya situs blog ini yaitu sedikit menyajikan beberapa posting tentang Arab Jawi yang dikenal juga Aksara Pegon. Hasil baca-baca dari beberapa situs saya menyimpulkan beberapa kesimpulan yang saya sajikan disini, tentang Aturan ataupun Kaedah-kaedah membaca Arab Jawi. Simak baik-baik ..!! dan mungkin bisa menjadi bahan untuk anda yang sedang mempelajari Arab Jawi.

Baca Juga : 

1. Keyboar Arab Jawi Melayu V.3.0

2. Fonts Arabic Colection

Aksara yang digunakan dalam Arab Jawi merupakan haruf hijayyah. Pasti udah kenal dong...!! Huruf hijayyah yang dari masa kecil kita pelajari Al-Qur'an. Jadi huruf hijayyah tidak lagi saya sebutkan disini. Untuk melengkapi pengucapan huruf yang ada dalam bahasa rumpun Melayu maka perlu diketahui bahwa dalam Arab Jawi terdapat beberapa huruf hijayyah yang dimodifikasi (Tambahan sejumlah titik pada huruf yang ada). Perhatikan huruf yang dimodifikasi berikut ini :

HURUF JAWI	BACA	CONTOH DALAM KALIMAT	BACA
‌‌ڠ	Nga	يڠ مڠسهانى	Yang Mengasihani
چ	Cha	ممباچ	Membaca
ڤ	Pa	ادڤون تمڤت	Adapun Tempat
ڽ	Nya	کيريڽ	Kirinya
ݢ	Ga	سݢل بݢين	Segala Bagian

Untuk contoh lainnya anda dapat tulusuri di beberapa posting berikut ini :1. Belajar Arab Jawi - Fardhu dan Kesempurnaan Iman2. Belajar Arab Jawi - Rukun Iman Mujmal dan Mufashal3. Belajar Text Arab Jawi - Iman, Islam, Tauhid dan Ma'rifat4. Belajar Text Arab Jawi Melayu - Rukun IslamIni merupakan Kaedah Dasar yang harus dikuasai untuk melengkapi pengucapan. Masih banyak Kaedah dan Aturan lainnya yang akan saya sajikan pada Posting Mendatang. Demikian Sekilas Tentang Tata Cara/Kaedah Arab Jawi, untuk Posting Belajar Text Arab Jawi Melayu - Tata Cara/Kaedah Arab Jawi. Untuk selanjutnya semoga saya diberikan kesehatan untuk dapat menulis Kaedah lain tentang Arab Jawi.

Progress Bar Sederhana VBA Excel

Progress Bar - Merupakan tampilan proses loading aplikasi yang seolah-olah aplikasi sedang disiapkan untuk loading. Banyak cara untuk membuat progress bar semacam gambar gif diatas. Membuat tampilan Progress Bar pada Awal Aplikasi VBA Excel akan membuat aplikasi lebih cantik serta tampil selayaknya aplikasi profesional. Pada kesempatan ini saya akan menyajikan membuat Progress Bar Secara Sederhana menggunakan VBA Excel. ikuti ajha langkah-langkah sederhana membuat Progress Bar di Aplikasi VBA Excel.

Langkah-langkah Membuat Progress Bar Sederhana VBA Excel :

• Buka Visual Basic VBA Excel dengan cara Klik menu Depelover, pilih Visual Basic.
• Tambahkan sebuah UserForm, 1 Frame dan 2 Label.
• Ubah Caption UserForm1 menjadi "Loading" dengan cara klik kanan pada UserForm1, pilih properties, Padukan sendiri warna BackColor UserForm.
• Klik kanan pada Frame dan pilih properties, Hapus Caption Frame dan biarkan kosong, Padukan sendiri warna Backcolor Frame. saya pilih warna putih ajha.
• Klik kanan pada Label1 pilih properties atur Caption Label1 "0% Completed", untuk BackStyle pilih 0-fmBackStyleTransparant.
• Klik kanan Label2, pilih Properties, Hapus Caption Label2 , biarkan saja kosong. Sesuaikan BackColor Label2 sesuai dengang selera anda.!! dan  Letakkan Label2 ke dalam Frame. kurang lebih perhatikan gambar dibawah ini.

• Setelah siap rancangan UserForm selanjutnya kita akan memasukkan kode untuk menjalankan progress bar yang sederhana. Tambahkan sebuah Modul dengan cara klik Insert dan pilih Modul. Masukkan kode berikut ini dalam modul.

Option Explicit
Sub code()
Dim i As Integer, j As Integer, pctCompl As Single
Sheet1.Cells.Clear
For i = 1 To 100
    For j = 1 To 1000
        Cells(i, 1).Value = j
    Next j
    pctCompl = i
    progress pctCompl
Next i
End Sub
Sub progress(pctCompl As Single)
UserForm1.Label1.Caption = pctCompl & "% Completed"
UserForm1.Label2.Width = pctCompl * 2
DoEvents
End Sub

• Jika sudah menempatkan kode diatas dalam modul, selanjutnya kita akan tambahkan kode pada UserForm_Activate(). Jangan banyak mikir dan banyak tanya perhatikan kode dibawah dan letakkan kode dibawah ini di UserForm_Activate() dengan cara klik kanan UserForm pilih View Code

Private Sub UserForm_Activate()
code
End Sub

• Selesai..!!! Mudah bukan..!! Jalankan Aplikasi anda untuk uji coba..!!! bila penempatan kode sudah benar progress bar akan muncul dengan indah..!!! 

Download Sample File Progress Bar

Export Database Dari UserForm VBA Excel

Expor Data dari Database ke WorkBook Baru Excel seperti terlihat pada gambar format gif diatas..!! Export Data sangatlah penting untuk mengcopy data ke workbook baru agar database aplikasi tidak diganggu agar terhindar dari error dan sebagainya. Bila ingin mengambil data sesuai dengan database pada aplikasi kita dapat membuat tombol Export Data. Untuk mengexport data dari laporan, kode yang akan saya jadikan juga bisa, Tinggal anda memodifikasikannya sendiri letak sheet dan range yang akan di export datanya. Ngak susah-susah amatlah...!!! Belajar otodidak mainkan logikamu.. Copy.. Modifikasi..Paste...!!!

Baca Juga : Tampilkan Data di ListBox di UserForm VBA Excel

Langkah-langkah membuat Tombol Export Database dari UserForm :

• Download Sampel File Export Data
• Buka Visual Basic selanjutnya klik kanan CommandButton1 pilih View Code tempatkan kode dibawah ini pada CommanButton1

Private Sub CommandButton1_Click()
On Error Resume Next
Dim ws As Worksheet, wb As Workbook
Dim FPath As String
Dim kls As String
kls = Worksheets("DATA").Range("RNAMADATA").Value
Worksheets("DATA").Activate
Set ws = ActiveSheet
Set wb = Workbooks.Add(xlWBATWorksheet)
FPath = ThisWorkbook.Path
ws.Range("A1:H1").Copyx
wb.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteColumnWidths
wb.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteValues
wb.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteFormats
ws.Range("A2:G100").Copy
wb.Sheets(1).Range("A2").PasteSpecial Paste:=xlPasteAll 'Formats
wb.Sheets(1).Name = "DATABASE"
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=FPath & "\" & "DATABASE " & kls & " - " & Format(Date, "ddmmyy") & ".xlsx"
MsgBox "Sukses..!!, Export Database selesai", vbInformation, "ExportData"
ActiveWorkbook.Close savechanges:=True
On Error GoTo 0
End Sub

• Selesai..!!! semoga dapat dimodifikasi sendiri sebagaimana kemauan dan kebutuhan masing-masing.

Cari Data "ComboBox Bertingkat"

Perhatikan gambar gif diatas..!!! Ngak tau judulnya apa..!! mungkin namanya ComboBox bertingkat..!!! Bisa jadi..!! Ketika ComboBox1 Terisi dengan pilihan Jenis Kelamin makan ComboBox2 akan memberikan pilihan Laki-Laki dan perempuan, Bila ComboBox1 terisi dengan pilihan Tahun maka ComboBox2 memberikan pilihan Tahun tertentu untuk dipilih dan seterusnya. Fungsinya yeah seperti yang ada pada gambar diatas.

Langkah-langkah Membuat ComboBox Bertingkat Pada Pencarian Data

• Buka excel, ubah "Sheet1" menjadi "DATA dan "Sheet2" menjadi "LAPORAN"
• Selanjutnya kita membuat Advance Filter Simak Posting Cari Data Dengan TextBox Tampil Di ListBox. Sesuaikan ajha sesuai kebutuhan Advance Filter "Copy To Another Location " dimana ListRange di ambil pada tabel di Sheet "Data", Creteria Range K1 dan K2 di Sheet "DATA" dan Copy To di Sheet "LAPORAN" di "B3:G3". Sekilas coba perhatikan gambar berikut sebagai petunjuk

Sheet "Data" 

• Di Sheet "DATA" Tabelnya buat Range Dinamis, Baca Range Dinamis

Sheet "LAPORAN"

• Tabel di Sheet "LAPORAN" buat Range Dinamis lagi ya..!! Baca Range Dinamis
• Pilih Developer, buka visual basic buatlah rancangan UserForm seperti pada gambar berikut ini.

• Selanjutnya klik kanan ComboBox1 pilih View Code dan tempatkan kode berikut pada ComboBox1_Change()

Private Sub ComboBox1_Change()

Dim i As Integer

Dim Ws As Worksheet: Set Ws = Sheet1

Dim Cb As String

Dim tmp As String

Cb = ComboBox1.Value

ComboBox2.Clear

Select Case Cb

Case "JENIS KELAMIN"

With UserForm1.ComboBox2

For i = 3 To Cells(Rows.Count, 3).End(xlUp).Row

If InStr(1, tmp, Ws.Range("C" & i) & ";") = 0 Then

         .AddItem Ws.Range("C" & i)

        tmp = tmp & Ws.Range("C" & i) & ";"

            End If

        Next i

    End With

Case "TANGGAL"

With UserForm1.ComboBox2

For i = 3 To Cells(Rows.Count, 4).End(xlUp).Row

If InStr(1, tmp, Ws.Range("D" & i) & ";") = 0 Then

         .AddItem Ws.Range("D" & i)

        tmp = tmp & Ws.Range("D" & i) & ";"

            End If

        Next i

    End With

Case "BULAN"

With UserForm1.ComboBox2

For i = 3 To Cells(Rows.Count, 5).End(xlUp).Row

If InStr(1, tmp, Ws.Range("E" & i) & ";") = 0 Then

         .AddItem Ws.Range("E" & i)

        tmp = tmp & Ws.Range("E" & i) & ";"

            End If

        Next i

    End With

Case "TAHUN"

With UserForm1.ComboBox2

For i = 3 To Cells(Rows.Count, 6).End(xlUp).Row

If InStr(1, tmp, Ws.Range("F" & i) & ";") = 0 Then

         .AddItem Ws.Range("F" & i)

        tmp = tmp & Ws.Range("F" & i) & ";"

            End If

        Next i

    End With

End Select

End Sub

• Berikutnya klik kanan ComboBox2 pilih View Code dan letakkan kode berikut pada ComboBox2_Change()

Private Sub ComboBox2_Change()

Sheets("DATA").Range("K2").Value = UserForm1.ComboBox2.Text

End Sub

• Pasang Kode Berikut dimana ajha di General

Kode Untuk Menampilkan ListBox dari Sheet "DATA"

Sub ListData1()

With UserForm1.ListBox1

.ColumnCount = 6

.ColumnHeads = False

.ColumnWidths = "50"

.RowSource = "RDATA"

.BoundColumn = 0

End With

End Sub

Kode Kategori Untuk ComboBox1

Sub Kategori()

Dim i As Integer

Dim Ws As Worksheet: Set Ws = Sheet1

With UserForm1.ComboBox1

For i = 3 To 6

.AddItem Ws.Cells(2, i)

Next i

End With

End Sub

• Tempatkan Kode di UserForm_Initializ Berikut ini

Private Sub UserForm_Initialize()

Call ListData1

Call Kategori

Call RemoveCaption(UserForm1)

End Sub

• Klik kanan Label2 yaitu yang Caption "Cari" pilih View Code dan Tempatkan Kode berikut ini 

Private Sub Label2_Click()
Dim Ws As Worksheet: Set Ws = Sheets("DATA")
Dim WsRekap As Worksheet: Set WsRekap = Sheets("LAPORAN")
Dim R As Range: Set R = Ws.Range("RDATA")
Dim RFilter As Range: Set RFilter = Ws.Range("K1:K2")
Dim RCari As Range: Set RCari = Ws.Range("K2")
Dim C As Variant
If Ws.FilterMode Then Ws.ShowAllData
If UserForm1.ComboBox2.Text = "" Then
    MsgBox "Pilih Rekap Laporan Terlebih Dahulu..!!", 64, "Filter Data"
    Exit Sub
End If
        UserForm1.ComboBox2.Text = RCari
        R.AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=RFilter, CopyToRange:=WsRekap.Range("B3:G3"), Unique:=False
ListBox1.RowSource = "RLAPORAN"
End Sub

• Label3  yang Captionya "Tampil Semua" Klik kanan pilih View Code dan pasang kode dibawah ini 

Private Sub Label3_Click()
Call ListData1

End Sub

• Selesai dech..!!! Bingungkan?? Yang nulis ajha bingung..!!! Biar ngak bingung download ajha  file yang udah siap saya buat. dikotak-katik ajha sendiri. klo ada kendala tulis di komentar..!!

Download  File Cari Data "ComboBox Bertingkat"

Baca Juga : Untuk Sembunyikan Application Title

Aplikasi Seleksi Pendaftaran Siswa Baru

Aplikasi Seleksi Siswa Baru - Merupakan aplikasi yang dapat digunakan untuk pendataan seleksi siswa baru. Dengan Aplikasi ini maka tugas Panitia penerimaan siswa baru dapat dijalankan dengan mudah. 

Filtur :

1. Input Data Ke Database
2. Report Laporan Absensi dan Login Ke Database
3. Setting Profil Sekolah/Madrasah dan Panitia Seleksi
4. Mendukung Export Data Ke WorkBook Baru Format Excel
5. Print Kartu Peserta Seleksi

Download : Aplikasi Seleksi Siswa Baru Free Trial

Harga Rp. "DONASI"

Programmer

Hp. 0811-68-22-0-23

Pin. 5AEC40B3

Sembunyikan UserForm Caption/Application Title VBA Excel

Perhatikan gambar gif diatas..!! lihat perbedaan pada Judul Aplikasinya, yang pertama ada dan bisa digeser-geserkan jika kita mau pindahkan letak UserForm. Sedangkan yang kedua tidak ada, dan UserForm Aplikasinya tidak dapat dipindahkan. 

Langkah-langkah Sembunyikan Judul Aplikasi/UserForm Caption

• Download Sample Filenya Header Titleh Aplikasi 
• Buka Visual Basic selanjutnya tambahkan modul dan letakkan kode berikut di dalam modul

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Sub RemoveCaption(objForm As Object)
    Dim lStyle          As Long
    Dim hMenu           As Long
    Dim mhWndForm       As Long
     
    If Val(Application.Version) < 9 Then
        mhWndForm = FindWindow("ThunderXFrame", objForm.caption) 'XL97
    Else
        mhWndForm = FindWindow("ThunderDFrame", objForm.caption) 'XL2000+
    End If
    lStyle = GetWindowLong(mhWndForm, -16)
    lStyle = lStyle And Not &HC00000
    SetWindowLong mhWndForm, -16, lStyle
    DrawMenuBar mhWndForm
End Sub

• Selanjutnya tempatkan kode berikut pada UserForm_Initialize

Call RemoveCaption(UserForm)

• Selesai...!! Bila anda menempatkan kode dengan tepat maka tampilan UserForm VBA Excel akan seperti gambar gif yang diatas.