Excel VBA - 如何将列表框值插入字符串？答案

【问题标题】：Excel VBA - How to insert ListBox Values to a string?Excel VBA - 如何将列表框值插入字符串？
【发布时间】：2014-02-24 21:39:44
【问题描述】：

我在用户窗体中有一个列表框，其中填充了项目。

我想做的是将所有项目添加到一个用分号分隔的字符串中。

到目前为止，我有以下代码：

For i = 0 To Me.lbSend.ListCount - 1
    Set strEmail = ws.Range("A:A").Find(What:="Me.lbSend.List(i)", LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    strTo = strTo & ";" & strEmail.Offset(0,1).Value
Next i

但是，它不起作用，我无法完全确定原因。

对于列表中的每个项目，我需要在另一个工作表的 A 列中找到它，然后将其右侧单元格中的值添加到字符串中。

【问题讨论】：

去掉Me.lbSend.List(i)周围的引号
我怎么错过了！？显然是在搜索文本“Me.lbSend.List(i)”而不是它的值。
@Petay87 glad I helped

标签： vba excel listbox listboxitem

【解决方案1】：

对于其他需要相同答案的人：

@tigeravatar 发现了错误，并在以下方面是正确的：（Me.lbSend.List(i) 周围没有引号）

For i = 0 To Me.lbSend.ListCount - 1
Set strEmail = ws.Range("A:A").Find(What:=Me.lbSend.List(i), LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
strTo = strTo & ";" & strEmail.Offset(0,1).Value
Next i

【讨论】：