Überprüfen des formats einer userform-textbox-Eintrag

Ich habe eine UserForm für eine Datenbank data extractor, die ich mache. Darin gibt es eine TextBox für die Eingabe der Artikel-Nummer, die der Benutzer wünscht, Daten zu extrahieren, die für. Ich möchte, um zu überprüfen, ob die Eingabe das richtige format der Artikel-Nummer, bevor der Großteil der extractor läuft. Um dies zu tun, brauche ich ein code um zu überprüfen, dass der text in das bestimmte format:

3 Numerische Zeichen
1 Buchstaben oder 1 Hyphon
dann 5 Numerische Zeichen

Ich habe versucht, die folgenden Validierungen auf den ersten:

'validate that box is not empty 

If TextBox1.Value = "" Then 

MsgBox ("Sorry, you need to provide an Amount") 

TextBox1.SetFocus 

Exit Sub 

End If 


'validate that box is numeric 

If Not IsNumeric(TextBox1.Value) Then 

MsgBox ("Sorry, must enter a numer") 

TextBox1.SetFocus 

Exit Sub 

End If

Aber dann merkte ich, dass ich das problem hatte, dass es möglicherweise eine alphabetische char oder hyphon in der vierten position.

Ich würde schätzen, Anregungen.

Vielen Dank im Voraus.

Was haben Sie bisher ausprobiert? Jedenfalls nehmen Sie einen Blick hier, um char zu certains Positionen: stackoverflow.com/questions/17127272/..., Und Sie können dann testen, Woerter, oder Sie können substring extrahieren und Sie analysieren (IsNumeric() etc ...)
Ich habe bereits die folgenden: 'überprüfen Sie, dass die box nicht leer ist, Wenn TextBox1.Value = "" Then MsgBox ("Sorry, Sie müssen eine Menge") TextBox1.SetFocus Exit Sub End If 'überprüfen, dass das Feld numerisch ist, Wenn Nicht IsNumeric(TextBox1.Wert) Then MsgBox ("Sorry, muss geben Sie eine Zahl") TextBox1.SetFocus Exit Sub End If Aber dann merkte ich, dass ich hätte zu berücksichtigen, für die entweder eine alphabetische oder hyphon in der 4. position, so musste ich den code ändern, aber ich bin neu in diesem, so dass nicht sicher war, wie Sie das tun, werde ich in der Lage sein zu tun bekommen-char Methoden, obwohl, so vielen Dank

InformationsquelleAutor Lewis Heslop | 2014-07-22

Anfänger Möglichkeit zu prüfen, dieser Eingang ist nur einen hacken der input-string und vergleichen Sie die Teile nach Bedarf:

Const alpha as String = "abcdefghijklmnopqrstuvwxyz-"
Dim strValue as String
Dim msg as String
strValue = TextBox1.Value

'Make sure it's the right LENGTH
If Len(strValue) <> 9 Then 
    msg = "Please enter the ID as 3 numeric, 1 alpha/hyphen, 5 numeric"
    GoTo EarlyExit
End If

'Check the first three for numeric:
If Not IsNumeric(Left(strValue), 3) Then
    msg = "The first three characters should be numeric"
    GoTo EarlyExit
End If

'Check the middle character, assuming case not sensitive:
If Instr(1, alpha, Lcase(Mid(strValue, 4, 1)) = 0 Then 
    msg = "The fourth character should be hyphen or alphabet"
    GoTo EarlyExit
End If

'Check the last four characters
If Not IsNumeric(Right(strValue, 4)) Then
    msg = "The last four characters should be numeric"
    GoTo EarlyExit
End If

'If you've gotten here, then the input is validated:
Exit Sub 

EarlyExit:
MsgBox msg
TextBox1.SetFocus
End Sub