Question

vba窗体中如何获取列表框listbox1选中行的值返回到文本框textbox1。

vba窗体中如何获取列表框listbox1选中行的值返回到文本框textbox1。vba代码怎么写？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）+提问者悬赏50（财富值+成长值）

Answer 1

textbox1.Text=List1.ListIndex + 1
注意，索引号index是从0开始的，因此需要+1得到行号
写在单击或双击事件下面就可以了

Answer 2

在listbox1的SelectedIndexChanged选择事件中写
textbox1.Text = listbox1.Text;

Answer 3

ListBox.SelectedIndexChanged 事件是 .NET 中的，在 VBA 中，使用 ListBox.Click 事件，参考代码如下：

Private Sub ListBox1_Click()
    TextBox1.Text = ListBox1.Text
End Sub

动画效果：