跳轉到列表框中的項目

Question

有一個問題，有可能以某種方式跳轉到特定列表框中的某個索引，如下圖所示？

我已經嘗試下面的代碼

但它驅使我您已經使用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將在列表中