VBA Excel：列表框自动滚动

Question

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

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

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

感谢您对此的帮助。

Answer 1

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

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