Question

1、excel2003,vba动态引用数据有效性》序列》来源怎么写

Answer 1

1。可以引用一个单列的单元格区域
2。可以输入：选项A,选项B,....注意英文逗号

追问

不明白

追答

上传了附件。在A1设置了有效性，你看看

追问

你没明白我的意思，我是说通过一个单元格来给“序列来源”赋值

追答

噢噢 明白了。其实你可以录一个宏看看。

Sub Macro1()
    ActiveSheet.Range("A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="A,B,C"  '这里是你的来源  '区域 "=$B$1:$B$3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub

追问

假如在B1单元格中取值应该怎么改？

xlBetween, Formula1:="B1"？

追答

不是，应该是
Formula1:="=B1"

追问

大哥，不是修改下拉菜单的内容。

假如，原来的“序列来源”是从A1到A3，我想通过单元格B1中修改成从A1到A10.

不知道我这样说，大哥能明白不

追答

噗。懂了。抱歉我的理解能力不好啊。

在这块
ActiveSheet.Range("B1").Select
With Selection.Validation

你也可以直接写成
Range("B1").Validation .....然后后面把 Formula1:="=$A$1:$A$10"

这回...对了吧?

追问

我亲哥，我能小声的问一句吗？$A$1:$A$10是通过什么修改的？宏还是单元格？

追答

宏。直接引用B1只会把B1作文文本引用过来。

只能用宏先将B1的单元格数值读取，存入变量，再赋值给Formula1

追问

这么说吧大哥，假如数据来源是a1到a3，如果我想增加数据来源从a1到a5,通过b1单元输入$a$1:$a$5,就可以，而不是修改代码

追答

'把这段代码放到你的worksheet_change事件里面。再在b1中输入，A1的来源就会变成b1输入的区域了

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
   a = ActiveSheet.Range("B1")
   With ActiveSheet.Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & a
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End If
End Sub