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