Progress Bar Di Worksheet

Membuat Progress bar di sebuah cell active sheet cukup mudah
Pastekan kode berikut pada sebuah modul


Sub tes()
Dim i As Integer, j As Integer
For i = 4 To 12
    For j = 1 To 100
  Cells(i, 2).Value = j
Next j
  Next i
ActiveSheet.Range("B4:B12").Value = ""
Call tes2
End Sub

Sub tes2()
Dim i As Integer, j As Integer
For i = 4 To 20
    For j = 1 To 100
  Cells(i, 5).Value = j
Next j
  Next i
ActiveSheet.Range("e4:e20").Value = ""
End Sub

Nilai yang dihasilkan dari kode tersebut akan menjadi acuan cell progress bar denga rumus  = a4 Kemudian kolom progressbar  diatur conditional formatting

Download contoh sampelnya file xlsm pada tautan berikut dibawah ini !

Silahkan dikembangkan dan Semoga bermanfaat !

proggres bar