Menambahkan, Label, Dan Frame Di UserForm Macro

    Selamat sore ? Terkait dengan Corat_coretku yang berikutnya, ini merupakan Sambungan Dari Artikel (Menambahkan, Label, Textbook, Dan CommandButton Bagi Pemula.) adalah menambahkan Label, dan Frame membuat aplikasi loading progres, sebernanya sih ini haya sebagai agar Kita mengenal hiasan saja, sebenarnya yang penting adalah aplikasinya yang kita buat mengarah terhadap tujuan pengunaan, lihat gambar dibawa ini adalah 

    Saya menganggap anda yang Ingin belajar sudah mempunyai file latihan yang sudah saya sediakan seperti yang ada di artikel Menambahkan, Label, Textbook, Dan CommandButton Bagi Pemula. jika belum bisa Unduh Disini, kalu Pada artikel yang lalu kita sudah menambahkan  2 label, 2 Lishbox, dan 2 CommandButton, untuk sekarang kita akan menambahkan 1 Label, dan 1 Frame, masih mengunakan file latihan yang sama, ok.. kita mulai.

    Setelah file teruka (jangan lupa Enable Macro dulu) saatnya kita menambah 1 Label, dan 1 Frame.

1. Label Ubalah (Name) Menjadi = Label4/ /Backcolor = &H0000FFFF& / / Bordercolor = &H80000006& // foreColor = &H8000000B& // Caption = (kosongin)

2. Fram1(Name) = Fram1 // Caption = (kosongin) //Backcolor = &H00404040& // foreColor &H000000FF&// bordercolor= &H00C0C0C0&.

masukan kode ini Pada UserForm Activate

Private Sub UserForm_Activate()

    UserForm1.label4.Width = 0

    Call Main

End Sub

Tambahkan kode di bawah ini pada tombol Masukan Data 

Private Sub CommandButton1_Click()

    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

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

        .label4.Width = Aksi * _

            (.Frame1.Width - 10)

    End With

    DoEvents

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Activate()

    UserForm1.label4.Width = 0

    Call Main

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

End Sub

 setelah  selesai saatnya mencoba menjalankanya, Semoga yang mencoba Bisa berhasil namun apabila belum berhasil mungkin karena saya kurang jelas penyampaianya tapi anda bisa unduh Fileya Disini.