VBA Excel：列表框自动滚动

Posted 2023-04-01

【中文标题】VBA Excel：列表框自动滚动

【英文标题】：VBA Excel: ListBox scrolling automatically

【发布时间】：2021-07-14 12:29:11

【问题描述】：

我正在尝试使ListBox 在通过commandbutton 输入时自动滚动到最新条目：

Private Sub CommandButton1_Click()
    TextBox1.Text = "newentry"
    ListBox1.AddItem TextBox1.Value
    ListBox1.TopIndex = ListBox1.Item.Count - 1
End Sub

我会得到一个编译错误。我尝试了各种语法组合都无济于事。

感谢您对此的帮助。

【参考方案1】：

Private Sub CommandButton1_Click()
    TextBox1.Text = "newentry"
    ListBox1.AddItem TextBox1.Value
    ListBox1.TopIndex = ListBox1.ListCount - 1    
End Sub

回答了我自己的问题，希望这对某人也有帮助！