如果 Count 超过 _ 数量，并且 FileName 不包含 _

Question

我正在寻找构建我的 IF、Then、Else 语句来处理我的报告中所有可能出现的情况。

如果变量 (fCount) 的出现次数超过 6 且文件名 (fName) 不包含字符串“RADMON”，则保存报告。
如果变量 (fCount) 的出现次数超过 249 并且文件名 (fName) 确实包含字符串“RADMON”，则保存报告。
如果两者都不成立，则终止报告。

我目前的结构是这样的：

If fCount > 6 And Not InStr(1, fName, "RADMON", vbTextCompare) = 0 Then 
    ActiveWorkbook.Save 
ElseIf InStr(1, fName, "RADMON", vbTextCompare) = 0 And fCount >= 250 Then 
    ActiveWorkbook.Save
Else
    ActiveWorkbook.Close
    Kill

结果是 fCount 超过 6 但 fName 不包含“RADMON”的报告被我的代码主动终止。

Answer 1

你的第一个 if 语句是双重否定。 InStr 函数将 return 找到的字符串的位置。 InStr(1, fName, "RADMON", vbTextCompare) = 0 表示未找到字符串，Not InStr(1, fName, "RADMON", vbTextCompare) = 0 表示如果 fCount 大于 6 并且找到“RADMON”，请保存文件。

If fCount > 6 And InStr(1, fName, "RADMON", vbTextCompare) = 0 Then 
  ActiveWorkbook.Save 
ElseIf InStr(1, fName, "RADMON", vbTextCompare) > 0 And fCount >= 250 Then 
  ActiveWorkbook.Save
Else
  ActiveWorkbook.Close
  Kill
End if

如果 Count 超过 _ 数量，并且 FileName 不包含 _

If Count is over _ amount, and FileName does NOT contain _

excel

vba

instr