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