Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2020, 13:32   #1
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию Найти только цифры

Здравствуйте всем!
Есть данные в ячейках: Продажа (20200106002 от 06.01.2020) или Накладная №20200106002
Надо чтобы в яч с права было только: 20200106002.
Код:
=ПРАВСИМВ((ЛЕВСИМВ(C10;20));11)
не удобно применять, т.к. бывают и другие знаки, но цифры всегда идут без пробелов и всегда 11 цифр подряд
Думайте глобально - действуйте локально!

Последний раз редактировалось Iskin; 05.06.2020 в 13:40.
Iskin вне форума Ответить с цитированием
Старый 05.06.2020, 15:34   #2
Igor1961
Пользователь
 
Регистрация: 05.10.2015
Сообщений: 39
По умолчанию

Здравствуйте! Без Вашего файла не совсем понятно - а если другие сочетания будут встречаться? Или только "Продажа (" и "Накладная №"? Смотрите вложение, может угадал, что Вам нужно
Вложения
Тип файла: xlsx 11 цифр.xlsx (10.6 Кб, 3 просмотров)
Igor1961 вне форума Ответить с цитированием
Старый 05.06.2020, 15:36   #3
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Option Explicit

Function Digits11(i As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    objRegEx.IgnoreCase = True
    objRegEx.Global = True
    
    objRegEx.Pattern = "\d{11}"
    If objRegEx.test(i) Then
        Digits11 = objRegEx.Execute(i)(0)
    End If
    
End Function


Sub asf()
    Debug.Print Digits11("Продажа (20200106002 от 06.01.2020)")
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 05.06.2020, 15:47   #4
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

Вот файл. Данные листа TDSheet2 могут изменяться в колонке В, т.к. разные организации присылают со своей выгрузкой. Поэтому каждый раз приходится корректировать формулы в столбце S листа TDSheet
Вложения
Тип файла: xlsx гама_сверка_1.xlsx (131.3 Кб, 2 просмотров)
Думайте глобально - действуйте локально!
Iskin вне форума Ответить с цитированием
Старый 05.06.2020, 16:47   #5
Igor1961
Пользователь
 
Регистрация: 05.10.2015
Сообщений: 39
По умолчанию

Так нужно? (см. вложение)
Но если
Цитата:
Данные листа TDSheet2 могут изменяться в колонке В
- то тогда придется корректировать формулу в колонке В листа TDSheet2. Иначе - либо пользовательская функция (см.#3), либо макрос по такому же принципу. Никто же не знает кроме Вас какие варианты могут быть в этой колонке В листа TDSheet2. Могут совпасть номера двух накладных от разных контрагентов и тогда ВПР Вам не поможет, организация понесет убытки и директор будет вынужден Вас уволить
Вложения
Тип файла: xlsx гама_сверка_2.xlsx (148.9 Кб, 2 просмотров)

Последний раз редактировалось Igor1961; 05.06.2020 в 17:38.
Igor1961 вне форума Ответить с цитированием
Старый 08.06.2020, 07:47   #6
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

Спасибо!
Думайте глобально - действуйте локально!
Iskin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[C++] Найти ,сколько чисел меньших X (икс) имеют в своей десятичной записи только цифры 0 и 1 Ace_400 Помощь студентам 9 09.11.2017 14:18
Только цифры в cin Negent Общие вопросы C/C++ 0 22.06.2014 12:10
Ввод - сделать так, чтобы в Edit можно было вводить только цифры, или на оборот, только буквы BastAngel Общие вопросы Delphi 7 27.04.2012 01:15
задача - найти произведение первой цифры целой части и третей цифры дробной части вещественного числа. LAZARUS maks22 Lazarus, Free Pascal, CodeTyphon 2 30.01.2012 19:53
Как в Edit вводить только цифры subsonic Общие вопросы Delphi 5 29.03.2010 23:39