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

songtao6

zjdh 发表于 2014-5-18 09:31
看你用在哪里，若用在工作表公式里还得借用辅助单元啦。

哦  好的 谢谢了 另外一个问题你能帮我解决下吗？

zjdh

你使用的是窗体控件，建议使用控件工具箱的控件。
属性中设置
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

zjdh

songtao6

zjdh 发表于 2014-5-18 10:05

非常感谢，解决了我的问题了。{:021:}