组合框中的选定值以在 Excel VBA/用户表单中打开另一个工作表

Question

从组合框中选择值后如何应用另一种方法？ 我在工作表“Home”中有一个名称列表，对于范围“C”中的每个名称，它们是一个链接的工作表，其中包含图像中提到的该名称的信息。

Excel sheet picture

我做了一个用户表单，其中包含一个组合框和一些引用用户名信息的标签，当我从组合框中选择用户名时，我需要 Excel 将打开该用户名的页面并检索信息从那里开始。

Userform

另外，我在从“主页”页面选择名称时遇到问题。我用了这段代码

cboUserList.List = wsHome.Range("c12", Range("c12").End(xlDown)).Value

但它显示对象'-Worksheet'的方法'范围'失败。

这是我的命令按钮“导入”的代码

Private Sub cmdImport_Click()

cboUserList.List = wsHome.Range("c12", Range("c12").End(xlDown)).Value

lstActivationDate.List = ActiveSheet.Range("h2", Range("h2").End(xlDown)).Value

lstPaidDate.List = ActiveSheet.Range("c2", Range("c2").End(xlDown)).Value

lblUserID.Caption = [f2]

lblsubscType.Caption = ActiveSheet.Range("i2").End(xlDown).Value

lblamount.Caption = ActiveSheet.Range("j2").End(xlDown).Value

lblamountpaid.Caption = ActiveSheet.Range("d2").End(xlDown).Value


lbldate.Caption = Format(Date, "dd-mmm-yyyy")

lbldebts.Caption = Range("f5:f6").Item(1).Value

lblNotes.Caption = [f13]


End Sub

Answer 1

让您的代码工作的一个想法：将 wsHome 也添加到第二个范围。 cboUserList.List = wsHome.Range("c12", wsHome.Range("c12").End(xlDown)).Value

要填充组合框，请尝试使用cboUserList.AddItem(<String>)。循环遍历您的范围以将所有元素放入 ComboBox。或者尝试使用包含您的姓名的数组.List。

要切换到用户的工作簿，您必须在 userform 代码中使用这段代码：

Private Sub cboUserList_Change()
     Worksheets(Cstr(wsHome.Range("c12", wsHome.Range("c12").End(xlDown)).Find(cboUserList.Value, LookIn:=xlValues).Offset(0, 1).Value)).Activate
End Sub