求大神指点：一个条件连续判断3次的公式

NOBOBA

例子：
假如A1=5，接下来连续判断 A2\A3\A4只要其中一个不等于5就是正确，结束判断


当A的数值为0、5时开始判断B，3次进行判断，在C列表示一共判断几次出现正确结果

719404338

1. Sub t()
   
2. If [a1] = 5 And [a2] <> 5 Or [a3] <> 5 Or [a4] <> 5 Then MsgBox True
   
3. End Sub

复制代码

仲夏之雪

sub 判断()
if range("A1")=5 and range("A2")<>5 or range("A3") <>5 or range("A4")<>5 then
    msgbox True
end if
end sub

NOBOBA

仲夏之雪 发表于 2018-9-16 12:54
sub 判断()
if range("A1")=5 and range("A2")5 or range("A3") 5 or range("A4")5 then
    msgbox True ...

谢谢，不过我好像发错地方了，应该发在EXC公式版，我函数基础为零。。不过不知道函数如何解决，上传个附件，大神能否帮解决。