尋找年份以及字號

[JohnD59]

Function ExtractNumbers(inputStr As String) As String Dim i As Integer Dim result As String Dim currentNum As String

result = ""
currentNum = ""

For i = 1 To Len(inputStr)
    If IsNumeric(Mid(inputStr, i, 1)) Then
        currentNum = currentNum & Mid(inputStr, i, 1)
    Else
        If Len(currentNum) > 0 Then
            If Len(result) = 0 Then
                result = currentNum
            End If
            currentNum = ""
        End If
    End If
Next i

ExtractNumbers = result

End Function 這一串是尋找年份的 =ExtractNumbers(儲存格)

[JohnD59]

Function ExtractNumbers2(inputStr As String) As String Dim i As Integer Dim result As String Dim currentNum As String

result = ""
currentNum = ""

For i = Len(inputStr) To 1 Step -1
    If IsNumeric(Mid(inputStr, i, 1)) Then
        currentNum = Mid(inputStr, i, 1) & currentNum
    Else
        If Len(currentNum) > 0 Then
            If Len(result) = 0 Then
                result = currentNum
            End If
            currentNum = ""
        End If
    End If
Next i

If Len(currentNum) > 0 Then
    result = currentNum
End If

ExtractNumbers2 = result

End Function 這一串是尋找案號的 =ExtractNumbers2(儲存格)