Возможно ли, извлечение числа (миллионы с разрядами) из абзаца (строки) в другую строковую переменную? понятно, что InStr (Str1, [123456789]) не работает.
Возможно ли, извлечение числа (миллионы с разрядами) из абзаца (строки) в другую строковую переменную? понятно, что InStr (Str1, [123456789]) не работает.baatr
For i = 0 To UBound(aStr) If (Asc(Mid(aStr(i), 1, 1)) > 47) And (Asc(Mid(aStr(i), 1, 1)) < 58) Then str2 = str2 & aStr(i) & " " End If Next i Debug.Print str2
End Sub
[/vba]
Без примера не очень понятно. Как понял [vba]
Код
Public Sub test() Dim str1$, str2$, aStr Dim i As Byte
For i = 0 To UBound(aStr) If (Asc(Mid(aStr(i), 1, 1)) > 47) And (Asc(Mid(aStr(i), 1, 1)) < 58) Then str2 = str2 & aStr(i) & " " End If Next i Debug.Print str2
В частности, добавил, проверку на слово "рублей", иначе, если в изначальной строке кроме суммы есть что-то ещё, н-р, дата или номер счёта и т.д., то возникают ошибки.
О! Спасибо!
Этот код подходит, но я кое-что переделал.
В частности, добавил, проверку на слово "рублей", иначе, если в изначальной строке кроме суммы есть что-то ещё, н-р, дата или номер счёта и т.д., то возникают ошибки.baatr
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
