"Nicht Enthalten" - Funktion von VBA

Ich bin auf der Suche nach einem Weg, um einen "nicht enthalten" Kriterien in einen string. Ich will es, auf einen string, Numerisch, hat eine Länge von 9 Zeichen, und die nicht enthalten ist ein Punkt "."

Ich habe mir auf der web, aber nur Filter gefunden, die für ein ganzes Arbeitsblatt, oder Filter, oder arrays, die nicht für die nicht enthalten einen spezifischen Charakter.

Diesem Teil arbeitet:

If IsNumeric(Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10)) _
    And Len(Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10)) = 9 Then

Aber ich würde es so sagen:

If IsNumeric(Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10)) _
     And Len(Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10)) = 9 _
           and Doesnotcontain "." Then

Was wäre die richtige syntax? Danke!

  • Versuchen InStr Funktion
InformationsquelleAutor user3753537 | 2014-07-15
  1. 4

    Versuchen die Instr () - Funktion:

    If IsNumeric(Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10)) _
     And Len(Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10)) = 9 _
           and Instr(Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10), ".") = 0 Then
    InformationsquelleAutor geoB
  2. 1

    Ich beachten, dein Beispiel ist nicht auf der Suche nach einem "Wort", sondern prüft eine Zeichenfolge bis zu 10 Zeichen, und sicherzustellen, es ist genau neun (9) Ziffern. Wenn es das ist, was Sie wollen, dann sollte Folgendes funktionieren:

    EDIT: den code Vereinfachen

    S = Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10)

If S Like "#########" Then
          ... Your Routine ...
End If

    oder auch:

    If Left(Right(wordDoc.Paragraphs(j).Range.Text, 11), 10) Like _
    "#########" Then
          ... Your Routine ...
End If

    Den Allgemeinen Fall zu finden, einen "nicht enthalten" ist die Verwendung der InStr-Funktion testen Sie die Zeichenfolge, und suchen Sie den Rückgabewert null (0). Obwohl es manchmal, wenn die "nicht enthalten" Wert ist Komplex, verwenden Sie reguläre Ausdrücke, die berücksichtigt werden sollten.

    • Danke für deine Antwort! Dies funktioniert auch, aber die obige Antwort passt einfach besser, wo ich will zu gehen. Vielen Dank für die Beantwortung!
    InformationsquelleAutor Ron Rosenfeld
Schreibe einen Kommentar