Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Изъять из ячейки последнее число
 
#1
12.04.2016 12:46:01
Доброго времени суток!

Вопрос в следующем: как изъять из ячейки только последнее число. Решений относительно отбора всех чисел (цифр) из ячейки несколько, а алгоритма по которому будет происходить отбор числа определенного порядка (первого, второго, последнего и т.п в ячейке.) я не нашел. Т.е. макрос (или формула) должен подсчитать общее количество чисел в ячейке и отобразить последнее число. (нужен именно такой алгоритм, чтобы потом можно было  отобрать, например, только первое, второе число)

Надстрочные и подстрочные числа не рассматриваются как числа
Изменено: dyhes - 12.04.2016 21:21:37
 
 
 
#2
12.04.2016 12:55:57
Привязываться к порядковому номеру числа сомнительная затея, на сколько я понимаю нужно вытаскивать значения неких физических величин. Я бы делал это с помощью регулярных выражений, но это выходит за рамки "формульного" решения.
 
 
 
#3
12.04.2016 13:08:41
не панацея но на примере работат
Лень двигатель прогресса, доказано!!!
 
 
 
#4
12.04.2016 14:42:06
вариант функции uuu в столбце G для данного файл- примера
 
Код
Function uuu#(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(?:менее|более) (\d+,\d+|\d+)": .Global = True
    uuu = .Execute(t)(.Execute(t).Count - 1).Submatches(0)
 End With
End Function
Изменено: sv2013 - 12.04.2016 14:42:25
 
 
 
#5
12.04.2016 17:54:10
sv2013, почти, но здесь решение частное, возможно, неудачный пример. Нужно сделать то же самое, но без привязки к словам более и менее и любым другим. Текст может быть любой

Нужна привязка к порядку числа, т.е. макрос должен определить сколько всего чисел в ячейке, а уже потом выбрал последнее
Изменено: dyhes - 12.04.2016 17:56:49
 
 
 
#6
12.04.2016 18:09:01
С макросами у меня туго, так что, как вариант, такая методика (для ячейки A1):
1. Берём Супер-UDF у Дмитрия "The_Prist" тут и меняем в коде
Код
If LCase(sSymbol) Like "*[0-9.,;:-]*" Then
на
Код
If LCase(sSymbol) Like "*[0-9., -]*" Then
Дмитрий даёт пояснения, зачем... Теперь при применении этой UDF в доп. столбце №1 на ИСХОДНУЮ ячейку, вернуться числа с кучей пробелов между ними.
2. В доп. столбце №2 применяем функцию СЖПРОБЕЛЫ или подобные ей макросы на доп. столбец №1. Удалили лишние пробелы и теперь можем использовать " " в качестве разделителя.
3. В доп. столбце №3 применяем функцию =ЕСЛИ(ЕПУСТО(A1);0;ДЛСТР(СЖПРОБЕЛЫ(A1))-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))+1) из приёмов на доп. столбец №2, она считает количество чисел.
4. В доп. столбце №4 применяем Substring также из приёмов на доп. столбец №2 (источник текста) и доп. столбец №3 (номер последнего слова).
Написал бы Profit! но уж очень много действий)))) Надеюсь, найдётся решение через UDF - они такие крутые  ;)

P.S: sv2013, при изменении количества чисел, UDF перестаёт работать  :(

18:30. Соорудил БОМБУ, возьмёте в избушку?  :D Решение одной формулой для ячейки A1:  =ЕСЛИОШИБКА(ПРАВСИМВ(СЖПРОБЕЛЫ(Extract_Number_Or_Text(A1));ДЛСТР(СЖПРОБЕЛЫ(Extract_Number_Or_Text(A1)))-НАЙТИ("*";ПОДСТАВИТЬ(СЖПРОБЕЛЫ(Extract_Number_Or_Text(A1));" ";"*";ДЛСТР(СЖПРОБЕЛЫ(Extract_Number_Or_Text(A1)))-ДЛСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(Extract_Number_Or_Text(A1));" ";"")))));СЖПРОБЕЛЫ(Extract_Number_Or_Text(A1))),
где "Extract_Number_Or_Text" - название UDF от Дмитрия "The_Prist"
 :excl: P.P.S.: обратите внимание, что оригинальное название функции Extract_Number_from_Text. У меня она переименована, поэтому необходимо это учитывать и при необходимости сменить название во всех вхождениях внутри функции  :excl:
Изменено: Jack_Famous - 12.04.2016 20:40:52
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
12.04.2016 20:26:48
вариант макроса для #5 в столбце I
Код
 Function uuu2#(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(?:\d+,\d+|\d+)(?!\.)": .Global = True
    uuu2 = .Execute(t)(.Execute(t).Count - 1)
 End With
End Function
Изменено: sv2013 - 12.04.2016 20:27:10
 
 
 
#8
12.04.2016 20:32:25
И мой вариант для последнего числа (макрос). Только вот с квадратными миллиметрами засада: по условию должно отобразиться 2, а в файле в примере показано 1280,5. Если так, то нужно уточнять условия. Количество не считал.
 
 
 
#9
12.04.2016 20:47:18
sv2013, есть ли простой способ объяснить, как вы обошли "мм2" (ОЧЕНЬ слабо знаком с VBA)? Я так думаю, что в этом случае "2" не нужно вытаскивать...(лично мне точно, хоть в противном случае можно и заранее "мм2" и всё такое заменить на пустоту).
20:50 Заметил, что пропускает только, если 2 в верхнем индексе - в этом дело? Код не числовой? ))) а также не вытягивает ПОСЛЕДНЮЮ ЦИФРУ, если после него "." То есть из "356." вытянет 35)))
Изменено: Jack_Famous - 12.04.2016 21:08:49
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#10
12.04.2016 20:58:07
А с каких это пор "двойка" не является числом? ))
Можно попробовать проверкой наличия надстрочного символа, но не проверял.
 
 
 
#11
12.04.2016 21:01:34
Юрий М, да нет))) когда 2 это просто 2 - вытягивает, а когда в верхнем индексе (ну по-правильному как квадратная степень пишется) - не вытягивает...
Ошибся, Юрий - там точка стояла окаянная ))))
А вот то, что при наличии точки после числа - не вытягивает, странно. Тоже, конечно, Ctrl+H лечиться, но было бы круто прописать замену точек на запятые перед основным макросом или что-то вроде того)))
P.S.: ещё одно - не определяет отрицательные числа ((( т.е. минусы (они же дефисы) вообще игнорит...
Изменено: Jack_Famous - 12.04.2016 21:29:46
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#12
12.04.2016 21:12:18
sv2013, - спаразитировал на Вашей функции:
Код
Function GetCertainNum(txt As String, lNum As Long)
 Dim oNums, lcnt As Long
 With CreateObject("VBScript.RegExp")
    .Pattern = "(?:\d+" & Application.DecimalSeparator & "\d+|\d+)(?!\.)"
    .MultiLine = True
    .Global = True
    Set oNums = .Execute(txt)
    lcnt = oNums.Count
    If lcnt < lNum Then lNum = lcnt
    If lcnt > 0 Then
        GetCertainNum = oNums(lNum - 1)
    Else
        GetCertainNum = ""
    End If
 End With
End Function
как видно, добавил пару моментов:
1. Надо помимо текста указать позицию числа. Если указано число больше, чем есть чисел в строке - будет возвращено последнее.
2. Добавил Application.DecimalSeparator, чтобы функция работала и в случае, если разделитель чисел точка. Хотя момент не сильно принципиальный, но в базовой реализации если число будет записано с точкой - результат будет некорректный.
3. Если чисел в строке нет вообще - вернется пустая строка.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#13
12.04.2016 21:14:17
Jack_Famous,посмотрите текст функции uuu2, там применена негативная опережающая проверка (?!),если интересуетесь регулярными
выражениями,можно ,например,посмотреть разновидности позиционных проверок на с.96 Джеффри Фридл "Регулярные выражения",2015
Вначале использовал функцию uuu1 в файл примере,затем,с учетом Вашего замечания в #5,усовершенствовал шаблон(паттерн),
применив (?!)
 
 
 
#14
12.04.2016 21:15:10
Да дело не в точке, как таковой: тогда нужно менять условия: надстрочные (и подстрочные?) символы не рассматривать, как числа. А при имеющейся постановке вопроса в пятой строке последним числом является 2.
 
 
 
#15
12.04.2016 21:24:51
sv2013, это не я писал, а dyhes))) насчёт ваших пояснений - я, конечно, ничего не понял, ну ничего - всё впереди))) а насчёт "точки" и "-" - это лично моё мнение, возможно отличное от автора (хочу к себе в копилку, кстати вторая за день от sv2013). Просто, если я числа вытаскиваю, то мне важно больше оно нуля или меньше (типа, если стоит перед числом слитно "-", то отрицательное, возможно как дополнительный параметр функции - типа определять отрицательные или нет), ну и точка эта мерзкая, конечно всё портит... У модернизации от The_Prist, кстати, те же проблемы... В любом случае ваши решения много круче моей "бомбы" и всё остаётся на ваше (и, частично, автора) усмотрение ))))
Изменено: Jack_Famous - 12.04.2016 21:27:17
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#16
12.04.2016 21:25:14
Юрий М,все верно, условие в шапке изменил
 
 
 
#17
12.04.2016 21:38:17
Всем большое спасибо!
Только яблоками не кидайтесь, я в макросах не разбираюсь). Как еще изъять предпоследнее число (условия те же)?
Изменено: dyhes - 12.04.2016 21:39:10
 
 
 
#18
12.04.2016 21:43:50
dyhes,Вы предложили в файл-примере,в соответствии с правилами форума,что дано(как надо),-в соответствии с этим здесь на форуме составляют формулы и функции.
Предложите другой расширенный файл -пример,что дано(как надо),-соответственно будут другие функции.
 
 
 
#19
12.04.2016 21:51:52
dyhes, или используйте модернизацию от The_Prist (пост №12), если КОНКРЕТНОЕ по счёту...
А ещё (для совсем рискованных  :D ) можно использовать доп. столбец №3 (он как раз считает количество чисел) из "поста #6 (до "бомбы")
Изменено: Jack_Famous - 12.04.2016 22:00:07
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#20
12.04.2016 22:00:46
sv2013,

1. По аналогии нужно изъять предпоследнее число вместо последнего

2. Нужно отобразить количество чисел в ячейке (по прежнему над- и подстрочные не рассматриваются в качестве чисел)

Пример прикладываю
 
 
 
#21
12.04.2016 22:06:24
Jack_Famous, решение от The_Prist  хорошее и действительно практически универсальное, но в моем случае это не подходит, т.к. в ячейке может быть разное количество чисел и знать порядковый номер последнего (предпоследнего) не представляется возможным..
 
 
 
#22
12.04.2016 22:36:28
вариант для #20,предпоследнее число, функция uuu3 в столбце E,количество чисел ,функция uuu4 в столбце I
Код
Function uuu3(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(?:\d+,\d+|\d+)(?!\.)": .Global = True
    If .Execute(t).Count > 1 Then uuu3 = CDbl(.Execute(t)(.Execute(t).Count - 2)) Else uuu3 = ""
 End With
End Function
Код
Function uuu4(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(?:\d+,\d+|\d+)(?!\.)": .Global = True
    If .test(t) Then uuu4 = CDbl(.Execute(t).Count)
 End With
End Function
 
Изменено: sv2013 - 12.04.2016 22:36:55
 
 
 
#23
12.04.2016 22:41:48
не загрузился файл,повторно загружаю
 
 
 
#24
12.04.2016 22:49:43
sv2013, а если будет Полезное сечение должно быть более 1280,5 мм2 сердечника из меди.?
 
 
 
#25
12.04.2016 23:18:47
Андрей VG, добрый вечер,Вы,фактически меняете файл пример(что дано),тогда еще надо указать как надо и что искать последнее или предпоследнее
число,к тому же создатель темы просит не учитывать ,то,что при мм(надстрочные и подстрочные символы).Данная тема давно обсуждается,ранее, на начальном этапе,
я использовал для последнего числа функцию uuu1,предложите свой вариант для Вашего файл примера.
Код
Function uuu1#(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(?:\d+,\d+|\d+)": .Global = True
 If InStrRev(t, "мм") Then
    uuu1 = .Execute(t)(.Execute(t).Count - 2)
 Else
    uuu1 = .Execute(t)(.Execute(t).Count - 1)
 End If
 End With
End Function
Изменено: sv2013 - 12.04.2016 23:19:10
 
 
 
#26
12.04.2016 23:26:06
Цитата
dyhes написал:
Изъять из ячейки последнее число
Тут ещё само название темы грешит неточностью формулировки - расходится с задачей: если именно изъять, то нужно "на месте" модифицировать строку )
Просто занудствую. Но это из похожей оперы: пишут "перенести", а по факту нужно скопировать.
Игорь (Hugo) поймёт  ;)
 
 
 
#27
13.04.2016 00:03:25
Цитата
sv2013 написал:
Вы,фактически меняете файл пример(что дано),тогда еще надо указать как надо
Разве я что-то поменял? Всего лишь указал, что способ определения надстрочного символа по точке после числа несколько недостаточный (всего лишь добавил немного текста после миллиметров квадратных). А если будет
Спирт C2H5OH 1л 20 бутылок
То что выдаёт формула в плане количества чисел?
Изменено: Андрей VG - 13.04.2016 00:04:24
 
 
 
#28
13.04.2016 05:51:03
Андрей VG, добавил Ваши варианты в файл пример(B7,B8),видно,что Ваш последний вариант(B8) не представляет трудности для функций
uuu1 и uuu4,а для варианта в B7 Вам ранее предложил выложить Ваш вариант функции для последнего числа.В файл примере создателя темы
все мои варианты работают корректно.
 
 
 
#29
13.04.2016 09:59:53
Доброе время суток
sv2013, извините если что, не в какой мере не предполагал вас чем-то обижать. Просто подтолкнуть от хорошего решения к лучшему. К своему стыду, даже и не пытался писать функции. Вот набросал насколько смог вписаться в тему, исходя из того, что если перед числом стоит буква, то интерпретируем это как число верхнего или нижнего индекса или часть сложного имени некоторого изделия, например М23Ш8.
 
 
 
Страницы: 1
Наверх