从VBA组合框打开图纸

Question

我的数据表中有199个供应商名称。他们每个人都有自己的电子表格。正如你所猜测的，我需要通过点击手动找到必要的电子表格。那么，我如何通过组合框使用VBA实现流程自动化呢？

Answer 1

谢谢大家。

我用Listbox解决了这个问题。

Private Sub TextBox17_Change()
Dim i As Long
Me.TextBox17.Text = StrConv(Me.TextBox17.Text, 1)
Me.ListBox4.Clear
For i = 2 To Application.WorksheetFunction.CountA(Sayfa1.Range("A:A"))
a = Len(Me.TextBox17.Text)
'If Left(Sayfa2.Cells(i, 3).Value, a) = Left(Me.TextBox17.Text, a) Then
If Sayfa1.Cells(i, 1).Value Like "*" & TextBox17.Text & "*" Then
Me.ListBox4.AddItem Sayfa1.Cells(i, 1).Value
Me.ListBox4.List(ListBox4.ListCount - 1, 3) = Sayfa1.Cells(i, 1).Value
End If
Next i
End Sub

Private Sub ListBox4_Click()
Dim x As Variant
x = ListBox4.Text
Sheets(x).Select
Unload Me
End Sub