vba 如果单元格包含任何格式的字符串

Question

我一直在寻找过去的一个小时，因为我似乎找不到一个可以涵盖我的用例的示例(尽管在我看来非常简单)。我有一个 for 循环，它搜索列中的所有单元格，如果单元格包含字符串 打开 ，然后它将数据添加到不同的单元格。我遇到的问题是有时单元格包含 打开或 2012 年 12 月 12 日开放 等等。目前我的代码如下。我无法弄清楚如何忽略区分大小写以及单元格是否包含此值，将其更改为“仍然打开或关闭”。

If Cells(X, C) = UCase("Closed") Then
  Cells(X, Q).Value = "Closed"
ElseIf Cells(X, C) = UCase("Open") Then
  Cells(X, Q).Value = "Still open"
End If

如果单元格仅包含“关闭”或“打开”，则此方法有效。框中的任何不同拼写或附加文本都会导致此操作失败。如果单元格包含我正在搜索的“StRiNG”的任何格式，是否有一种简单的搜索方法？

Answer 1

完成模式匹配 , 一个 Select Case statement可能更合适。

Select Case True
    Case LCase(Cells(x, c).Value2) Like "*closed*"
        Cells(x, q) = "Closed"
    Case LCase(Cells(x, c).Value2) Like "*open*"
        Cells(x, q) = "Still Open"
    Case Else
        'something else
End Select

这将删除区分大小写以及搜索关闭作为整个单元格内容的子字符串。