EXCEL中VB函数代码问题
如图，如何让下面几个含备注的结果输出？求高手支招Functionautocal(cellAsRange)IfTrim(cell)=""Thenautocal=""Exit...
如图，如何让下面几个含备注的结果输出？求高手支招
Function autocal(cell As Range)
If Trim(cell) = "" Then
autocal = ""
Exit Function
Else
autocal = Application.Evaluate(cell.Formula)
End If
End Function 展开
Function autocal(cell As Range)
If Trim(cell) = "" Then
autocal = ""
Exit Function
Else
autocal = Application.Evaluate(cell.Formula)
End If
End Function 展开
2个回答
展开全部
Function autocal(cell As Range)
t = Trim(cell)
If t = "" Then
autocal = ""
Exit Function
Else
t = Replace(Replace(Replace(t, "{", "["), "【", "["), "｛", "[")
n = InStr(t, "[")
If n > 0 Then t = Left(t, n - 1)
autocal = Application.Evaluate(t)
End If
End Function
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
