Excel VBA：RowSource绑定的ListBox双击获取列号方法咨询

首先得明确：标准的ListBox1_DblClick事件本身并没有直接提供列索引参数，因为这个事件只关注双击动作，不传递具体点击的列信息。不过我们可以借助Windows API获取鼠标位置，再结合ListBox的列宽计算出点击的列，完美解决你的需求。

下面是具体的实现步骤，直接套用就行：

1. 声明API函数和类型 #

在你的窗体模块顶部（注意是窗体模块，不是标准模块）添加以下代码，用来获取鼠标位置并转换为ListBox内部坐标：

Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare PtrSafe Function ScreenToClient Lib "user32" (ByVal hWnd As LongPtr, lpPoint As POINTAPI) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

如果你用的是32位Office，可以把PtrSafe和LongPtr换成Long，上面的代码默认兼容64位环境。

2. 编写获取列索引的函数 #

接着添加一个自定义函数，用来计算鼠标点击的列：

Private Function GetListBoxClickedColumn(lb As MSForms.ListBox) As Integer
    Dim pt As POINTAPI
    Dim colLeft As Integer
    Dim i As Integer
    Dim colWidths() As String
    Dim colWidth As Integer
    
    ' 处理列宽字符串，自动兼容逗号或分号分隔的格式
    colWidths = Split(Replace(lb.ColumnWidths, ",", ";"), ";")
    
    ' 获取当前鼠标的屏幕位置
    GetCursorPos pt
    ' 转换为ListBox控件内部的坐标
    ScreenToClient lb.hWnd, pt
    
    ' 遍历每一列，判断鼠标落在哪个列范围内
    colLeft = 0
    For i = 0 To lb.ColumnCount - 1
        colWidth = CLng(colWidths(i))
        ' 如果鼠标X坐标小于当前列的右边界，返回当前列索引（从0开始）
        If pt.X < colLeft + colWidth Then
            GetListBoxClickedColumn = i
            Exit Function
        End If
        colLeft = colLeft + colWidth
    Next i
    
    ' 如果鼠标超出所有列范围，返回-1表示无效
    GetListBoxClickedColumn = -1
End Function

3. 修改双击事件代码 #

把你原来的双击事件代码改成这样，就能同时获取行号和列号了：

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim rowNR As Integer
    Dim colNr As Integer
    
    rowNR = ListBox1.ListIndex
    colNr = GetListBoxClickedColumn(ListBox1)
    
    ' 确保行和列都有效
    If rowNR <> -1 And colNr <> -1 Then
        ' 这里可以替换成你需要的操作，比如获取对应单元格的值
        MsgBox "行号（从0开始）：" & rowNR & vbCrLf & _
               "列号（从0开始）：" & colNr & vbCrLf & _
               "对应值：" & ListBox1.List(rowNR, colNr)
    Else
        MsgBox "未选中有效的行或列"
    End If
End Sub

一些注意事项 #

• 这个方法依赖于你已经正确设置了ListBox的ColumnCount和ColumnWidths属性，如果列宽是自动调整的，记得先手动设置好具体的宽度值，否则计算会出错。
• 代码里的列索引是从0开始计数的，如果你需要从1开始，只需要把colNr加1就行（比如colNr + 1）。
• 不管你的ListBox是单选还是多选模式，这个方法都能正常工作——双击某一行的某一列时，ListIndex会自动更新为双击的行索引，同时函数会返回点击的列索引。

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