Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Извлечь число из абзаца (строки)
Извлечь число из абзаца (строки)
baatr Дата: Вторник, 23.08.2016, 14:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - baatr
Дата добавления - 23.08.2016 в 14:54
Udik Дата: Вторник, 23.08.2016, 15:44 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1208
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
Без примера не очень понятно. Как понял
[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
 
Ответить
СообщениеБез примера не очень понятно. Как понял
[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]

Автор - Udik
Дата добавления - 23.08.2016 в 15:44
baatr Дата: Вторник, 30.08.2016, 09:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
О! Спасибо!

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

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

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

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

Автор - baatr
Дата добавления - 30.08.2016 в 09:18
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Извлечь число из абзаца (строки)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!