VB编程中列表框的值转化为文本框的值的代码

Question

我是在Excel中弄的程序。
程序的目的：
从列表框中选出（筛选）需要的项目，添加到新建文件（比如临时文件或数据库）中，以备之后使用。
大致操作流程：
1.第一种设想：有2个列表框，左边的列表框是从Access数据库里读出的数据，有很多项，此时点击两列表框之间的方向键（左移和右移键，此时为右移）将左边的列表框内的特定选项复制到右边的列表框里，然后确认以后，将右边列表框的值存入新建的Access数据库或者新建的excel表中。
2.第二种设想：面板上有一个列表框，此时把列表框中的某一项，比如用鼠标一点，该项内容就成为文本框的值显示在文本框里，再通过确认键或者添加键将该值存入新建的Access数据库或者新建的Excel表中。
以上是我个人的2种想法，我比较偏向与第一种设想，希望高手们能告诉我这段代码怎么写。
希望大家不要灌水，多提些有帮助的建议。在此感谢WzyJerry 的回答。很有帮助，但是觉得离我想达到的目标还是很远。
如果将列表框换做TreeView控件的话，代码该如何实现？左右各一个TreeView框，中间是向左向右的添加\撤销箭头。
贴张图，或许思路会清晰点。

Answer 1

1.第一种设想：有2个列表框，左边的列表框是从Access数据库里读出的数据，有很多项，此时点击两列表框之间的方向键（左移和右移键，此时为右移）将左边的列表框内的特定选项复制到右边的列表框里，然后确认以后，将右边列表框的值存入新建的Access数据库或者新建的excel表中。
2.第二种设想：面板上有一个列表框，此时把列表框中的某一项，比如用鼠标一点，该项内容就成为文本框的值显示在文本框里，再通过确认键或者添加键将该值存入新建的Access数据库或者新建的Excel表中。
以上是我个人的2种想法，我比较偏向与第一种设想吗

Answer 2

给楼主一段代码，希望有所帮助
打开Excel，新建一个宏
添加一个用户窗体
窗体上放两个command按钮，一个listbox

代码如下
Dim i As Long
Private Sub CommandButton1_Click()
Range("A" & i).Select
ActiveCell.FormulaR1C1 = ListBox1.List(ListBox1.ListIndex)
i = i + 1
End Sub

Private Sub CommandButton2_Click()
ListBox1.AddItem "abcd"
ListBox1.AddItem "efgh"
i = 1
End Sub

首先单击command2，添加两个项目（这里可以换成你的access里的东西）
并将i设为1
然后选择要添加的项目，并点command1，此时会将这个项目添加到excel的
“A” & i格中，并将i加1，以便下次使用

删除的代码：点删除键后：
Range("A" & i).Select
ActiveCell.FormulaR1C1 = ""
i = i - 1本回答被提问者采纳

Answer 3

打开Excel，新建一个宏
添加一个用户窗体
窗体上放两个command按钮，一个listbox

代码如下
Dim i As Long
Private Sub CommandButton1_Click()
Range("A" & i).Select
ActiveCell.FormulaR1C1 = ListBox1.List(ListBox1.ListIndex)
i = i + 1
End Sub

Private Sub CommandButton2_Click()
ListBox1.AddItem "abcd"
ListBox1.AddItem "efgh"
i = 1
End Sub

首先单击command2，添加两个项目（这里可以换成你的access里的东西）
并将i设为1
然后选择要添加的项目，并点command1，此时会将这个项目添加到excel的
“A” & i格中，并将i加1，以便下次使用

删除的代码：点删除键后：
Range("A" & i).Select
ActiveCell.FormulaR1C1 = ""
i = i - 1

Answer 4

这个问题有些难度，的却是不好设计啊。虽然偶写不出来，但是偶还是顶你一下。~ ~