√ Cara Menciptakan Progress Kafetaria 1% - 100% Memakai Userform

Bagaimana cara menciptakan Progress Bar memakai VBA di Ms. Excel 2010? Progress Bar maksudnya yaitu bahwa ada sebuah proses yang sedang berjalan saat membuka sebuah isu hal ini sering kita lihat saat Menginstal sebuah aplikasi gres ke komputer kita dan progress kafe ini biasanya ada yang ibarat kafe yang berjalan dari arah kiri ke kanan dan ada juga yang berupa persentase bahkan ada yang memakai keduanya.

Pada kesempatan kali ini aku akan menciptakan sebuah progress kafe dengan memakai script VBA pada Ms. Excel versi 2010. Progress kafe ini aku definisikan dalam sebuah persentase secara berurut dari 1% hingga 100% dan apabila sehabis mencapai 100% UserForm akan keluar secara otomatis. Lalu bagaimana caranya dan ibarat apa script VBA nya?

Cara Membuat Progress Bar 1% - 100% Menggunakan UserForm

Dalam pembuatan progress kafe ini diharapkan satu buah UserForm dan satu buah Module lalu script VBA dituliskan pada Module tersebut. Yang belum tahu mengenai cara menciptakan UserForm silakan lihat artikel sebelumnya tentang

Pengenalan Dasar Membuat UserForm VBA Excel

Langkah-langkah menciptakan Progress Bar
Pertama silakan buat sebuah UserForm dan ganti Properties UserForm1 menjadi sebagai berikut :

Back Color : &H000000FF&
Captions : Progress

Tahap Berikutnya silakan buat satu buah Label dari ToolBox dan ganti Properties nya menjadi ibarat berikut

Name : LabelProgress
Caption :
BackColor : &H000000FF&

Tahap Ketiga silakan buat sebuah Frame dari ToolBox dan ganti propertiesnya menjadi
Name : FrameProgress
BackColor : &H000000FF&
Label :
For Color : &H00FFFFFF&
Font : Tahoma, Blod, 18

Tahap ke-empat silakan buat satu buah Module lalu ketikkan Script VBA berikut

Sub ShowUserForm()
    UserForm1.Show
End Sub

Sub Main()
    Dim Hitung As Integer
    Dim JmlBaris As Integer, JmlKolom As Integer
    Dim r As Integer, c As Integer
    Dim Aksi As Single

    Application.ScreenUpdating = False
    Hitung = 1
    JmlBaris = 600
    JmlKolom = 50

    For r = 1 To JmlBaris
        For c = 1 To JmlKolom
            Worksheets("sheet3").Cells(r, c) = Int(Rnd * 1000)
            Hitung = Hitung + 1
        Next c

        Aksi = Hitung / (JmlBaris * JmlKolom)

        UpdateProgressBar Aksi
    Next r
    Unload UserForm1
End Sub

Sub UpdateProgressBar(Aksi As Single)
    With UserForm1

        .FrameProgress.Caption = Format(Aksi, "0%")

        .LabelProgress.Width = Aksi * _
            (.FrameProgress.Width - 10)
    End With

    DoEvents
End Sub

Tahap ke-Lima silakan Anda klik kanan pada UserForm lalu pilih View Code dan ketikkan Script VBA berikut

Private Sub UserForm_Activate()
UserForm1.LabelProgress.Width = 0
Call Main
End Sub

Tahap Terakhir silakan RUN lalu lihat hasilnya. Sebuah progres kafe berupa persentase antara 1% hingga dengan 100% akan berjalan secara berurut lalu lihat juga pada Sheet3 terlihat pada range A1:T600 telah terbuat data secara acak

Demikian, gampang bukan? biar bermanfaat, jangan lupa komentarnya ya
Sumber http://www.excel-id.com/