Zählt die Anzahl von Zeilen mit bestimmtem text

Habe ich eine Zuweisung, die Anzahl der Zeilen enthalten, die spezifischen text und drucken Sie den Wert auf E-Mail.

Public Function First()
    Dim Source As Workbook
    Dim Var1 As Integer
    Dim Var10 As Integer
    Dim Source2 As Workbook

    Set Source = Workbooks.Open("C:\Users\HP\Desktop\IN INPROG.xlsx")

    Var1 = Application.WorksheetFunction.CountIf(Range("M1:M100"), "Orange")

    Source.Close SaveChanges:=False

    Set Source2 = Workbooks.Open("C:\Users\HP\Desktop\SR INPROG.xlsx")

    Var10 = Application.WorksheetFunction.CountIf(Range("M1:M100"), "Orange")

    Source2.Close SaveChanges:=False

    eTo = "[email protected]"
    esubject = Format(Date, "d/mmmm/yyyy") & " " & "Weekly Open Incident Reminder"
    ebody = "Dear All," & vbCrLf & "" & vbCrLf & "" & vbCrLf & "Orange: " & "SR: " & Var10 & " IN: " & Var1 

    Set app = CreateObject("Outlook.Application")
    Set itm = app.createitem(0)
    On Error Resume Next
    With itm
        .Subject = esubject
        .To = eTo
        .body = ebody
        .display

Mein code gibt alle Werte als "0", obwohl "Orange" existiert, in einer der Reihen.

Stellen Sie sicher, Sie haben nicht die führende und nachfolgende Leerzeichen. Schau mal hier: stackoverflow.com/questions/2964769/...
Hast du eine Lösung gefunden für dieses problem noch?
Ja, ich fand eine Lösung für dieses, ich werde die Antwort später =D

InformationsquelleAutor user2634936 | 2013-08-17

0

Wenn Sie brauchen, um count jede Zeile enthält das Wort innerhalb einer Zeichenfolge, die Sie anpassen können die Zeichenfolge in der Funktion ZÄHLENWENN von "Orange" zu "*Orange*".

Den * wildcard steht für eine beliebige Anzahl von Zeichen. E. g. eine Zelle mit dem string "Drei Orangen Luftballons" werden nicht gezählt

CountIf(Range("M1:M100"), "Orange") aber wird durch CountIf(Range("M1:M100"), "*Orange*").
- Vielen Dank für deine Lösung, ich habe eine Antwort gefunden, die für diese
InformationsquelleAutor Graham Anderson
0

Danke für deine Lösung, ich habe eine Antwort gefunden für meine Frage, und ich werde es hier posten
```
Set Source = Workbooks.Open("C:\Users\itsm-student\Downloads\IN INPROG.xlsx")
Set Wks = Source.Worksheets("IN INPROG")

Var1 = Application.WorksheetFunction.CountIf(Wks.Range("M1:M100"), "*Orange*")
```
Was ich tun muss, ist im Grunde eine variable für das Arbeitsblatt, das Sie gonna finden Sie, und in meinem Fall, es wird "PROG" und nennen Sie die variable beim deklarieren der Reihe. Und die codes, die ich gepostet auf der Oberseite sind jedoch berechtigt, statt der Suche den text "orange" an der Quelle excel-Tabelle, die, finden Sie den text-Wert in der excel-Datei, die ich tun, meine VBA auf. Hoffe es hilft

InformationsquelleAutor user2634936

Habe ich:

Sub Worksheet_Change(ByVal Target As Range)

Set Source = ThisWorkbook

Dim Var1 As Integer

Set Wks = Source.Worksheets("Recebimento")

Var1 = Application.WorksheetFunction.CountIf(Wks.Range("U:U"), "*NOK*")

If Var1 > 0 Then
 'your code

End sub

InformationsquelleAutor user5314602

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.