VBA - Wie bekomme ich den Codenamen Index

Question

Ich benutze die folgenden, um den Blatt Codename, aber ich möchte nur den Index dieses Codenamen bekommen. Können sagen, der Codename ist „Sheet4“ Ich mag nur die Nummer 4. bekommen würde, wenn es ich möchte nur den 12.

ActiveSheet.CodeName 

Dank „Sheet12“ ist!

Answer 1

Okay, die Zahlen eines String sie sind grundsätzlich zwei Möglichkeiten, zu extrahieren. Zunächst könnten Sie eine Funktion schreiben, die alle nummerische Zeichen aus der Zeichenfolge extrahieren:

Function removeBadChars(sInput As String) As String 
Dim i As Integer 
Dim sResult As String 
Dim sChr As String 

For i = 1 To Len(sInput) 
    sChr = Mid(sInput, i, 1) 
    If IsNumeric(sChr) Then 
     sResult = sResult & sChr 
    End If 
Next 

removeBadChars = sResult 
End Function 

Dies funktioniert gut für Sie Fall sind. Der elegantere Weg wäre die Verwendung eines Regex. Dies benötigt den Verweis auf "Microsoft VBScript Regular Expressions 5.5". Der Vorteil ist, dass Sie grundsätzlich alles mit Regex abgleichen können. In Ihrem Fall wäre es wie folgt aussehen:

Dim regEx As New RegExp 
regEx.Pattern = "[^\d]+" 
Debug.Print regEx.Replace(ActiveSheet.CodeName, "") 

Answer 2

Es ist ganz einfach:

ActiveSheet.Index 

Answer 3

ich eine Funktion erhalten verwaltet, die mir das auf dem Codenamen basiert Blatt gibt.

Function GetSheetWithCodename(ByVal worksheetCodename As String, Optional wb As Workbook) As Worksheet 
    Dim iSheet As Long 
    If wb Is Nothing Then Set wb = ThisWorkbook ' mimics the default behaviour 
    For iSheet = 1 To wb.Worksheets.Count 
     If wb.Worksheets(iSheet).CodeName = worksheetCodename Then 
      Set GetSheetWithCodename = wb.Worksheets(iSheet) 
      Exit Function 
     End If 
    Next iSheet 
End Function