Efek Loading Di Exel (Plus File Contoh)

Selamat datang di Blog Aplikasi Excelku. Tak lupa Saya sampaikan ucapan terimakasih sebanyak-banyaknya kepada Anda semuanya yang sudah mengunjungi blog sederhana Saya ini. Pada artikel/postingan kali ini Saya akan mebahas mengenai Macro VBA Excel, dan yang menjadi topik pembahasannya adalah Efek Loading.

Pastinya Sobat Blogger semuanya sudah tahu apa itu Efek Loading, sebuah tampilan yang muncul pertama kali pada saat kita membuka sebuah aplikasi. Dan disini Saya akan memberikan sebuah tutorial sederhana tentang bagaimana membuatnya dengan menggunakan Aplikasi Ms. Excel tentunya.

Disini Saya akan memberikan sebuah code/scrypt Macro yang bisa Sobat Blogger gunakan untuk membuat Efek Loading tersebut tentunya dengan sedikit langkah-langkah dalam menerapkannya kedalam lembar kerja Ms. Excelnya,.. 😂😂😂

Untuk versi Videonya bisa Sobat Blogger melihat melalui video di bawah ini :

Kemudian untuk cara/langkah-langkahnya seperti berikut ini :

1. Buka Aplikasi Ms. Excelnya;

2. Tekan tombol Kombinasi Alt+F11 (pada keyboard) atau juga klik pada Menu Developer, kemudian klik pada tombol Visual Basic, jika di Ms. Excel Sobat Blogger belum ada Menu Developer silahkan baca DISINI.

3. Maka secara otomatis akan terbuka jendela VBA Project Aplikasi Excelnya, kemudian didalam halaman VBA Projectnya silahkan sisipkan sebuah Userform, caranya klik pada pada menu Insert, kemudian klik/pilih pada opsi Userform :

4. Ubah nama Userform1 tadi menjadi frmLoad, caranya dengan mengubanya melalui Properties dari UserForm1 tadi :

5. Selanjutnya adalah sisipkan sebuah label kedalam Userform (frmLoad) tadi, caranya klik pada toolbox yang secara otomatis muncul jika kita sedang mengaktifkan/membuka sebuah userform. Kemudian klik pada tombol Label :

Silahkan drag sehingga ukurannya sesuai dengan yang kita inginkan.

6. Kemudian hapus teks yang secara otomatis/default muncul didalam label tersebut (Label1) caranya dengan menghapusnya melalui Properties dari Label tadi pada baris Caption, perhatikan gambar di bawah ini :

Sehingga pada label tadi akan menjadi seperti pada gambar di bawah ini :

Silahkan edit seperti ukuran font untuk label tersebut dengan cara klik pada properties label kemudian klik pada tombol yang ada di opsi Font :

Tampilan selanjutnya :

Akhiri dengan klik pada tombol OK
Ubah juga nama Label1 menjadi teksnya, caranya masih didalam Properties Label1, kemudian ubah namanya pada opsi/baris Name :

7. Buka Properties frmLoad, kemudian Copas Code/Scrypt Macro di bawah ini kedalam frmLoad tersebut :

Private Sub UserForm_Activate()
'aplikasiexcelku.blogspot.com
Application.Wait (Now + TimeValue("00:00:01"))
    frmLoad.teksnya.Caption = "Menyiapkan Aplikasi..."
    frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    frmLoad.teksnya.Caption = "Menyiapkan Aplikasi........."
    frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    frmLoad.teksnya.Caption = "Menyiapkan Aplikasi........."
    ''frmLoad.Repaint
    ''Application.Wait (Now + TimeValue("00:00:01"))
    ''frmLoad.teksnya.Caption = "Creating Forms..."
   frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    ''frmLoad.teksnya.ForeColor = &HFF0000
    frmLoad.teksnya.Caption = "Memuat Aplikasi......"
    frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    Unload frmLoad
    Application.DisplayFormulaBar = False
    Application.Wait (Now + TimeValue("00:00:01"))
    frmLoad.teksnya.Caption = "Menyiapkan Aplikasi..."
    frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    frmLoad.teksnya.Caption = "Menyiapkan Aplikasi.........."
    frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    frmLoad.teksnya.Caption = "Menyiapkan Aplikasi.........."
    ''frmLoad.Repaint
    ''Application.Wait (Now + TimeValue("00:00:01"))
    ''frmLoad.teksnya.Caption = "Creating Forms..."
    frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    ''frmLoad.teksnya.ForeColor = &HFF0000
    frmLoad.teksnya.Caption = "Memuat Aplikasi.............."
    frmLoad.Repaint
    Application.Wait (Now + TimeValue("00:00:01"))
    Unload frmLoad
    End Sub

Sehingga menjadi seperti pada gambar di bawah ini :

8. Selanutnya adalah klik dua kali/double click pada ThisWorkbook, kemudian copas code/scrypt macro di bawah ini kedalam ThisWorkbook tersebut :

Private Sub Workbook_Open()
frmLoad.Show
End Sub

Sehingga seperti gambar di bawah ini :

8. Simpan file/lembar kerja tadi, untuk nama bebas namun pada opsi SaveAsType, silahkan pilih menjadi Excel Macro-Enabled Workbook

9. Tutup File/lembar kerja tadi, kemudian buka kembali jangan lupa aktifkan/enable kan Macro pada Excelnya

Download File Sample

Demikain artikel/potingan mengenai Cara Membuat Efek Loading di Excel, mudah-mudahan apa yang sudah Saya sampaikan melalui artikel/postingan kali ini bisa bermanfaat untuk kita semuanya. Sekian, dan terimakasih.

Share :