Excel 有条件地搜索单元格值VBA

我有一个问题：我写了一些vba来搜索单元格中的某个值。这个值可以在不同的行中，但总是在同一列中，然后取它右边的值。我的代码似乎没有错误，但也没有做任何事情

以下是我所拥有的：

Dim bottomCell As Range
Dim offsetCell As Range
With Sheets("Spółka")
Set bottomCell = .Cells.Find(what:="Wykreślona z KRS?")
Set offsetCell = bottomCell.Offset(0, 1)
End With
If offsetCell.Value = "TRUE" Then
MsgBox "Spółka wykreślona z KRS"
End If

因此，如果我要查找的单元格右边的值等于TRUE，则逻辑将显示带有一些消息的窗口。现在代码似乎正在搜索，但它没有显示任何内容

提前谢谢

---

Alex请用下一种方法试试：

Sub testFindCells()
  Dim bottomCell As Range, offsetCell As Range, shSp As Worksheet
  
  Set shSp = Sheets("Spólka")

Set bottomCell = shSp.UsedRange.Find("Wykreslona z KRS?", , xlValues)
                                        
If Not bottomCell Is Nothing Then
    Set offsetCell = bottomCell.Offset(0, 1)
    Debug.Print offsetCell.Address
    If CBool(offsetCell.Value) = True Then
        MsgBox "Spólka wykreslona z KRS"
    End If
Else
  MsgBox "Wykreslona z KRS?" & " coluld not be found..."
End If
End Sub

---

您好，谢谢您的帮助，但是您的代码可能缺少指定偏移单元应具有的值的部分。如果为真，则显示消息，如果不是，则不显示任何内容。很抱歉，我忘了更好地解释它，真值不是布尔值，而是文本字符串。它只是说真的。此外，您的代码在这一行停止：Set bottomCell=shSp.UsedRange.Cells.FindWykreślona z KRS？，shSp.RangeA1，xlValues，，xlNext，False，表示存在错误类型13Mismatch@Alwexistwo：现在我明白了，但是停在这一行不是很清楚。。。哪一行，有什么错误。我将调整代码以返回消息框，以防出现“FALSE”字符串…调整代码。如果我能理解Spólka wykreslona z KRS的含义，我也许能理解它是关于什么的现在我可以看到你发了这条线。是的，当我运行宏时，它会显示运行时错误：13，类型不匹配，当我单击“调试”时，它会高亮显示上面提到的行。