VBA求助大佬们…

这段代码，此时此刻可以跑，但是如果在第一个if后面加上一个条件【and rg.display.interior.color=一个值】那就会无法进入循环函数ttt输出一个#value 这是为啥呢……
function ttt（rng as range）as boolean
dim rg as range
dim ck as integer
ck=0
ttt=false
for each rg in rng
if rg. value >=90 then
ck=ck+1
else
end if
next
if ck<>0 then
ttt=ture
else
end if
end function

rg.display.interior.color=
这种属性我怎么从未见过？

不感兴趣

开通SVIP免广告

自定义函数中无法使用该属性

这是因为在第一个if语句中，你添加了一个条件and rg.display.interior.color=一个值。这意味着在if语句中，不仅需要检查rg的值是否大于或等于90,还需要检查rg的网页链接属性是否等于你提供的值。
如果网页链接的值与你提供的值不匹配，那么if语句的条件就不满足，程序就不会执行ttt函数。这就是为什么ttt函数没有被调用并输出#value。
如果你想让程序在if语句中检查rg的值是否大于或等于90,并且rg的网页链接属性等于你提供的值，你需要修改if语句的条件，如下所示:
if rg. value >= 90 and 网页链接 =你提供的值then
这样，如果rg的值大于或等于90,并且rg的网页链接属性等于你提供的值，if语句的条件才会满足，程序才会执行ttt函数并输出#value。

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

7回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六