文章/答案/技术大牛

发布

社区首页 >问答首页 >Excel VBA如果不等于不工作

问Excel VBA如果不等于不工作
EN

Stack Overflow用户

提问于 2015-07-30 11:15:44

回答 1查看 8.8K关注 0票数 0

在我的代码不检查单元格是否有我需要的值时，我遇到了这个问题。我用方框来检查值--从框中看上去不错，但如果不取值的话。有什么不对吗？我尝试手动向单元格添加值，但如果不起作用的话。

If ThisWorkbook.ActiveSheet.Cells(virsus, desinen).value <> "CH" Or ThisWorkbook.ActiveSheet.Cells(virsus, desinen).value <> "SSC" Then 
   If ThisWorkbook.ActiveSheet.Cells(virsus, desinen - 1).value <> "CH" Or ThisWorkbook.ActiveSheet.Cells(virsus, desinen - 1).value <> "SSC" Or ThisWorkbook.ActiveSheet.Cells(virsus, desinen - 1).value <> "" Then  
       MsgBox ThisWorkbook.ActiveSheet.Cells(virsus, desinen - 1).value

vba

excel

if-statement

回答 1

Stack Overflow用户

回答已采纳

发布于 2015-07-30 11:42:22

您需要更改If语句中的表达式。

目前，它们都返回True，这可能不是预期的结果。

让我们考虑一下这一行：

If ThisWorkbook.ActiveSheet.Cells(virsus, desinen).value <> "CH" Or _
                 ThisWorkbook.ActiveSheet.Cells(virsus, desinen).value <> "SSC" Then

检查此值是否与CH不同或与SSC不同。值不能同时等于CH和SSC，因此其中一个表达式总是返回True，并且由于它们与Or关键字连接，所以整个表达式也总是返回True。

我不知道您想要在这个If语句中签入什么，但是如果这个值既不是CH也不是SSC，那么我想它会返回True。在这种情况下，只需将运算符Or替换为And

If ThisWorkbook.ActiveSheet.Cells(virsus, desinen).value <> "CH" And _
                 ThisWorkbook.ActiveSheet.Cells(virsus, desinen).value <> "SSC" Then

票数 3

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/31722281

复制

相似问题

问Excel VBA如果不等于不工作
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Excel VBA如果不等于不工作EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Excel VBA如果不等于不工作
EN