एक्सेल में डायनामिक ड्रॉपडाउन खोज सूची में प्रदर्शन समस्या

मैं प्रदर्शन के बारे में नहीं जानता, लेकिन निम्नलिखित को आज़माएं। आपका डेटा पंक्ति 2 से आगे शीट "डीबी" में होना चाहिए। एक combobox के स्थापित, मैं एक टेक्स्टबॉक्स रखता हूं (TextBox1 ) और एक सूची (ListBox1 ) एक UserForm में।

Private Sub TextBox1_Change()
    Dim v As String
    Dim YourInput As String
    Dim iIdx As Long
    Dim CharNumber As Integer

    YourInput = TextBox1.Text

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    ListBox1.Clear

    lLastRow = Worksheets("db").Cells(3, 1).End(xlDown).Row
    CharNumber = Len(YourInput)

    For iIdx = 2 To lLastRow
        v = Worksheets("db").Cells(iIdx, 1).Text
        If LCase(Left(v, CharNumber)) = LCase(YourInput) Then
            ListBox1.AddItem v
        End If
    Next

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

Private Sub ListBox1_Click()
    MsgBox ("Your selection: " & ListBox1.Text)
    'do your stuff
End Sub