vba - 跳转到列表框中的项目

Question

一个问题，有可能以某种方式跳转到特定列表框中的某个索引，如下图所示？

我已经尝试过以下代码

Listbox.ListIndex = index

但这让我想到了你错误地使用了 ListIndex 属性的错误

我的清单中可能很重要的一个属性。

行源类型：表/查询

先感谢您。

Answer 1

试试ListBox.Selected(index) = True。如果它是一个多选列表框，您还需要循环遍历其他元素并以相同的方式取消选择它们。

Answer 2

使用代码创建标准模块

Sub Main()
    UserForm1.Show
    Unload UserForm1
End Sub

插入用户表单并在视觉上执行类似的操作

进入用户表单代码并添加

Private Sub CommandButton1_Click()

    Dim v As Long
    For v = 0 To ListBox1.ListCount - 1
        If TextBox1 = ListBox1.List(v) Then
            ListBox1.Selected(v) = True
        End If
    Next v

End Sub

Private Sub UserForm_Initialize()

    With ListBox1
        .AddItem ("text1")
        .AddItem ("text2")
        .AddItem ("text3")
    End With

End Sub

运行Main宏

在框中输入：text2

将text2在列表中被选中