Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 基于另一个值使用Excel函数返回字母_Vba_Excel - Fatal编程技术网

Vba 基于另一个值使用Excel函数返回字母

Vba 基于另一个值使用Excel函数返回字母,vba,excel,Vba,Excel,我正在尝试创建一个自定义excel函数,如果目标值在范围内,该函数将返回相应的字母 以下是一个示例范围: Range <=10 A <20-<=35 C <35-<=55 D <55-<=80 E >80 F 范围 看看这是否有助于您: Option Explicit Function ReturnLetter(number As Range) As String Select Case number C

我正在尝试创建一个自定义excel函数,如果目标值在范围内,该函数将返回相应的字母

以下是一个示例范围:

Range
<=10      A
<20-<=35  C
<35-<=55  D
<55-<=80  E 
>80       F
范围
看看这是否有助于您:

Option Explicit

Function ReturnLetter(number As Range) As String

Select Case number
    Case Is <= 10
        ReturnLetter = "A"
    Case Is <= 35
        ReturnLetter = "C"
    Case Is <= 55
        ReturnLetter = "D"
    Case Is <= 80
        ReturnLetter = "E"
    Case Else
        ReturnLetter = "F"
End Select

End Function
选项显式
函数ReturnLetter(数字作为范围)作为字符串
选择案例编号

Case是我通过在UDF中使用Case语句来实现的。让它返回字符串类型的值。只需谷歌UDF案例陈述VBA,您将得到一些很好的帮助。:-。你可以使用VLookup并将表格隐藏在另一张纸上,你可以使用数组,你可以使用非常长的
=IF()
公式,等等。因此,我的投票太宽了。谢谢,这是我一直在做的,但它经常被使用,并且在不同的纸上,所以我正在寻找一种方法使它通用谢谢!我对vba很陌生,但我现在明白了。