Membuat Splash Screen Menggunakan VBA Excel (Versi 1)
MlatenMania.com - Splash screen atau layar pembuka adalah tampilan awal yang muncul saat aplikasi diluncurkan. Layar ini berfungsi memberi waktu untuk memuat dan menginisialisasi aplikasi.
Tujuan splash screen Memberi tahu pengguna bahwa aplikasi sedang dimuat, Meningkatkan pengalaman pengguna saat aplikasi startup, Mempromosikan penawaran, Menampilkan peringatan atau pernyataan sanggahan, Menarik perhatian pada pengumuman yang sensitif terhadap waktu.
Karakteristik Splash Screen
- Biasanya muncul selama beberapa detik sebelum antarmuka atau konten utama dimuat.
- Bisa hilang dengan sendirinya, atau mengharuskan pengguna menekan tombol escape atau mengeklik tombol tutup.
Cara Membuat Tampilan Splash Screen Menggunakan VBA Excel
Pada kesempatan ini kami akan berbagi sebuah tutorial mengenai bagaimana cara untuk membuat sebuah tampilan Splash Screen dengan menggunakan bahasa pemprograman VBA (Visual Basic for Aplication) pada aplikasi Excel. Berikur merupakan tampilan dari splash screen versi 1 ini:
Seperti halnya judul artikel ini, tampilan splash screen yang akan kami bagikan adalah tampilan spalsh screen versi 1 (satu/pertama). Karena nantinya kami akan membagikan juga versi ke-2 nya.
Langkah-Langkah Membuat Tampilan Splash Screen VBA Excel (Versi1)
a. Membuat Userform
1. Buka aplikasi Excel;
2. Kemudian buka lembar kerja VBA (Visual Basic for Aplication) dengan cara menekan tombol kombinasi "Alt+F11" atau bisa juga dengan klik pada tab menu Developer kemudian klik pada Visual Basic;
3. Setelah kita masuk ke lembar kerja Visual Basic Excel, kita buat sebuah Userform. Untuk ukurannya disesuaikan dengan kebutuhan masing-masing. Caranya klik pada tab menu Insert kemudian pilih/klik Userform.
Keterangan:
- Tinggi = 85,5
- Lebar = 597
Silahkan sesuaikan dengan kebutuhan/keinginan masing-masing.
b. Menyisipkan Frame
Frame ini nantinya akan kita tempatkan di dalam Userform di atas, sebagai efek loading. Untuk menyisipkan frame kita klik pada jendela kecil yang bernama Toolbox, perhatikan gambar di bawah ini:
Untuk ukuran (tinggi dan lebar), efek serta warn sesuaikan dengan kebutuhan/keinginan masing-masing. Dan jangan lupa, hapus caption pada frame sehingga menjadi seperti pada gambar di bawah ini:
c. Menyisipkan Label
Langkah berikutnya adalah menyisipkan label, yang nantinya ada 2 (dua) label yang akan kita sisipkan. Untuk label 1 akan menjadi teks yang bergerak tepat di atas frame yang sudah kita buat pada langkah di atas, dan label 2 akan digunakan untuk membuat teks yang keterangan proses pada saat Splash Screen berjalan.
Untuk menyisipkan label caranya sama seperti pada saat kita menyisipkan frame, yaitu melalui Toolbox, perhatikan gambar di bawah ini:
Untuk ukuran dan warna disesuaikan dengan kebutuhan/keinginan masing-masing, yang pasti untuk label 1 kita letakkan persis di atas frame dan posisikan disebelah kanan, text alignright dan backcolor kuning gelap kemudian untuk label 2 kita letakkan di bawah frame dengan posisi disebelah kiri, text alignleft dan backcolor transparent. Perhatikan gambar di bawah ini:
d. Menyisipkan Module
Sisipkan sebuah module dengan cara klik pada tab menu Insert kemudian pilih/klik Module:
Kemudian silahkan copy dan paste script/kode Macro di bawah ini ke dalam module tersebut:
Option Explicit
'win64
#If Win64 And VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
'win32
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
e. Menyisipkan script/kode Macro ke dalam Userform
Langkah berikutnya adalah kita sisipkan script/kode Macro di bawah ini ke dalam Userform:
Private Sub UserForm_Activate()
'www.mlatenmania.com
Dim i As Integer
For i = 1 To 100
Label1.Width = Int(Label1.Tag * i / 100)
DoEvents
Sleep 30
If i >= 75 Then
Label2 = "Membuka aplikasi..."
ElseIf i >= 45 Then
Label2 = "Progress..."
ElseIf i >= 10 Then
Label2 = "Persiapan..."
End If
Label1 = i & "%"
Next i
Unload Me
End Sub
Private Sub UserForm_Initialize()
'www.mlatenmania.com
Label1.Tag = Label1.Width
Label1.Width = 0
Label2 = ""
End Sub
f. Menyisipkan script/kode Macro ke dalam Workbook
Script/kode Macro ini bertujuan agar nantinya tampilan Splash Screen muncul pada saat pertama kali file dibuka. Silahkan Copy dan Paste Script/kode Macro di bawah ini ke dalam ThisWorkBook:
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.show
Application.Visible = True
End Sub
g. Menyimpan file
Terakhir adalah kita simpan file dalam format Excel Macro-Enabled Workbook (*.xlsm), perhatikan gambar di bawah ini:
Untuk memudahkan Sobat Blogger, sudah kami sediakan template agar bisa dipelajari sendiri. Silahkan download/unduh file-nya melalui tombol download yang sudah kami sediakan di akhir artikel ini. Mungkin hanya itu saja artikel mengenai Membuat Splash Screen Menggunakan VBA Excel (Versi 1), mudah-mudahan apa yang sudah kami sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian dan terimakasih.
Download Template Splash Screen VBA Excel
Posting Komentar