VBA 组合框不允许我继续

Question

我的项目使用 VBA ComboBox，用于打开另一个工作簿（工作簿的选择）。它使用 VLookUp 来获取工作簿位置。该代码按预期工作，但在打开选定的工作簿后，我无法在新打开的工作簿中输入任何数据。如果我返回带有组合框的工作簿并关闭组合框，我就可以在新打开的工作簿中输入数据。组合框似乎保持活动状态，并且在手动关闭之前不允许我执行任何操作。

如何停止组合框？

下面是我的代码：

Private Sub CommandButton_Click()
    Dim w As String
    Dim s As String
    
    w = cboProperty.Text
    
    Set myrange = Range("a1:b8")
    
    s = Application.WorksheetFunction.VLookup(w, myrange, 2, False)
        
    Workbooks.Open s
End Sub

我做了很多尝试来解决这个问题，但没有成功。

Answer 1

我认为即使在打开新工作簿后，组合框也可能会保持焦点。您可能需要添加一行代码以确保 ComboBox 在打开新工作簿后失去焦点。打开新工作簿后，您可以尝试使用

.SetFocus

方法将焦点设置到另一个控件或对象。