2013-04-23 3 views
0

Я хотел бы выполнить проверку ошибок, как в разделе кода ниже. Однако я не знаю, как это сделать правильно. Просьба дать некоторые рекомендации. Заранее спасибо.EXCEL VBA Select Case error check

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

ответ

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)) = "=") –

+0

так почему бы вам не использовать 'if Left (y, 1) =" = "then ...'? – collapsar

+0

Было интересно, могу ли я сделать это с помощью Select Case –