[已解决]EXCEL用VBA为数据-有效性-序列提供数据源区域

changrs

请问:如何用VBA来为单元格的数据-有效性-序列提供数据源区域?请示例.谢谢!

最佳答案

月排行榜 / 总排行榜

冥王

2015-7-4 09:41

changrs 发表于 2015-7-2 15:02
我的意思不是录个宏再简化一下代码,是用VBA给出一个变量数组名,比如一维数组名为ARR,则在来源里输入:=ARR ...

1. Sub 测试()
   
2.     Range("A1").Select
   
3.     arr = Join(Array("a", "b", "c", "100"), ",")
   
4.     With Selection.Validation
   
5.         .Delete
   
6.         .Add Type:=xlValidateList, Formula1:=arr
   
7.     End With
   
8. End Sub

复制代码

跳转到最佳答案楼层

冥王

……

changrs

冥王 发表于 2015-6-26 13:54
……

我的意思不是录个宏再简化一下代码,是用VBA给出一个变量数组名,比如一维数组名为ARR,则在来源里输入:=ARR,便取到数组ARR.行不?请举例.谢谢

冥王

changrs 发表于 2015-7-2 15:02
我的意思不是录个宏再简化一下代码,是用VBA给出一个变量数组名,比如一维数组名为ARR,则在来源里输入:=ARR ...

1. Sub 测试()
   
2.     Range("A1").Select
   
3.     arr = Join(Array("a", "b", "c", "100"), ",")
   
4.     With Selection.Validation
   
5.         .Delete
   
6.         .Add Type:=xlValidateList, Formula1:=arr
   
7.     End With
   
8. End Sub

复制代码

冥王

用join函数 逗号分隔符把一维数组连接起来 再赋给数据有效的formular1

thinkersky

Sub 测试()
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="A,B,C,D,E,F"
    End With
End Sub

直接输入就可以了