slogan
专业知识问答平台！
Public Sub Test()
xa0 xa0 Dim str As String
xa0 xa0 str = "8<6"
xa0 xa0 If Application.Evaluate(str) Then
xa0 xa0 xa0 xa0MsgBox Chr(34) & str & Chr(34) & " 条件成立!"
xa0 xa0 Else
xa0 xa0 xa0 xa0MsgBox Chr(34) & str & Chr(34) & " 条件不成立!"
xa0 xa0 End If
End Sub
©本文版权归作者所有，任何形式转载请联系我们：xiehuiyue@offercoming.com。
