Excel VBA - Progress Bar Control (Imitation of Audio Equalizer Using Multiple Progress Bars)

💡 Source Code: Function UDF_SHUFFLE_NUMBERS(ByVal mynum As Byte) As String Dim i As Byte, n As String, arr() As String, arr_i As Byte, temp_val As Byte, r As Byte For i = 1 To mynum n = n & i & "," Next i n = Left(n, Len(n) - 1) arr = Split(n, ",") For arr_i = 0 To mynum - 1 temp_val = arr(arr_i) r = WorksheetFunction.RandBetween(0, mynum - 1) arr(arr_i) = arr(r) arr(r) = temp_val Next arr_i n = Empty For arr_i = 0 To mynum - 1 n = n & arr(arr_i) & "," Next arr_i n = Left(n, Len(n) - 1) UDF_SHUFFLE_NUMBERS = n End Function Private Sub UserForm_Activate() With Me .Left = Application.Left .Width = Application.Width .Height = Application.Height .Top = Application.Top End With End Sub Private Sub CommandButton1_Click() If TextBox1.Value ◀▶ "" Then Dim pb As Byte, pblen As Integer, pb_rep As Byte, i As Long, sn() As String For pb_rep = 1 To 20 sn = Split(UDF_SHUFFLE_NUMBERS(15), ",") For pb = 1 To 15 pblen = WorksheetFunction.RandBetween(50, 390) Me.Controls("ProgressBar" & sn(pb - 1)).Height = pblen Me.Controls("ProgressBar" & sn(pb - 1)).Max = TextBox1.Value Next pb For pb = 1 To 15 For i = 0 To TextBox1.Value Me.Controls("ProgressBar" & sn(pb - 1)).Value = i Next i Next pb Next pb_rep End If End Sub -------------------------------------------------------------------------------------------- #excelvbatutorial #msexcel #msexceltutorial #msexcelcourse #vba #vbatutorial #excelvba #excelvbatutorial #microsoftexceltutorial #tutorial #exceltutorial #excelvbatutorial #vbatutorial #progressbar #excelprogressbar #excelvbaprogressbar #vbaprogressbar #userform #multipleprogressbars #progressbarcontrol #commandbutton #textbox #textboxexcel