[已解决]如何将数组中的值赋值给名称，如何将列表框中的多个值赋值给数组

songtao6

数组赋值给名称.rar (8.09 KB, 下载次数: 19)

2014-5-18 09:24 上传

点击文件名下载附件 如何将数组中的值赋值给名称，如何将列表框中的多个值赋值给数组
!!!附件已经更新，避免歧义麻烦大家给解决下！

最佳答案

月排行榜 / 总排行榜

zjdh

2014-5-18 10:03

你使用的是窗体控件，建议使用控件工具箱的控件。
属性中设置
MultiSelect：1
ListFillRange：填入区域
用以下宏获取被选择的数据
Sub TEST()
    Dim Arr(), k&, i&
    ReDim Arr(1 To 1)
    With Sheet1.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                k = k + 1
                ReDim Preserve Arr(1 To k)
                Arr(k) = .List(i)
            End If
        Next i
    End With
End Sub

跳转到最佳答案楼层

zjdh

数组中的值赋值给名称?有这样的说法吗？

songtao6

zjdh 发表于 2014-5-18 07:59
数组中的值赋值给名称?有这样的说法吗？

说法不知道是否正确，但是我的意思是把数组内的值传递给数组，但是名称好像除了用单元格内的和单个外，不知道如何将数组的值给它。

zjdh

数组大小不一定与名称指定的范围大小一致啊，要如何放数据？
范围大于数组可以解决，反之呢？

songtao6

zjdh 发表于 2014-5-18 08:23
数组大小不一定与名称指定的范围大小一致啊，要如何放数据？
范围大于数组可以解决，反之呢？

这个数组的大小在名称的范围之类，不过这个数组中的内容是变化的 VBA产生的

无聊的疯子

问题一，你要赋值给名称SZ，其实就是把数组中的值写回单元格

数组里的值有多个内容，你的sz只有一个单元格，如果要想全写入的话，要么循环，要么连接
下面的代码是用“，”连接，如果你不要符号就“”，要用啥符号随便你

1. 
   
2. Range("SZ").Value = Join(Arr, ",")
   

复制代码

如果sz是一个区域，且大小和数组一样，则可以直接赋值，
当然，你的数组是一维的，如果sz是在一行里，则直接赋值，如果SZ是在一列里，则需要转置

songtao6

无聊的疯子 发表于 2014-5-18 09:12
问题一，你要赋值给名称SZ，其实就是把数组中的值写回单元格

数组里的值有多个内容，你的sz只有一个单元 ...

谢谢解答，不过我的附件可能没有表述清楚，我想的是不写入单元格，直接将数组的值写到名称中，建立名称不给指定个单元格貌似不能保存，所以就随便点了一个单元格的。
另外 如何将复选列表框的选中的值传递给数组呢？

zjdh

不写入单元格,你这个名称也就是一个数组变量啦。

songtao6

zjdh 发表于 2014-5-18 09:26
不写入单元格,你这个名称也就是一个数组变量啦。

那将要如何使用呢？就像平时使用名称一样的

zjdh

看你用在哪里，若用在工作表公式里还得借用辅助单元啦。