如何在VBA用户窗体列表框中引用选中行的指定列值？

1. 确定电话列的索引 #

VBA列表框的列是从0开始计数的，比如你的列表框第1列是客户名、第2列是电话，那电话列的索引就是1，根据你自己的列表框列顺序调整这个数字。

2. 获取选中行的电话值 #

在触发逻辑的事件里（比如列表框的点击事件，或者按钮点击事件），先判断有没有选中行，再取对应列的值：

Dim phoneVal As String
' ListIndex=-1表示没有选中行
If ListBox1.ListIndex <> -1 Then
    ' 把1换成你的电话列实际索引
    phoneVal = ListBox1.Column(1)
End If

3. 替换到XLOOKUP代码里 #

把拿到的phoneVal代入你原来的代码，完整示例（以列表框点击事件为例）：

Private Sub ListBox1_Click()
    Dim phoneVal As String
    If ListBox1.ListIndex <> -1 Then
        phoneVal = ListBox1.Column(1) ' 替换1为电话列索引
        SalesForm.BHSDTAPNAMELF.Value = Application.XLookup(Val(phoneVal), Worksheets("MASTER").Range("S:S"), Worksheets("MASTER").Range("T:T"))
    End If
End Sub

额外说明 #

• 如果列表框允许多选，需要循环遍历选中项：

Private Sub ListBox1_Click()
    Dim i As Integer
    Dim phoneVal As String
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            phoneVal = ListBox1.Column(1, i)
            ' 这里可以根据需求处理每个选中的电话值，比如逐个查询
            SalesForm.BHSDTAPNAMELF.Value = Application.XLookup(Val(phoneVal), Worksheets("MASTER").Range("S:S"), Worksheets("MASTER").Range("T:T"))
        End If
    Next i
End Sub

• 如果MASTER表S列存的是文本类型，去掉Val()，直接用phoneVal作为查找值即可，避免类型不匹配导致查不到。

内容的提问来源于stack exchange，提问作者cheese10234