Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/search/2.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
Excel 我需要帮助修复这个VBA宏_Excel_Vba - Fatal编程技术网

Excel 我需要帮助修复这个VBA宏

Excel 我需要帮助修复这个VBA宏,excel,vba,Excel,Vba,我是VBA新手。我不知道如何使用它,但我正在努力。我正在尝试创建一个代码,上面写着: 如果tmin

我是VBA新手。我不知道如何使用它,但我正在努力。我正在尝试创建一个代码,上面写着:

如果tmin 如果有效,则检查参数是否<0.001 如果然后在单元格中输入“Valid&LN”

如果参数>0.001,只需输入“Valid”

如果参数>10,则输入“Valid&0”

这是我的试用版,不起作用

Option Explicit
Function VC(t As Double, argument As Double, tmax As Double, tmin As Double) As Double
Dim i As String
If tmin < t < tmax And argument < 0.001 Then
    i = "Valid & LN"
ElseIf argument > 10 Then
    i = "Valid & 0"
Else
    i = "invalid"
End If
End Function
选项显式
函数VC(t为双精度,参数为双精度,tmax为双精度,tmin为双精度)为双精度
我像绳子一样暗
如果tmin10,则
i=“有效&0”
其他的
i=“无效”
如果结束
端函数
下面是它的外观以及我使用的列:

Tmax和Tmin电池

时间、参数和注释单元格的外观

我猜是

Option Explicit

Function VC(t As Double, argument As Double, tmax As Double, tmin As Double) As String

    Dim i As String

    If tmin < t And t < tmax Then

        i = "Valid"

        If argument < 0.001 Then
            i = "Valid & LN"
        ElseIf argument > 10 Then
            i = "Valid & 0"
        End If

    Else
        i = "invalid"

    End If

    VC = i

End Function
选项显式
函数VC(t为双精度,参数为双精度,tmax为双精度,tmin为双精度)为字符串
我像绳子一样暗
如果tmin10,则
i=“有效&0”
如果结束
其他的
i=“无效”
如果结束
VC=i
端函数

首先,您的函数应该返回一个double,并且它不会返回任何内容。其次,在VBA中,类似于
的条件如果tmin
返回布尔值(True或False)。如果
tmin
小于
t
并且
tmin
小于
tmax,您是否愿意(用文字)说?如果没有,请从这个角度解释你需要什么。那么,在哪里,
i
在你的函数中取要使用的值/“put”?函数是否返回到一个单元格中,在该单元格中输入函数名及其参数?如果是,它必须返回一个字符串。当条件满足时,必须退出循环。有三件事:1)
tmin
在VBA中无效。函数返回的内容是
(tmin
2),您需要指定函数名,即
VC=i
3)retutn类型应该是
String
(或
Variant
)在第一个示例中,您有0.007849,而不是<0.001。因此,根据您的描述,Valid&LN是错误的,还是我弄错了?@catherinermagost:
如果tmin如果tmin?既然
tmin
小于
t
t
小于
tmax
?我想你想要
如果t>tmin和t