excel VBA 怎么用代码指定 需要选择的下拉框中得选择项 例如:有A,B,C三个项 我要用代码指定 B选择
展开全部
找到办法了。
假设你的单元格为B1,有效性中序列引用的是A1:A3,分别对应“A”、“B”、“C”,代码如下:
Sub Test()
Dim ListItem As Variant
Dim FormulaString As String
FormulaString = Range("B1").Validation.Formula1
ListItem = Application.Evaluate(FormulaString)
Range("B1") = ListItem(2, 1) '指定B选择
End Sub
假设你的单元格为B1,有效性中序列引用的是A1:A3,分别对应“A”、“B”、“C”,代码如下:
Sub Test()
Dim ListItem As Variant
Dim FormulaString As String
FormulaString = Range("B1").Validation.Formula1
ListItem = Application.Evaluate(FormulaString)
Range("B1") = ListItem(2, 1) '指定B选择
End Sub
追问
呵呵 我搞出来了 你个下拉框添加事件就好了
追答
你明白这个办法就好,但如果有效性的序列是自定义数组,则此程序又通不过,还得再修改才行。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询