Системный и Бизнес-анализ

Создание собственной функции извлечения цифр из строки.



Отвечаем на вопрос нашего подписчика. Для того чтобы извлечь цифры из строки создадим собственную функцию GetNumbers, для этого необходимо перейти в редактор VBA и добавить новый модуль со следующим кодом:

Public Function GetNumbers(TargetCell As Range) As String

 Dim LenStr As Long

 For LenStr = 1 To Len(TargetCell)

 Select Case Asc(Mid(TargetCell, LenStr, 1))

 Case 48 To 57

 GetNumbers = GetNumbers & Mid(TargetCell, LenStr, 1)

 End Select

 Next

End Function

Подробнее редактор и язык VBA мы будем рассматривать позже.



#извлечение #извлечениецифр #собственнаяфункция #созданиефункции