在用户窗体组合框中使用 INDEX 和 MATCH 函数

Question

您好，我需要一些帮助才能开始。我有一个适用于工作表的公式，但我不知道如何将其转换为 VBA 代码，以便为我填充组合框。

我已经试过了，它用 N/A 值而不是我想要的值填充了组合框：

 Dim ReturnVal As Variant

    ReturnVal = Evaluate("=INDEX('Teams'!B2:S21,MATCH(1,(""" & Me.Select_Team.Value & """ ='Teams'!B3:S3),0))")

    If Not IsError(ReturnVal) Then
        Me.Team_Leader.Value = ReturnVal
    Else
        Me.Team_Leader.Value = "N/A"
    End If

这是适用于 excel 工作表的公式。

公式：

=INDEX(Teams!B2:S21,1,MATCH('Ticket Pools'!J6,Teams!B3:S3,0))

这将搜索团队的名称并从一个范围中调出分配给他们的团队负责人。

用户窗体称为 "Edit_Teams"，上面有一个组合框 "Team_leader"，我希望在其中填充组合框。组合框已加载，所以我只使用：

"Me.Team_Leader.Value = ReturnVal"

有人可以帮忙吗？

Answer 1

ReturnVal = Evaluate("=INDEX('Teams'!B2:S2,MATCH(""" & Me.Select_Team.Value & """,'Teams'!B3:S3,0))")

–斯科特·克兰纳（c.f。评论）

这个有效（以防有人需要复制它）

在用户窗体组合框中使用 INDEX 和 MATCH 函数

Using INDEX & MATCH Function in a Userform Combobox

excel

vba

combobox

userform