如何排除#DIV/0!

hw1703 · 发表于 2018-10-1 22:56

我用VBA写了小程序目的是如果值超过一定范围，就要高显出来。因为是对数据透视表的，里面有除数为0，就会显示

#DIV/0!，程序就会运行不下去。

Set r = Worksheets("BOM")
i = 6
While r.Cells(i, 6) <> ""
If r.Cells(i, 6) > 0.3 Or r.Cells(i, 6) < -0.3 Then
r.Cells(i, 6).Interior.Color = vbRed
End If
i = i + 1

Wend

hw1703 · 发表于 2018-10-1 23:00

我想过写elseif r.cells(7,i)="#DIV/0!" then 显示蓝色，不行。也想过把#DIV/0!改为0，但是因为是数据透视表，不让改。绝望了。

We

hw1703 · 发表于 2018-10-2 05:33

求助，谢谢大家了，谢谢

hw1703 · 发表于 2018-10-2 08:17

有人帮忙吗？

lsc900707 · 发表于 2018-10-2 08:27

建议楼主上传附件说明要求！

xiangbaoan · 发表于 2018-10-2 08:43

if isnumeric(r.Cells(i, 6)) then
'这里放你的判断
end if

hw1703 · 发表于 2018-10-2 11:55

还是出错。

Yalishanda30 · 发表于 2018-10-2 12:31

on error resume next

Yalishanda30 · 发表于 2018-10-2 12:37

本帖最后由 Yalishanda30 于 2018-10-2 12:46 编辑

这样就可以了

hw1703 · 发表于 2018-10-2 16:15

太感谢了，可以了！

		自动登录	找回密码
密码			免费注册

[求助] 如何排除#DIV/0!