芯友网Xin1234.COM

要在箭头指的单元格自动统计红色数字该怎么弄?大神们



生人看眼醉
要在箭头指的单元格自动统计红色数字该怎么弄?:)们
遛.售销.售销
上面那些红色的数据,是为什么变红的?手工刷红的吗
K混混
自己写个自定义函数吧
K混混
Function redSum(ByRef Rng)
Dim R As Range, D#
For Each R In Rng
    If R.Font.ColorIndex = 3 Then D = D + Val(R.Value)
Next R
redSum = D
Application.Volatile
End Function

改变字体颜色无法触发重算,最好是修改了颜色后按下F9
生人看眼醉
?混混K 把你这个复制到模块吗
K混混
生人看眼醉
我试试看

?混混K 
谢谢成功了
K混混
生人看眼醉

?混混K 
新的问题
K混混
xlsm
存成这个格式
生人看眼醉
要怎么弄才能存为这个格式
K混混

另存为啊
生人看眼醉

没有xlsm
K混混
启用宏的工作簿
你这基础有点弱啊
生人看眼醉
?混混K 
农民工
再打开变成宏已被禁用了
启用就好了
非常非常的感谢
K混混
绵小

相关问题
------分隔线----------------------------
赞助商链接
赞助商链接
推荐内容