Извлечь число из абзаца (строки)

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Извлечь число из абзаца (строки) - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Извлечь число из абзаца (строки)

Извлечь число из абзаца (строки)

baatr

Дата: Вторник, 23.08.2016, 14:54 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Возможно ли, извлечение числа (миллионы с разрядами) из абзаца (строки) в другую строковую переменную?
понятно, что InStr (Str1, [123456789]) не работает.

Ответить

Udik

Дата: Вторник, 23.08.2016, 15:44 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Без примера не очень понятно. Как понял
[vba]

Код

Public Sub test()
Dim str1$, str2$, aStr
Dim i As Byte

str1 = "ddd 1 000 000 hhh"
aStr = Split(str1, " ")

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]

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

baatr

Дата: Вторник, 30.08.2016, 09:18 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

О! Спасибо!

Этот код подходит, но я кое-что переделал.

В частности, добавил, проверку на слово "рублей", иначе, если в изначальной строке кроме суммы есть что-то ещё, н-р, дата или номер счёта и т.д., то возникают ошибки.

Ответить

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Извлечь число из абзаца (строки)

Страница 1 из 1
1