如何在 Excel UDF 中使用常量值？

Question

我一直在努力想出 Excel 中的 UDF。基本上我正在寻找的是一个函数，它将接受用户提供的 2 个输入参数（常量），然后该函数将返回预先存储在某个地方的 excel 表中的值之一。这是它的样子：

月高峰期

1. 1 月 320 176
2. 2 月 320 128
3. 三月 368 252
4. 4 月 352 128
5. 5 月 305 320

函数应该是这样的：=Hours(February, Peak) 然后它会返回二月的高峰时间等等。

感谢所有帮助。非常感谢

编辑：作为注释添加的代码

Public Function calculateHours(ByVal mo As Variant, ByVal period As Variant) As Integer    
 Dim tablette As Range 
 Set tablette = Worksheets("Hours").Range("U4:V15") 
 Set valueRange = Worksheets("Hours").Range("U4:U15") 
 period = "peak" 
 For Each ref In valueRange 
   mo = WorksheetFunction.VLookup(ref, tablette, 1, 0) 
 Next 
 ref calculateHours = WorksheetFunction.VLookup(mo, tablette, 2, False) 
End Function

当我尝试在 =calculateHours(january, peak) 中使用此函数时，无论参数是什么，我都只能从表中获取最后一个值

Answer 1

考虑：

Public Function ReturnVale(period As String, MinMax As String) As Variant
    months = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
    Off = Array(330, 347, 366, 393, 307, 353, 310, 347, 332, 307, 400, 333)
    Peak = Array(399, 428, 440, 446, 366, 431, 370, 413, 389, 364, 470, 421)
    For i = LBound(months) To UBound(months)
        If period = months(i) Then
            GoTo done
        End If
    Next i
    ReturnVale = "NOT FOUND"
    Exit Function
done:
    If MinMax = "Peak" Then
        ReturnVale = Peak(i)
    Else
        ReturnVale = Off(i)
    End If
End Function

您自然会修改 Array() 语句以满足您的要求。