Vergleichen des Arbeitsblatts Name in der Arbeitsmappe, um die Gesamtzahl der übereinstimmenden Arbeitsblätter zu erhalten

Question

Ich habe diesen folgenden Code, der die Gesamtzahl der spezifischen Arbeitsblätter in einer Arbeitsmappe zählt. Ich habe den VbTextCompare-Operator (Vergleichsoperator) verwendet, um den Namen des Arbeitsblatts zu ermitteln. Wenn es dort ist, würde es die Anzahl der Blätter zählen. Aber leider stimmt das nicht mit der Zeichenfolge überein. irgendeine Hilfe? die Arbeitsblätter Namen sind in der folgenden Reihenfolge BQ1, BQ2, BQ3 ..... und so weiter ..

Dim tSheets As Long 
Dim WS As Worksheet 

i = 1 
For Each WS In ThisWorkbook.Worksheets 
    If StrComp(Left(WS.Name, 1), "BQ" & i, vbTextCompare) = 0 Then 
     tSheets = tSheets + 1 
     MsgBox WS.Name 
      i = i + 1 
    End If 

Next WS 

Answer 1

Hier Refactoring ich Ihren Code mit Left, Right und Len.

Ich denke, eine Sammlung zu verwenden, um die Namen zu sammeln wäre nützlicher.

Sub Test_getWSPrefixList() 
    Dim list As Object 
    Set list = getWSPrefixList(ThisWorkbook, "BQ") 

    Debug.Print Join(list.ToArray, ",") 

End Sub 

Function getWSPrefixList(wb As Workbook, WSPrefix As String) As Object 
    Dim list As Object 
    Dim ws As Worksheet 
    Set list = CreateObject("System.Collections.ArrayList") 

    For Each ws In ThisWorkbook.Worksheets 
     If Left(UCase(ws.Name), Len(WSPrefix)) = WSPrefix Then 
      If IsNumeric(Right(ws.Name, Len(ws.Name) - Len(WSPrefix))) Then 
       list.Add ws.Name 
      End If 
     End If 
    Next ws 
    Set getWSPrefixList = list 
End Function 

---

BQ20,BQ19,BQ18,BQ17,BQ16,BQ15,BQ14,BQ13,BQ12,BQ11,BQ10,BQ9,BQ8,BQ7,BQ6,BQ5,BQ4,BQ3,BQ2,BQ1 

Answer 2

Zwei Probleme mit Ihrem Code ...

1. Sie vergleichen die erste Buchstabe des Blattnamens mit der Zeichenfolgenvariable "BQ" & i. Also wird es auf keinen Fall passen.
2. Die zweite Frage ist, Sie erhöhen die ich an der falschen Stelle. Es sollte außerhalb des IF-Blocks liegen.

versuchen, etwas so ...

Dim tSheets As Long 
Dim WS As Worksheet 
Dim i As Integer 
i = 1 
For Each WS In ThisWorkbook.Worksheets 
    If StrComp(WS.Name, "BQ" & i, vbTextCompare) = 0 Then 
     tSheets = tSheets + 1 
     MsgBox WS.Name 
    End If 
    i = i + 1 
Next WS