Vba 跳转到列表框中的项目

一个问题是，是否可以跳转到特定列表框中的某个索引，如下图所示

我已经尝试了以下代码

Listbox.ListIndex = index

但这让我产生了一个错误您错误地使用了ListIndex属性

我的列表中有一个属性值得一提

行源类型：表/查询

---

提前感谢。

尝试

列表框。选中（索引）=True

。如果它是一个多选列表框，您还需要循环其他元素并以相同的方式取消选择它们。

尝试

listbox.Selected（index）=True

。如果它是一个多选列表框，您还需要循环其他元素并以相同的方式取消选择它们。

尝试

listbox.Selected（index）=True

。如果它是一个多选列表框，您还需要循环其他元素并以相同的方式取消选择它们。

尝试

listbox.Selected（index）=True

。如果是多选列表框，您还需要循环其他元素，并以相同的方式取消选择它们。

使用代码创建标准模块

Sub Main()
    UserForm1.Show
    Unload UserForm1
End Sub

插入一个userform并直观地执行如下操作

进入userform代码并添加

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

---

使用代码创建标准模块

Sub Main()
    UserForm1.Show
    Unload UserForm1
End Sub

插入一个userform并直观地执行如下操作

进入userform代码并添加

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

---

使用代码创建标准模块

Sub Main()
    UserForm1.Show
    Unload UserForm1
End Sub

插入一个userform并直观地执行如下操作

进入userform代码并添加

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

---

使用代码创建标准模块

Sub Main()
    UserForm1.Show
    Unload UserForm1
End Sub

插入一个userform并直观地执行如下操作

进入userform代码并添加

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

---

你又想做什么？如何跳转到特定的索引？通过在文本框中键入某些内容并将其与列表中的项目进行匹配？确切地说是@mehow，但我不知道是否可以使用行源类型作为Table/Query进行匹配。我的答案是您想要的吗？您再次尝试做什么？如何跳转到特定的索引？通过在文本框中键入某些内容并将其与列表中的项目进行匹配？确切地说是@mehow，但我不知道是否可以使用行源类型作为Table/Query进行匹配。我的答案是您想要的吗？您再次尝试做什么？如何跳转到特定的索引？通过在文本框中键入某些内容并将其与列表中的项目进行匹配？确切地说是@mehow，但我不知道是否可以使用行源类型作为Table/Query进行匹配。我的答案是您想要的吗？您再次尝试做什么？如何跳转到特定的索引？通过在文本框中键入某些内容并将其与列表中的项目进行匹配？确切地说是@mehow，但我不知道是否可以将行源类型设置为Table/Query。我的答案是您想要的吗？