Combobox – 变化 – 在3或4的值后开火

我有一个macros打开一个用户窗体。 用户窗体包含一个combox。 Combox包含循环中的值，该循环遍历工作簿中所有工作表的所有名称。 表名非常相似，ab100，ab101，ab102等等

当将数字eg102input到combobox值字段中时，会自动findgoogle smartsearch value ab102，并且可以使用buttonOK来打开工作表。

代码工作得很好wir 3digit nums，现在我得到了4digits数量，它不工作。

任何想法如何调整呢？

提前谢谢了

塞巴斯蒂安

Private Sub combSheets_Change() Dim i As Integer If Len(combSheets.Value) >= 3 Then k = ActiveWorkbook.Sheets.Count ReDim strWorksheetsArray(1 To k) For i = 1 To k strWorksheetsArray(i) = Sheets(i).Name Next i If disableChange = True Then disableChange = False Exit Sub Else For i = 1 To k selSt = InStr(1, strWorksheetsArray(i), combSheets.Value) 'InStr searches a string for a substring, returns the substring position if found, or 0 if not found. Use value to determine which text to select (highlight) in the combobox. If selSt <> 0 Then With combSheets .Value = strWorksheetsArray(i) .SelStart = selSt .SelLength = Len(combSheets.Value) - selSt End With Exit Sub End If Next i End If Else End If End Sub