Witam,
Jak raz kilka dni temu pisalem funkcje, wykorzystujaca wyrazenia regularne.
Nie wiem, jak wygladaja Twoje dane, ciezko wiec napisac rozwiazanie, ktore by Cie satysfakcjonowalo.
Ponizej wiec przyklad, ktory napisalem dla swoich potrzeb:
Function GetPortalHoehe() As String
Dim regex As Object
Dim Matches As Object
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "\d{4}"
Const strSecon As String = "Portalhöhe: 2650 mm"
Set Matches = regex.Execute(strSecon)
If Matches.Count = 1 Then GetPortalHoehe = Matches(0).Value
Set regex = Nothing
Set Matches = Nothing
End Function
Cytat:Witam
W komórkach B1 do B21 mam dane liczbowe. Za pomocą funkcji REGEXPP chciałbym wyznaczyć parametry a,b itd. Jak zapisać tę funkcję w języku VBA? |