EXCEL数据有效性下拉列表中的数值如何求和
发布网友
发布时间：2022-04-21 23:16
共2个回答
热心网友
时间：2023-10-04 15:58
1、你的代码已经很简单直接了。
2、不能使用countifs函数，你看一下该函数的语法应该就知道了。
countifs(criteria_range1,
criteria1,
[criteria_range2,
criteria2]……)
criteria_range1、criteria_range2……，既然是range，那就必须是单元格引用，不可以是常量，而你取出的range("a1").validation.formula1，再替换逗号为加号，是一个字符串，不是单元格引用，因此不能用countifs函数。
热心网友
时间：2023-10-04 15:58
Sub
tt()
Dim
th,
aa,
i&
Dim
nr
nr
=
Range("a1").Validation.Formula1
th
=
Split(nr,
",")
For
i
=
0
To
UBound(th)
aa
=
aa
+
Val(th(i))
Next
Cells(1,
2)
=
aa
End
Sub
给你模型你
参考
这是把A1的数据有效性求和在B1里面
具体的你可以修改
Sub
tt()
Dim
th
Dim
nr
nr
=
Range("a1").Validation.Formula1
'这是内容
th
=
Replace(nr,
",",
"+")
'这是把内容里面的,替换成+
Cells(2,
2)
=
Application.Evaluate(th)
'执行计算
在单元格输出结果
End
Sub
第一段是别人帮我的
这是我自己写的我的意思是把数据有效性数值取出来
替换掉,为+再用APPLICATION.EALUATE计算的
绕弯了！
