列表VBA

Question

我已经将excel中的电子表格数据组织成4列，如何在用户表单的列表框（列列表）中显示整个数据，然后我如何找到提取所选项目的值的方法例如，我选择双击第一个项目（1,2），它显示第二列的值（2） 我用这个来表明它

For r = 1 To Lista.ListCount
    If Lista.Selected(r) Then

        MsgBox r + 1
        MsgBox "You selected row #" & Sheets("View2").Cells(r + 2, rangE("View2_CN").Column)

    End If
Next