Membuat Splash Screen VBA Excel

 Aplikasi Excelku. Selamat datang kembali di Blog Aplikasi Excelku : Berbagi Tutorial Dan Aplikasi Excel, sebelumnya Saya sudah memposting mengenai Cara Membuat Efek Loading Di Excel. Dan pada kesemptan kali ini kembali Saya akan memberikan sebuah tutorial sederhana dengan tema yang sama, yaitu Membuat Splash Screen VBA Excel.

Splash Screen adalah efek loading dimana nantinya pada userform akan tampil sebuah animasi, antara postingan yang terdahulu dengan postingan kali ini tentunya berbeda, berbeda dalam tampilan animasinya. Jika pada postingan yang terdahulu animasinya dalam bentuk teks/tulisan, kali ini menggunakan tampilan garis berjalan. Untuk hasil akhirnya bisa Sobat Excel lihat pada tampilan awal Aplikasi DataBase Siswa (ADABS) Versi 1.1 build 2021.1a.

Membuat Splash Screen VBA Excel

Untuk bisa membuatnya silahkan lakukan langkah-langkah di bawah ini:

Userform

1. Buat/sisipkan sebuah userform di halaman Visual Basic Ms. Excel kita, untuk ukuran ataupun warna bisa disesuaikan dengan keinginan masing-masing.

2. Didalam Useform tersebut sisipkan sebuah label dan berinama label terebut menjadi FrameProgress. Untuk captionnya kosongkan, kemudian ubah menjadi transparan dan sesuaikan panjangnya menyesuaikan panjang/lebar dari Userform.

2. Sisipkan lagi sebuah label, ubah nama label tersebut menjadi LabelProgress, untuk captionnya kosongkan, kemudian beri warna backcolornya menjadi biru (bebas).

Untuk tahap pembuatan Userform selesai. 

Script/Kode Macro:

Silahkan Sobat Excel Copas script/kode macro di bawah ini kedalam Userform:

Private Sub UserForm_Activate()

'https://aplikasiexcelku.blogspot.com

Call SplashScreen

End Sub

Sub SplashScreen()

'https://aplikasiexcelku.blogspot.com

LabelProgress.Width = 0

Dim Zähler, RowMax, ColMax, Fertig As String

Dim r, C As Integer

    Zähler = 1

    RowMax = 10000

    ColMax = 1

    For r = 2 To RowMax

        For C = 1 To ColMax

           Zähler = Zähler + 1

        Next C

        Fertig = Zähler / (RowMax * ColMax)

        With UserForm1

            .LabelProgress.Width = Fertig * (.FrameProgress.Width - 5)

        End With

        DoEvents

    Next r

    Unload Me

End Sub

Jika semua sudah, silahkan jalankan dengan menekan tombol F5 pada keyboard atau klik pada tombol run. Jika semua dilakukan sesuai dengan langkah-langkah di atas, maka hasilnya akan seperti pada gambar di bawah ini:

Demikian mengenai Membuat Splash Screen VBA Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Dan Bagi Sobat Excel yang membutuhkan contoh/sample filenya untuk dipelajari, silahkan unduh/download melalui link yang sudah Saya sediakan di akhir artikel ini. Terimakasih dan Salam Belajar!!!

#Download Sample Splash Screen VBA Excel

Share :