텍스트 상자에서 잘못된 값을 확인할 때의 단점

Question

각 해당 텍스트 상자에 기록된 4개의 함수 fi(x)에 대한 입력 데이터로부터 회귀 분석을 수행하려는 사용자 양식을 만들고 있습니다.

입력 함수가 유효한지 확인하기 위해 두 가지 조건을 제안했습니다. 첫 번째 조건은 비어 있는 텍스트 상자가 없는지 확인하는 것입니다(이 방법은 작동합니다).

If p = 1 Then
    box = MsgBox("No functions were provided for regression analysis.", vbInformation, "Regression Toolbox Info")
    Exit Sub
End If

두 번째에서는 x의 함수가 아니기 때문에 입력한 값 중 유효하지 않은 값이 있는지 확인하고 싶습니다. 예를 들어 계산을 허용하지 않는 텍스트나 다른 숫자가 입력되면 알려줍니다. 만들어지다.

For i = 2 To p
    If (fxn(i - 1) = "x") Then
    ElseIf IsError(Evaluate(Replace(fxn(i - 1), "x", 2))) Then
        box = MsgBox("The f" & i - 1 & "(x) input is invalid as it is not a function of x." & _
        "Check your data input and correctness of syntaxis of f(x) functions." & _
        vbNewLine & vbNewLine & "If you want to type in only x you should type in ""1*x""." & _
        vbNewLine & vbNewLine & _
        "Several functions with multiplication of x (e.g. fx1 = 1*x, fx2 = 2*x)" & _
        "are not allowed.", vbCritical, "Error!")
        Exit Sub
    ElseIf InStr(fxn(i - 1), "x") = 0 Then
        box = MsgBox("The f" & i - 1 & "(x) input is invalid as it is not a function of x", vbCritical, "Error!")
        Exit Sub
    End If
Next i

마지막으로, 지금까지 내가 가지고 있는 코드는 실패를 등록합니다. 각 텍스트 상자에 유효한 함수를 입력했음에도 불구하고 잘못된 입력이라는 메시지, 즉 어떤 값이라도 취한다는 메시지를 주기 때문입니다. 잘못된 입력으로. 여러 줄 수정을 시도했지만 계속 같은 오류가 발생합니다. 내가 찾고 있는 결과에 도달하지 못하게 하는 실수를 범할 수 있는 곳은 어디입니까?

귀하의 소중한 협력에 진심으로 감사드립니다.

pdt: 다음 링크에서학습장, 내가 작업 중인 코드가 포함된 통합 문서를 찾을 수 있습니다. 확인과 관련된 줄을 생략하면 전체 코드는 완벽하게 작동하지만 각 텍스트 상자에 입력된 데이터가 유효한 항목인지 확인하기 위한 확인이 누락됩니다.