宏观条件

Question

我使用VBA宏在Excel中创建一个函数，它将检查特定列中是否有空单元格。例如，我需要检查 A 到 E 列，每列都需要检查是否有空单元格，如果为空，则会用红色填充，然后在 J 列中添加错误注释，例如“A 列为空。请检查”。 （错误是空单元格）我已经有一个用红色填充空单元格的代码，我遇到的麻烦是错误注释，因为如果不同列中有空单元格，但在同一行（如 A 列和列） B 为空 错误注释必须是“A 列、B 为空。请检查”我只需在句子中插入“, B”即可。我在这种情况下遇到了麻烦。请帮助我

我将附上错误注释的代码我只需要在现有注释中插入“，B”的条件。先感谢您 （注意：我创建的其他函数还有其他评论。）

'Add Error Comment to Column J

cellAddress= "J" & i
tgtValue = "column A is empty. Please check" 

If Range(cellAddress).Value = "" Then 
   Range(celladdress).Value = "->" + tgtValue

Elself Range(cellAddress).Value <> "" And InStr(1,Range(cellAddress).Value, tgtValue, vbTextCompare) = 0 Then
     Range(cellAddress).Value = Range(cellAddress).Value + " " + tgtvalue

End If

End If

目前没有，因为我无法弄清楚。我从我创建的其他函数中收到此错误注释

Answer 1

首先，你的

Elself

语句有一个小写的l而不是大写的I（大写的它表示ELSELF）。

如果您分享更多代码，您可能会得到更好的答案，但根据您所拥有的内容，要添加“，B”，请尝试像这样分配新值：

Range(cellAddress).Value = Replace(Range(cellAddress).Value, " is empty", ",B is empty")