Выбор из текста всех чисел
Достаточно интересное решение реализовано в функции ExtractNumeric. С ее помощью из любого текста можно извлечь все числовые значения. Например, если ячейка содержит текст 2 5 сентября 2 004 года, результат применения данной функции будет таким: 252004. Код функции выглядит следующим образом (листинг 2.46).
Листинг 2.46. Функция ExtractNumeric
Function ExtractNumeric(iCell)
' Анализируется каждый символ входной строки iCell
For iCount = 1 To Len(iCell)
' Проверка, является ли анализируемый символ числом
If IsNumeric(Mid(iCell, iCount, 1)) = True Then
' Число добавляется в выходную строку
ExtractNumeric = ExtractNumeric & Mid(iCell, iCount, 1)
End If
Next
End Function
После выбора функции следует указать ячейку, из которой необходимо извлечь числовые значения. Результат отобразится в активной ячейке. Очевидно, что применение данной функции имеет смысл только в том случае, когда текст включает в себя и числовые, и иные символы.