Question

我有一个ListBox，其中填充了各种数据以及数据所在的行号，如下所示：

31-Mar-12 to 15-Apr-12 [Goods A]，Row：12009

在命令按钮上我需要编写代码，单击该代码会将用户带到特定的行。列始终固定在第2列

Answer 1

如果在列表框中选择了某些内容，它将在冒号（:)后面找到该值并选择该行号的第2列：

Private Sub CommandButton1_Click()
    Dim selectedItem As String
    If ListBox1.ListIndex <> -1 Then
        selectedItem = ListBox1.List(ListBox1.ListIndex)
        Cells(CInt(Mid(selectedItem, InStrRev(selectedItem, ":") + 1)), 2).Activate
    End If
End Sub

转到列表框中的选定项目

1 个答案: