https://youtu.be/R9Jzz0DmpBk
'code
Dim pro As Integer
Private Sub CommandButton1_Click()
Dim a, b, c, d, e, f, g, h, i As Long
Frame1.Visible = False
Call labelvisibelfalse
pro = 0
ListBox1.Clear
Frame1.Visible = True
Label1.Width = 1
i = Sheet1.Range("A100000").End(xlUp).Row
f = Len(TextBox1.Text)
If TextBox1.Text= "" Then
else
For a = 1 To i
If StrConv(TextBox1.Text, vbProperCase) = StrConv(Left(Sheet1.Cells(a, 1), f), vbProperCase) Then
ListBox1.AddItem Sheet1.Cells(a, 1)
End If
VBA.DoEvents
If b = i / 250 Then
If Label1.Width=250 Then
Label1.Width = 1
Else
Label1.Width = Label1.Width + 1
End If
If e = 250 / 10 Then
e = 1
pro = pro + 1
Call pro_bar_value
Else
e = e + 1
End If
b = 1
Else
b = b + 1
End If
Label2.Caption = "TOTAL ITEM " & i
Label3.Caption = "SERCH ITEM " & a
Label4.Caption = "FOUND OTEM " & ListBox1.ListCount
Label5.Caption = Round(a / (i / 100), 2) & "%"
VBA.DoEvents
Next a
End If
Frame1.Visible = False
End Sub
Private Sub labelvisibelfalse()
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
Label15.Visible = False
End Sub
Private Sub pro_bar_value()
Select Case pro
Case 1: Label6.Visible = True
Case 2: Label7.Visible = True
Case 3: Label8.Visible = True
Case 4: Label9.Visible = True
Case 5: Label10.Visible = True
Case 6: Label11.Visible = True
Case 7: Label12.Visible = True
Case 8: Label13.Visible = True
Case 9: Label14.Visible = True
Case 10: Label15.Visible = True
End Select
End Sub
Private Sub UserForm_Initialize()
Frame1.Visible = False
Call labelvisibelfalse
pro = 0
End Sub