对范围内的每个单元格执行 return "too low"、"too high" 或 "OK" 的函数

Question

我想要一个函数运行通过一系列单元格并且如果：

任何大于NormalValue然后return'too low',
NormalValue 大于范围内最大值的两倍然后 return 'too high',
这两个都不是，那么return 'OK'.

这是我到目前为止想出的：

Function TooHighLow(rng As range, NormalValue As Double)

  For Each cell In rng
     If Application.WorksheetFunction.Max(cell.Value) > NormalValue Then
        TooHighLow = "Too Low"

     ElseIf NormalValue > 2 * (Application.WorksheetFunction.Max(cell.Value)) Then
        TooHighLow = "Too High"

     Else
        TooHighLow = "OK"

     End If
  Next cell
End Function

Answer 1

我想你想要这样的东西：

Function TooHighLow(rng As Range, NormalValue As Double)
    Dim m As Double
    m = Application.WorksheetFunction.Max(rng)
    If m > NormalValue Then
        TooHighLow = "Too Low"
    ElseIf NormalValue > 2 * m Then
        TooHighLow = "Too High"
     Else
        TooHighLow = "OK"
     End If
End Function

1) 循环毫无意义

2) 你应该只计算一次最大值，将结果存储在一个变量中。

Answer 2

如果您试图从一系列单元格中找到单个低点或高点，那么您将必须接受突出的值并在该点退出您的函数。继续循环将用范围中的下一个单元格的计算结果覆盖未完成的值。

Function TooHighLow(rng As range, NormalValue As Double)
  dim cell as range
  'start with a default value
  TooHighLow = "OK"
  For Each cell In rng
     If Application.WorksheetFunction.Max(cell.Value) > NormalValue Then
        'set the function to return Too Low
        TooHighLow = "Too Low"
        'exit the For Next loop
        Exit For
     ElseIf NormalValue > 2 * (Application.WorksheetFunction.Max(cell.Value)) Then
        'set the function to return Too High
        TooHighLow = "Too High"
        'exit the For Next loop
        Exit For
     End If
     'if the loop has not been exited, the next cell in the range will be evaluated
     'if the loop has been exited, the function will return the outstanding value
  Next cell

End Function

Answer 3

没有VBA：

=IF(MAX(range)>NormalValue,"too low",IF(NormalValue>2*MAX(range),"too high","OK"))

对范围内的每个单元格执行 return "too low"、"too high" 或 "OK" 的函数

Function to return "too low", "too high" or "OK" for each cell in a range

excel

vba

if-statement

user-defined-functions

udf