Cara membuat ProgressBar dari Excel Macro menggunakan Visual Basic Application

Assalamualaikum teman-teman semuanya.

Berjumpa lagi dengan Niruku Entertainment's Blog. Now, i'll give tips on how to enhance the appearance of the Login Form. Tapi, sebelum itu, bagi teman-teman yang baru berkunjung ke blog ini, alangkah lebih baiknya untuk mengikuti postingan saya sebelumnya agar pada postingan ini dan postingan selanjutnya dapat teman-teman ikuti secara seksama, karena nantinya setiap postingan baru mengenai Microsoft Excel VBA Macro ini akan berkesinambungan antar satu dengan lainnya.

Silahkan kunjungi postingan saya yang sebelumnya :

Cara Membuat Form Login Dari Excel Macro menggunakan Visual Basic Application (1)

Cara membuat Tambah Admin dari Excel Macro menggunakan Visual Basic Application (2)

Oke langsung saja, pada postingan ini saya akan memberikan 2 materi yaitu Cara Mempercantik Form Login dan Merancang Sebuah ProgressBar, yang dimana ProgressBar yang kita rancang bukan menggunakan Component yang telah disediakan oleh Visual Basic for Application. Melainkan kita akan merancang sendiri menggunakan Component-Component Standar yang ada. Penasaran ? Scroll it down 😃

Materi Pertama :

• Download lah terlebih dahulu file ico yang nantinya akan kita jadikan sebagai icon pada setiap Button yang kita gunakan. Teman-teman bisa mencarinya di google, atau jika ingin yang lebih simple, saya sudah sediakan beberapa icon yang saya gunakan sendiri. Silahkan download di Icons Pack .
• Setelah itu, extract icon tersebut ke dalam sebuah folder yang mudah teman-teman ingat nantinya. Karena nanti saat kita ingin memasukkan icon ke dalam sebuah Button, kita harus mencari dimana icon tersebut kita letak.
• Kemudian buka File Excel Macro teman-teman, dan langsung masuk ke Visual Basic.
• Klik FormLogin, kemudian klik BTLogin dan pada jendela Properties carilah Picture dan klik simbol 3 titik. Lihat pada gambar dibawah :

Catatan :

- Perlu diingat, bahwasanya file yang dapat dibaca hanyalah file dengan ekstensi .ico.

- Apabila saat menambahkan icon ke dalam Button , namun teman-teman mendapatkan pesan Invalid Picture maka silahkan teman-teman cari icon dengan esktensi filenya .ico dan piksel yang berukuran 32 x 32 (32px).

• Silahkan teman-teman design sebagus mungkin pada semua Button yang ada di FormLogin, KonfirmasiPass dan juga TambahAdmin

Materi Kedua :

Nah sekarang saatnya bagian merancang sebuah ProgressBar dengan racikan kita sendiri. Silahkan simak langkah-langkahnya dengan seksama agar dapat berjalan dengan lancar.

• Tambahkan sebuah UserForm baru dan ganti namanya menjadi form ProgressBar. Begitu juga dengan Caption nya diganti menjadi Loading.
• Tambahkan Label1, pada Caption hilangkan, dan atur Width menjadi 200.
• Tambahkan Label2, pada Caption hilangkan, BackColor ganti menjadi warna Hijau dan atur Width menjadi 5. Setelah itu, letakkan Label2 diatas Label1, Untuk lebih jelasnya lihat pada gambar dibawah ini :

• Jika sudah selesai semua, saatnya kita masuk ke bagian coding. Klik 2x pada Background Form ProgressBar dan ganti eventnya menjadi Activate. Ini berguna nantinya saat Form ProgressBar ini aktif, maka syntax yang ada pada Sub ProgressBar_Activate akan dieksekusi terlebih dahulu. Untuk lebih jelasnya lihat pada gambar dibawah ini :

• Setelah itu isikan lah coding berikut:

Private Sub UserForm_Activate()

    Dim Reminder As Long

    Dim i As Long, j As Long

    Reminder = 0

    For i = 1 To 200

        ProgressBar.Label2.Width = ProgressBar.Label2.Width + 1

        If i Mod 2 = 0 Then

            Reminder = Reminder + 1

            Progress.Caption = Reminder & " % Complete"

        End If

        For j = 1 To 600

            DoEvents

        Next j

    Next i

    Unload Me

    Application.Visible = True

End Sub

• Jika sudah, Close pada Form ProgressBar dan kita akan berpindah ke bagian FormLogin.
• Klik 2x pada BTLogin, pada bagian syntax MsgBox "Login Berhasil", vbInformation, "Sukses" sampe ke Application.Visible = True silahkan teman-teman hapus dan ganti menjadi Unload Me dan ProgressBar.Show. Untuk lebih jelasnya silahkan lihat gambar dibawah ini :

Catatan :

Maksud dari coding diatas adalah, apabila Login berhasil, maka Form ProgressBar akan tampil terlebih dahulu, setelah ProgressBar selesai, maka Excel Macro akan tampil.

• Setelah semuanya selesai, silahkan Save dan Close. Kemudian jalankan kembali file Excel Macro dan silahkan lakukan Login

Apabila teman-teman kurang mengerti dengan penjelasan dari postingan ini, silahkan simak video berikut:

Oke itu saja terlebih dahulu materi Microsoft Excel VBA Macro yang dapat saya berikan pada postingan ini. Terus pantengin New Post dari Niruku Entertainment's Blog dan jangan lupa Subscribe Channel Niruku Entertainment pada link di bawah ini :

www.youtube.com/NirukuEntertainment

(jangan lupa nyalakan Lonceng agar dapat mengikuti video-video terbaru saya)

Terima kasih semuanya, sampai jumpa di Materi Pembelajaran Selanjutnya. Wassalamualaikum 😃