Mengulangi cara membuat loading dengan vba macro, saya sebut mengulangi karena pada awal bulan september yang lalu saya telah membagikan cara membuat loading dengan macro. Perbedaannya sekarang saya akan bagikan pada anda bagaimana cara membuat loading di userform karena sebelumnya loading berada pada workbook.

Untuk membuat loading di userform disini saya tidak menggunakan kontrol progress bar akan tetapi saya menggunakan kontrol frame dan kontrol label, jadi untuk membuat loading di userform tambahkan kontrol label dua buah, frame satu buah
Untuk menampilkan persentase ganti name kontrol label menjadi Teks, dan untuk indikator loading ganti name kontrol label menjadi bar, copy kode macro dibawah ini

Private Sub UserForm_Activate()
Dim i As Integer, j As Integer, pctCompl As Single
Sheet1.Cells.Clear
For i = 1 To 100
For j = 1 To 1000
Cells(i, 1).Value = j
Next j
pctCompl = i
progress pctCompl
Next i
End Sub

Sub progress(pctCompl As Single)
UserForm1.Text.Caption = pctCompl & "% Completed"
UserForm1.Bar.Width = pctCompl * 2
DoEvents
End Sub

Pastekan semua kode macro diatas kedalam userform
Tekan F5 untuk mencobanya.

Keterangan Membuat loading di userform

For i = 1 To 100 Persentase 100%
For j = 1 To 1000 Panjang bar
pctCompl = i Persentase 100%
UserForm1.Bar.Width = pctCompl * 2 Panjang bar

Untuk mempermudah anda dalam memahami cara Membuat loading di userform silahkan download file sampel yang telah saya sediakan pada link download dibawah ini.

Download - Membuat loading di userform

Demikianlah cara membuat loading diuserform semoga bisa dimanfaatkan dengan baik, Follow IG Wasis Zain atau Like fanpage Asis10.com
No comments