Если это проверка "по кнопке", то передавать в процедуру ничего не нужно:
Private Sub warning()
Dim var_text As String
If Range("A1").Value = "" Then
var_text = "пустая ячейка!"
ElseIf Not IsNumeric(Range("A1").Value) Then
var_text = "нечисловое значение!"
End If
If var_text <> "" Then MsgBox "Caution: " & var_text, 64, ""
End Sub
Если же ячейку нужно проверить в процессе работы другого макроса:
Private Sub test()
Dim var_text As String
Call warning(var_text)
If var_text <> "" Then
MsgBox "Caution: " & var_text, 64, ""
Else
' продолжаем работу'
End If
End Sub
Private Sub warning(sText As String)
Select Case True
Case Range("A1").Value = "": sText = "пустая ячейка!"
Case Not IsNumeric(Range("A1").Value): sText = "нечисловое значение!"
End Select
End Sub
Но правильнее оформить проверку в виде функуции:
Private Sub test()
If fwarning = True Then
MsgBox "Caution: Data error!", 64, ""
Exit Sub
End If
' продолжаем работу
End Sub
Private Function fwarning() As Boolean
If Range("A1").Value = "" Or Not IsNumeric(Range("A1").Value) Then fwarning = True
End Function
Разные способы проверки (If-ElseIf
, Select Case
, If-Or
) приведены для примера.