[已解决]关于动态数组问题，窗体动态添加的LIST数据 连起来填一个单元格，在线等高手

93974308

如何将窗体表单内容，利用动态数组安保存按钮添加到B8，或其他方法都可以，内容是动态的每个数据间空格隔开。
后来发现动态数组好像可以：Sub lqxs()
Dim Arr, i&, r%, col(), a$
Sheet1.Activate
[a4:a500] = ""
Arr = [b3].CurrentRegion
For i = 2 To UBound(Arr, 2)
    If Arr(2, i) = True Then
        r = r + 1
        ReDim Preserve col(1 To r)
        col(r) = i
    End If
Next
For i = 4 To UBound(Arr)
    a = ""
    For j = 1 To r
        a = a & " " & Arr(i, col(j))
    Next
    Cells(i, 1) = a
Next
End Sub
这是网上找了，可惜不知道怎么改成，我需要的功能，求高手解答，在线等

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-3 12:18

B8是合并的吧，直接把LISTBOX中的内容循环行列读取来，列之间用空格相连，空之间用换行符连接，再把B8的内容读取来连接上LISTBOX读取的内容再写回B8。

跳转到最佳答案楼层

93974308

555，还是没人看啊

hwc2ycy

B8是合并的吧，直接把LISTBOX中的内容循环行列读取来，列之间用空格相连，空之间用换行符连接，再把B8的内容读取来连接上LISTBOX读取的内容再写回B8。

93974308

hwc2ycy 发表于 2013-6-3 12:18
B8是合并的吧，直接把LISTBOX中的内容循环行列读取来，列之间用空格相连，空之间用换行符连接，再把B8的内容 ...

恩，是的就是字符串连起来，明细，我现在都是复制到文本在复制到B8的，LISTBOX中的内容是，手工添加的

hwc2ycy

LISTBOX.list(row,colum)方式可以读取数据的。
或者把数据读取到数组中，再来生成字符串。

93974308

hwc2ycy 发表于 2013-6-3 12:43
LISTBOX.list(row,colum)方式可以读取数据的。
或者把数据读取到数组中，再来生成字符串。

有时候印件名是一个，有时是X个，加上6列，就是6X数据组，然后按保存数据到带出库单里（这部分写好了），6X数据组 &  成一个单元格内容啊然后到表1的B2中（这部分要写代码啊）

hwc2ycy

==，我写下。

hwc2ycy

标记下，改天再来帮你写吧。
白天有点忙，刚刚翻贴子才发现还欠你的问题。

93974308

hwc2ycy 发表于 2013-6-4 23:17
标记下，改天再来帮你写吧。
白天有点忙，刚刚翻贴子才发现还欠你的问题。

好吧，不过最近版本已经更新，文件越来越大，感觉是里面做的宏，太粗糙了，不知道有没兴趣，帮我改进下代码，我现在在研究共享操作的权限

hwc2ycy

是点添加到B8还是保存时到B8单元格啊