Tampilan Loading Di Excel

 Assalamu'alaikum Wr. Wb. Selamat datang kembali di Blog Aplikasi Excelku : Berbagi Tutorial dan Aplikasi Excel, pada kesempatan kali ini kembali Saya akan berbagi sebuah tutorial sederhana sekaligus contoh file mengenai Macro VBA Excel. Dan sesuai dengan judul artikel/postingan ini, yang akan Saya bagikan adalah Tampilan Loading Di Excel, tentunya dengan memanfaatkan Macro VBA didalamnya.

Tampilan Loading yang Saya maksud disini adalah tampilan awal yang muncul pada saat kita membuka sebuah file atau aplikasi yang kita buat menggunakan Aplikasi Excel, untuk lebih jelasnya Sobat Blogger bisa melihat gambar animasi di bawah ini :

Dan berikut ini merupakan langkah-langkah dalam membuatnya :

1. Buat sebuah UserForm dengan cara klik pada menu/tab Developer kemudian klik pada Visual Basic atau bisa juga dengan menekan tombol kombinasi Alt+F11 pada keyboard, selanjutnya didalam halaman Visual Basic Excel kita klik pada menu insert kemudian pilih Userform. Silahkan buat sebuah UserForm sesuai dengan keinginan Sobat Blogger (tinggi dan panjangnya) kemudian ubah caption dari Userform tersebut menjadi Loading ...

 

2. Selanjutnya sisipkan sebuah label kedalam Userform tadi, kemudian hapus caption dari label yang baru kita sisipkan tadi :

Ubah juga nama (Name) dari label tersebut menjadi "teksnya", perhatikan gambar di bawah ini :

Sesuaikan juga huruf (jenis font), warna, dan juga ukuran dari font agar nantinya bisa serasi dengan ukuran UserForm yang kita buat.

3. Langkah berikutnya silahkan Copas kode/Script Macro di bawah ini kedalam UserForm yang tersebut :

Private Sub UserForm_Activate()

'https://aplikasiexcelku.blogspot.com

Application.Wait (Now + TimeValue("00:00:01"))

    UserForm1.teksnya.Caption = "Menyiapkan Aplikasi..."

    UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    UserForm1.teksnya.Caption = "Menyiapkan Aplikasi........."

    UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    UserForm1.teksnya.Caption = "Membaca DataBase........."

    ''UserForm1.Repaint

    ''Application.Wait (Now + TimeValue("00:00:01"))

    ''UserForm1.teksnya.Caption = "Creating Forms..."

   UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    ''UserForm1.teksnya.ForeColor = &HFF0000

    UserForm1.teksnya.Caption = "Memuat Aplikasi......"

    UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    Unload UserForm1

    Application.DisplayFormulaBar = False

    Application.Wait (Now + TimeValue("00:00:01"))

    UserForm1.teksnya.Caption = "Menyiapkan Aplikasi..."

    UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    UserForm1.teksnya.Caption = "Membaca DataBase.........."

    UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    UserForm1.teksnya.Caption = "Menyiapkan Aplikasi.........."

    ''UserForm1.Repaint

    ''Application.Wait (Now + TimeValue("00:00:01"))

    ''UserForm1.teksnya.Caption = "Creating Forms..."

    UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    ''UserForm1.teksnya.ForeColor = &HFF0000

    UserForm1.teksnya.Caption = "Memuat Aplikasi.............."

    UserForm1.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    Unload UserForm1

    End Sub

 4. Kemudian agar nantinya UserForm tersebut muncul diawal pada saat kita membuka file tersebut, silahkan Sobat Blogger Copas kode/Script Macro di bawah ini kedalam ThisWorkBook :

Private Sub Workbook_Open()
'https://aplikasiexcelku.blogspot.com
UserForm1.Show
End Sub

Nah, untuk bisa melihat hasilnya silahkan simpan file dalam format *.xlsm (Excel Macro-Enabled Workbook). Mungkin hanya itu yang bisa Saya sampaikan pada kesempatan kali ini mengenai Tampilan Loading Di Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan Wassalamu'alaikum Wr. Wb. Salam Belajar!!!

Download Sample Tampilan Loading Excel

Share :