2013-04-23 86 views
0

我想做一个错误检查,如下面的代码部分。但是,我不知道如何正确地做到这一点。请提供一些指导。提前致谢。EXCEL VBA选择案例错误检查

Select Case Trim(y) 
    Case Is = "" 
     MsgBox ("Empty field!") 

    Case (UCase(Left(y, 1)) = "=") '<--This line requires guidance 
     MsgBox ("invalid input") 
End Select 
+0

如果你试图找出如果一个单元格有一个公式,使用'y.hasformula'会告诉你这个。除非你看着输入框的结果? – glh 2013-04-23 10:19:51

回答

3

这不会编译。而尝试

Select Case UCase(Left(Trim(y), 1)) 
    Case "" 
     MsgBox ("Empty field!") 

    Case "=" 
     MsgBox ("invalid input") 
End Select 

有关于如何构建替代你select或是否在所有使用它(你可以选择级联if语句,例如):

Select Case Left(y,1) 
    Case "=" 
     MsgBox ("invalid input") 

    Case Else 
     If Trim(y) = "" Then 
      MsgBox ("Empty field!") 
     End If 
End Select 
+0

我需要检查这个条件 - >(UCase(Left(y,1))=“=”) – 2013-04-23 09:05:46

+0

为什么不使用'if Left(y,1)=“=”then ...'? – collapsar 2013-04-23 09:09:31

+0

想知道我是否可以用Select Case – 2013-04-23 09:13:24